السلام عليكم
يرجى تعديل الكود ادناه ليعمل على الرقم والاسم ، مع الاشارة بأن البحث عند كتابة الاحرف الاولى ، واريد كذلك البحث عند كتابة الارقام الاولى كما في الاحرف الاولى الموجود
جزيتم خيرا ، مع العلم بان زر البحث موجود في خانة (D)
Private Sub TextBox3_Change() Dim LastRow As Long LastRow = Range("a65535").End(xlUp).Row If ActiveSheet.TextBox3.Text <> "" Then Selection.AutoFilter Range("$a$6:$e$" & LastRow).AutoFilter Field:=3, Criteria1:= _ "=" & ActiveSheet.TextBox3.Text & "*", Operator:=xlOr Else Range("$a$4:$e$" & LastRow).AutoFilter Field:=3 End If End Sub