Textbox Veri Arama Textbox Kullanımı Hk.Yrd.

[skaan]

Merhaba;
Sutunda arama yapmak için 2 tane Textbox üzerinde örnek dosyamda bulunan Kodları kullanıyorum. Textboxlara aranacak metni yazdığımda sutun içerisinde içerikte yazılanı getırıyor .Textboxlara tıkladığımda ise eskı yazılan metin siliniyor.
Ancak eski yazılan silindikten sonra listemin tekrar C5 hücresine geri dönmesini sağlayamadım. Bu konuda kuvari (destek Ekibi) kodda ekleme yaparak bu işlemi yapabileceğimi belirtmişti. Ancak bu düzeltmeyi textbox1 de denediğimde çalışmıyor.
Örnek dosyamda textbox1 kodda düzeltme yapıldı ancak çalışmıyor.
Textbox2 de ise düzeltme yapılmamış hali textbox çalışıyor fakat istediğim şekilde çalışmıyor.
Sizlerden ricam bu konuda yardımcı olabilirmisiniz.Örnek dosyam ektedir..

Saygılarımla
SKaan

 

[Erdem Akdemir]

Aşağıdaki kodu kullanın. textbox1.activate eklemeyi unutmuşum.

Nesneyi sayfada kullandığınız için imleç bir tane olacaktır. Textbox'a veri girerken C5 seçili görünmeyecektir.

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.Value = ""
ActiveSheet.ListObjects("Tablo5").Range.AutoFilter Field:=2
Range("c5").Select
TextBox1.Activate
End Sub

 

[skaan]

Merhaba;
Tamamdır..
İlginize ve desteklerinize siz ve sizin nezdinizde butun forum sorumlularına teşekkürler.
Harikasınız.. İyiki varsınız..

Hayırlı günler dilerim.
SKaan