السلام عليكم
الاخ الكريم / أبوحازم
بارك الله فيك
لقد قمت بوضع كود المرفق مع التعديل المذكور من الاخ / محمد عبد الصمد ... جزاه الله خيرا
ولكني بالفعل لم افهم طلبك من البداية
فمن الافضل ارفاق ملف لتوضيح المطلوب جيدا
وسيكون كودك المرفق بالشكل التالي
Private Sub TextBox1_Change()
Dim LastRow As Long
ActiveSheet.Unprotect
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
ActiveSheet.Protect
End Sub