excel arama makrosu

[lightofhope]

arkadaşlar meraba,

sayfa2 deki belirli birsütundaki hücre değerlerinin sayfa1 de belirli bir sütunda var olup olmayacağını araştıran varsa sayfa1 deki hücreyi boyayan bir makroya ihtiyacım var.

lütfen yardımcı olur musunuz?

 

[usubaykan]

Merhaba;

Ekteki dosyayı inceleyiniz. Kullanılan kod

Option Explicit
Sub deneme()
Dim u As Long, Say As Double
Range("A:A").Interior.ColorIndex = xlNone
    For u = 1 To [A65536].End(3).Row
        Say = WorksheetFunction.CountIf(Sheets("Sayfa1").Range("A:A"), Cells(u, "A"))
        If Say > 0 Then Cells(u, "A").Interior.ColorIndex = 4
    Next
MsgBox "İşleminiz tamamlanmıştır.", vbInformation, "Sn: " & Application.UserName
End Sub