bul ve renklendir

[somon1]

Herkese İyi akşamlar dilerim,

Bir konuda bilginize ihtiyacım var.Örnek dosyada eklediğim gibi liste sayfası A sütununda 1000 tane veri var bunları veri sayfasının tümünde aramasını ve birebir aynı ise hücreyi kırmızı yapmasını istiyorum.Yani liste sayfasında hhh (3tane h varken) veri sayfasında hhhh (4 tane h yi renklendirmeyecek..

yardım rica ederim..

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
    Application.ScreenUpdating = False
    
    Dim S1 As Worksheet: Set S1 = Sheets("liste")
    Dim S2 As Worksheet: Set S2 = Sheets("veri")
    
    S2.Cells.Interior.Pattern = xlNone
    
    For i = 1 To S1.Cells(Rows.Count, "A").End(3).Row
        Set ara = S2.UsedRange.Find(S1.Cells(i, "A"), , xlValues, xlWhole)
        If Not ara Is Nothing Then
            adres = ara.Address
            Do
                S2.Cells(ara.Row, ara.Column).Interior.Color = 255
                Set ara = S2.UsedRange.FindNext(ara)
            Loop While Not ara Is Nothing And ara.Address <> adres
        End If
    Next i
        
        Application.ScreenUpdating = True
        MsgBox "B i t t i "
End Sub

. . .

 

[somon1]

hocam özcelikle vakit ayırdığınız için teşekkür ederim.

kodu kopyala yapıştır yaptım ama compile error : syntax error verdi sanırım yanlış yere yapıştırdım.

bilgi rica ederim

 

[somon1]

hocam sağol eline sağlık çalışıyor..kopyalarken hata yapmışım...

çok teşekkür ederim