Bul Komutu Ekleme yardımcı olurmusunuz

[sessizada01]

arkadaslar benım ıcın ektekı dosyaya bul butonu ve komutu eklermısınız bir türlü yapamadım uğraştım ama olmadı. kısaca açıklayayım

Excel Kitabında alt alta firma isimleri yazacam bul komuduna yazıdığım zaman bana sadece o firma bilgilerini getirecek ekrana diğerleri görünmeyecek şimdiden yardımlarınız için tşkler

 

[Orion1]

Dosyanız ektedir.

Private Sub TextBox1_Change()
Range("A1").AutoFilter field:=1, Criteria1:=TextBox1.Text & "*"
End Sub

 

[sessizada01]

tşk ederım buda işimi görür tam olarak bu değildi istediğim şey yapabılırsen başlık yazan yere hangi ismi yazarsam butona tıkladıgımda onları ekranda gostersın bu sekılde yapabılırmısın... cok oluyorum ama

 

[Orion1]

tşk ederım buda işimi görür tam olarak bu değildi istediğim şey yapabılırsen başlık yazan yere hangi ismi yazarsam butona tıkladıgımda onları ekranda gostersın bu sekılde yapabılırmısın... cok oluyorum ama

Dosyanız ektedir.
Aslında önceki yaptığım daha fonksiyoneldi.

Sub bul()
Range("A1").AutoFilter field:=1, Criteria1:=Range("B1").Value
End Sub

 

[sessizada01]

tşk ederim yardımların için saol