Aynı Olanları Renklendirme

[Allback]

Merhaba,

Bana her gün planlama departmanından üretim planları geliyor. Bu planda gelen kodlardan bazıları öncelikli olabiliyor. Bu öncelikli olan kodlar elimdeki bir excel dosyasında bulunuyor. (180 tane özel kod var)

Benden, her gün gelen bu planların içinden özel olanları bulup,farklı bir renge boyamamı istiyorlar. Bu işi makro ile nasıl yapabilirim.

Planlamadan gelen excel dosyasını, kodların olduğu excel dosyasında boş sayfaya kopyalayacağım ve makroyu çalıştırarak özel olan kodları renklendireceğim.

Örnek ile açıklamam gerekirse elimde bir şehirler tablosu var (bu tablo sabit)
Kopyaladığım sayfanın "C" sütununda isim, şehir, bitki, hayvan isimleri alt alta yazıyor.
Makroyu çalıştırdığım zaman "C" sütunundaki şehir olanları bulup, maviye boyamasını istiyorum.

Yardımlarınızı rica ederim.

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp denediğinizde, C sütununda olan veriler Eğer G1:G100 aralığında varsa sarıya boyar:

Sub renklendir()
For i = 1 To Cells(Rows.Count, "C").End(3).Row
If WorksheetFunction.CountIf(Range("G1:G100"), Cells(i, "C")) > 0 Then
    With Cells(i, "C").Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End If
Next
End Sub

 

[Allback]

Çok teşekkür ederim.