DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Çok teşekkür ederim.dosyanız ekte...
Sub test()
Set s1 = Sheets("liste1")
Set s2 = Sheets("liste2")
For i = 1 To s1.[a65536].End(3).Row
For ii = 1 To s2.[a65536].End(3).Row
If s1.Range("a" & i) = s2.Range("a" & ii) Then
s2.Range("a" & ii).Interior.ColorIndex = 24
End If
Next
Next
End Sub