textbox hakkında..

[barshquler]

herkese selam,

benim şöyle bir sorunum var arkadaşlar. uzunca bir müşteri listem var. ctrl+f yaparak istediğim müşteriyi arıyarak buluyorum.. bir textbox yapsak.. ben buraya ak yazsam mesela.. akla başlayan tüm müşterileri bana süz mantığı ile getirse bu excell. çok önemli bir konu benimn için yardımlarınızı bekliyorum..

 

[N.Ziya Hiçdurmaz]

yanıt

Sayfanıza ekleyeceğiniz text ile süzebilirsiniz.

Private Sub TextBox1_Change()
If TextBox1 = "" Then
    Selection.AutoFilter field:=2 'field:=2 ikinci sütun için
End If
Selection.AutoFilter field:=2, Criteria1:=TextBox1 & "*"
End Sub

 

[barshquler]

teşekkürler dostum.. ellerine sağlık.. süper oldu.. ama müşteri listesi çok kalabalık.. biraz yavaş çalışıyor.. bunu hızlatamayız sanırım..

 

[Orion1]

teşekkürler dostum.. ellerine sağlık.. süper oldu.. ama müşteri listesi çok kalabalık.. biraz yavaş çalışıyor.. bunu hızlatamayız sanırım..

Bu kodu textbox'ın exit olayına veya bir butona atayınız.

 

[barshquler]

dostum nasıl yapacağım onu.. beceremedim.. kusura bakma

 

[zemeckiss]

Private Sub TextBox1_Change()
bu satır makrnun hangi objenin hangi durumda çalıştırlacağını gösteriyor

vba düzenleyicinizi açıp user formdan text box ı seçerseniz kodları yazdığınız yerin hemen yukarısında 2 adet listbox war sol taraftaki (hangi obje için) sağ taraftaki (hangi durumu) için çalıştırılacağını gösteriyor...


kısaca change yazısını exit yaparsanız çalışabilir...