BAŞKA TABLODAN VERİ ALMA HK

[Korhan Ayhan]

Burayı değiştirmelisiniz.

Kod = Trim(CStr(wsHedef.Cells(i, "A").Value))

Renklendirme işleminde A-C aralığı kullanııyor. Bu bölümü değiştirmek için aşağıdaki satırı değiştirmelisiniz.

wsHedef.Range("A" & i & ":C" & i).Interior.Color = Dict(Kod)