Kopiowanie kolumny daty z trzema różnymi kolorami z jednego skoroszytu do innego skoroszytu w programie excel - vba, excel-vba, excel-2007, excel

Próbuję przenieść wpisy w Datakolumna z jednego skoroszytu do innego przy użyciu Vlookup. Mógłbym po prostu przesłać dane w komórce, a nie kodowanie kolorów. Czy możliwe jest przesłanie kodu koloru każdej komórki razem z danymi?

Mam trzy różne kolory CZERWONY, ZIELONY iŻÓŁTY, który odpowiada odpowiednio Niepełnemu, Kompletnemu i W toku. Po przeniesieniu kodu koloru komórki, powinienem móc go zmienić ręcznie, jeśli proces zostanie zakończony.

Odpowiedzi:

Oto kod, który będzie, jeśli jest dopasowanie wkolumna skopiuj kolor ponad. Nie używa Vloopup, ponieważ wydawało się to trochę bezsensowne, jeśli masz już listę, z którą chcesz sprawdzić. Jeśli nie ma dopasowania, pozostanie domyślnym kolorem.

Dim i As Integer
Dim a As Range

For i = 1 To WorksheetFunction.CountA(Columns("C"))
On Error GoTo NextOne
Set a = Cells(WorksheetFunction.Match(Range("C" & i), Range("B1:B6"), 0), "B")
Range("C" & i).Interior.Color = a.Interior.Color

NextOne:
Resume nextOne2
nextOne2:
Next i

Będziesz musiał wskazać skoroszyt, z którego chcesz skorzystać. Będziesz musiał sprawdzić, jak odwoływać się do skoroszytów. I zmień kolumny, w których znajdują się dane.