TextBox çalışmıyor

[tokerx22]

neden clısmıyor bir turlu anlaymadım

 

[Halit TÜRK]

Selamlar..

Kodu aşağıdaki gibi değiştiriniz...

Private Sub TextBox1_Change()
  On Error Resume Next
    METİN1 = TextBox1.Value
    Set FC2 = Range("B:B").Find(What:=METİN1)
    Application.Goto Reference:=Range(FC2.Address), Scroll:=False
    Selection.AutoFilter Field:=2, Criteria1:="*" & TextBox1.Value & "*"
    If METİN1 = "" Then
    Selection.AutoFilter Field:=2
    End If
End Sub

 

[tokerx22]

teşekürler

 

[Halit TÜRK]

Rica ederim, iyi çalışmalar...