Merhaba,
Verdiğim linkteki 5. mesajdaki dosyayı alternatif olarak düşünebilirsiniz.
http://www.excel.web.tr/f50/yazdykca-dioer-sutuna-gecsin-t97071.html
leumruk'un söylediğide olabilir
Kod:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
End Sub
Kod:
Private Sub TextBox1_Change()
If Intersect(Target, [A1]) Is Nothing Then Sheets("Sayfa1").AutoFilterMode = False
Sheets("Sayfa1").Range("A2:B300").AutoFilter field:=1, Criteria1:="*" & Sheets("Sayfa1").Range("A1").Value & "*"
End Sub