textboox kutusuna ne yazarsam o sütünda bulsun yardım.

[subutayı]

Private Sub TextBox1_Change()
Range("A1").AutoFilter Field:=5, Criteria1:=TextBox1.Text & "*", VisibleDropDown:=False
End Sub

merhaba yukarıdaki kod E sütununda arama yapıyor ama istediğimi getirmiyor. tıp yazıyorum tıp ile başlayanları getiriyor. benim istediğim E2 den itibaren bütün E sütununda arama kriterimi hücrenin neresinde olursa olsun göstersin. başında, sonunda, ortasında.... küçük büyük harf duyarlı olmasın teşekürler..

 

[alicimri]

TextBox1.Text & "*" kodlarını
"*"& TextBox1.Text & "*"
şeklinde değiştirin

 

[subutayı]

ilginiz için teşekür ederim. istediğim gibi oldu. eyvallah.