arama yapmak

[necdetorun]

sayfa 1 de gurup bilgi var textbox1 kutusundaki girilen bilgiyi sayfa 1 deki gurupta arayıp var yada yok olarak textbox2 kutusuna yazmasını istiyorum bir türlü beceremedim lütfen yardım edin. İyi calışmalar

[AliÖZ]

Merhaba,
Bu kodları kullanabilirsiniz.Örnek dosya ektedir.


Private Sub CommandButton1_Click()
On Error GoTo 10
bul = TextBox1.Value
bassat = Range("A2:z65536").Find(bul).Row
For a = bassat To 65536
sonsat = Range("A" & a, "I65536").Find(bul).Row
Next a
10 If sonsat = 0 Then
TextBox2.Value = "YOK"
Exit Sub
End If
TextBox2.Value = "VAR"
End Sub