الأخ الفاضل _ أستاذ محمد عبد الصمد _ لقد قمت بإضافة السطرين الأول والثاني بما أمرتني بة لكن لا أعرف لماذا لم يعمل
وهذا هو الكود ضعه أنت في المكان المخصص لة حتى يعمل وشكرا جزيلا جدا
Private Sub TextBox1_Change()
Dim LastRow As Long
LastRow = Range("A65535").End(xlUp).Row
If TextBox1.Text <> "" Then
ActiveSheet.Range("$A$2:$C$" & LastRow).AutoFilter Field:=1, _
Criteria1:="=" & TextBox1.Text & "*" _
, Operator:=xlOr
Else
ActiveSheet.Range("$A$2:$C$" & LastRow).AutoFilter Field:=1
End If
End Sub