DblClick'le arama yapma

[Altay3555]

Selamlar,
Ekli çalışmada TextBox1 de mevcut olan ama nedense çalışmayan "BUL" komutunu,hücreye aranan değeri yazdıktan sonra DblClick'le ya da sağa eklenecek bir commandbutton ile arama yapmak...........
hangisi daha mantıklı olabilir.

 

[Mehmet Şahin]

Merhaba,
Userform1'deki

Private Sub Textbox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
' TEXTBOX İÇİNDE ARAMA YAPAR
If KeyCode <> 14 Then Exit Sub
If Trim(TextBox1.Value) = "" Then: ListeGuncelle: Exit Sub
Set Sh = Sheets("Ana Sayfa")
Ara = TextBox1.Value
    Set bulunacak = Sh.Range("A:A").Find(Ara) 'VERİ HANGİ SÜTUNDA ARANACAK

kısmı

Private Sub TextBox1_Change()
If Trim(TextBox1.Value) = "" Then: ListeGuncelle: Exit Sub
Set Sh = Sheets("Ana Sayfa")
Ara = TextBox1.Value
    Set bulunacak = Sh.Range("A:A").Find(Ara & "*")   'VERİ HANGİ SÜTUNDA ARANACAK

şeklinde değiştirerek denermisiniz? kolay gelsin.

 

[Altay3555]

Çok Teşekkürler,Emeğinize sağlık.

 

[Mehmet Şahin]

Rica ederim, iyi çalışmalar.

 

[Altay3555]

Bir Combobox la arama butonu yapabilirmiyiz.
Dentex kardeşin düzeltmeleri işe yarıyor lakin veri bütünlüğü bozuluyor.O yüzden de Combobox ile bir arama bölümünde seçilecek sütunşardan arama kaydı yapıp bulunan değerlerin textbox da görülmesi daha güzel olacak.