Veri arama makrosu

[hopeful]

Merhaba
"Arama" sayfasında A kolonunda bir hücreye veri girildiğinde otomatik olarak "Data" sayfasının her hangi bir yerinde bu veriyi arasın. Eğer buluyorsa yine Arama sayfasında B kolonuna (A kolonunda yazılan veri karşısına) "VAR" ya da "YOK" yazsın..

Data sayfasında, hücre içinde boşluklu veri girişleri olabilir.

örneğin Data sayfasında A1 hücresinde "123 Ankara" yazıyorsa; Arama sayfasında A kolonuna "123" yazıldığında "VAR" olarak göstersin..

Dosya ektedir.
Makro için yardımınızı rica ederim

 

[Murat OSMA]

Merhaba,
Bu kodları kullanabilirsiniz..

[SIZE="2"]Sub Emre()
    Dim i&, evn As Range
    With Sayfa2
        For i = 2 To .Range("A65536").End(3).Row
            Set evn = Sayfa1.Cells.SpecialCells(2).Find(.Cells(i, 1).Value, , , 2)
            If Not evn Is Nothing Then
                .Cells(i, 3).Value = "VAR"
                    Else
                .Cells(i, 3).Value = "YOK"
            End If
        Next i
    End With
    i = Empty: Set evn = Nothing
End Sub[/SIZE]

 

[hopeful]

Murat Bey,
Object required uyarısı veriyor

 

[hopeful]

İngilizce excel kullandığım için koddaki "Sayfa" ları "Sheet" olarak değiştirdim.
Halloldu.
Çok teşekkür ederim..