textboxdaki veriye göre süzme

[xlsx]

Arkadaşlar ekteki kodlar çalıştığında textboxa yazdığım kelimeyi B sütununda bulup ilgili satırları veriyor.Yani filtreleme yapıyorum.
Ancak benim istediğim şu:
textboxa benim yazdığım kelimeyi B sütunundaki cümlenin herhanbi bir yerinde varsa da vermesi.Benim kodlarda bu gerçekleşmiyor.Örneğin Beyaz yazdığımda sadece 1 tane sonuç veriyor oysa içinde Beyaz kelimesi geçen 2 adet daha veri var.

Selection.AutoFilter Field:=2, Criteria1:=TextBox1.Text & "*" kodunda textboxa yazdığım kelimeye duyarlı olması için nasıl bir düzeltme yapmam gerekiyor.

Bir de bu B sütunu dışında C veya D sütunu için de textboxt aynı anda kullanabilirmiyim.?

 

[Orion1]

Aşağıdaki gibi kullanınız.

Selection.AutoFilter Field:=2, Criteria1:= "*" & TextBox1.Text & "*"

 

[Merhum İdris SERDAR]

Arkadaşlar ekteki kodlar çalıştığında textboxa yazdığım kelimeyi B sütununda bulup ilgili satırları veriyor.Yani filtreleme yapıyorum.
Ancak benim istediğim şu:
textboxa benim yazdığım kelimeyi B sütunundaki cümlenin herhanbi bir yerinde varsa da vermesi.Benim kodlarda bu gerçekleşmiyor.Örneğin Beyaz yazdığımda sadece 1 tane sonuç veriyor oysa içinde Beyaz kelimesi geçen 2 adet daha veri var.

Selection.AutoFilter Field:=2, Criteria1:=TextBox1.Text & "*" kodunda textboxa yazdığım kelimeye duyarlı olması için nasıl bir düzeltme yapmam gerekiyor.

Bir de bu B sütunu dışında C veya D sütunu için de textboxt aynı anda kullanabilirmiyim.?

Aşağıdaki linkte yer alan dosyayı inceleyin.

http://www.excel.web.tr/showthread.p...888#post316888


.

 

[xlsx]

Aşağıdaki linkte yer alan dosyayı inceleyin.

http://www.excel.web.tr/showthread.p...888#post316888


.

linke ulaşamadım Sn Yurttas, ama daha önce bu kodları excel.web.tr'den bulmuştum, dosyalara artık ulaşım sorunu olduğu iin birçok dosyayı artık bulamıyorum sitede.

 

[xlsx]

Aşağıdaki gibi kullanınız.

Selection.AutoFilter Field:=2, Criteria1:= "*" & TextBox1.Text & "*"

Bu şekilde ben de denemiştim ancak BEYAZ yazınca vermesine rağmen DEFTER yazınca BEYAZ DEFTER yazan satırı filtrelemiyor.Kontrol edebilirsiniz.

 

[Orion1]

Oluyor.
Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
Range("a1").Select
Selection.AutoFilter Field:=2, Criteria1:="*" & TextBox1.Text & "*"
End Sub

 

[Merhum İdris SERDAR]

linke ulaşamadım Sn Yurttas, ama daha önce bu kodları excel.web.tr'den bulmuştum, dosyalara artık ulaşım sorunu olduğu iin birçok dosyayı artık bulamıyorum sitede.

http://www.excel.web.tr/attachment.php?attachmentid=38524&d=1227076161

http://www.excel.web.tr/showthread.php?p=316888#post316888

Bunları deneyin.


.

 

[xlsx]

İçerir ile textbox süzme kullanmaktı istediğim tşk.Bu dosyayı daha önce de görmüş ve çok kullanışlı bulmuştum ellerinize sağlık