Textbox ile filtreleme

[ismail157]

Merhaba,

Elimde bir tablo var A, B ve C kolonları var. İlgili sayfaya bir textbox koyup (=EMBED("Forms.TextBox.1";""))
koyduğum textbox içine değer yazıldığında A, B veya C kolonunun herhangi bir yerinde yazdığım kelime geçiyorsa filtreleme yapsın istiyorum. Yardımcı olabilir misiniz?

 

[PLİNT]

Merhaba
Ek dosyadaki gibi işinize yarayabilir.
http://s6.dosya.tc/server4/yn8okj/deneme.zip.html

 Private Sub TextBox1_Change()
If Len(TextBox1.Value) < 2 Then
Rows.Hidden = False
Exit Sub
End If
x = Cells(Rows.Count, "a").End(3).Row
Application.ScreenUpdating = False
 Rows("2:" & x).Hidden = True
With Range("a2:c" & x)
 Set c = .Find(TextBox1.Value, LookIn:=xlFormulas, LookAt:=xlWhole)
 If Not c Is Nothing Then
ilk = c.Address
Do
Rows(c.Row).Hidden = False
 ActiveWindow.SmallScroll Down:=-12
Set c = .FindNext(c)
If c Is Nothing Then Exit Do
 Loop While Not c Is Nothing And c.Address <> ilk
Else
Rows.Hidden = False
    End If
End With
Application.ScreenUpdating = True
End Sub