Form üzerinden Hücrelerde Arama yaptırmak

[karakis_veli]

Form üzerinden,hücrelerdeki dataları aratmak istiyorum.Bununla ilgili örnek verirseniz sevinirim.

 

[Tarkan VURAL]

Veriler sayfa1 de ve A1:K500 arası olsun ,Userform üzerinde bir adet textbox, bir adet commandbutton olsun ( denemeden direk yazıyorum)


private sub commandbutton1_Click()
dim bul as range
for each bul In worksheets("sayfa1").range("a1:k500")
if textbox1 = "" then exit sub
if bul = textbox1.text then
bul.activate
msgBox "kutucuktaki veri " & bul.address & " adresinde bulundu"
exit sub
end If
next bul
msgbox "aradığınız veri bulunamadı"
end sub

 

[karakis_veli]

Tarkan Hocam ilginizden dolayı teşekkür ederim.

 

[karakis_veli]

Vermiş olduğunuz örnek işe yaradı.Çok sağolun