تفضل اخى الكريم
هذا الكود هو اللى موجود بالملف المرفق
Private Sub TextBox1_Change()
lr = Range("B" & Rows.Count).End(xlUp).Row
ActiveSheet.Range("$A$7:$B$" & lr).AutoFilter Field:=2, Criteria1:="=" & ActiveSheet.TextBox1.Text & "*"
End Sub
وتم تعديله الى
Private Sub TextBox1_Change()
LR = Range("B" & Rows.Count).End(xlUp).Row
ActiveSheet.Range("$A$7:$B$" & LR).AutoFilter field:=2, Criteria1:="*" & ActiveSheet.TextBox1.Text & "*"
End Sub
لاحظ الفرق
جرب المرفق
تقبل تحياتى
EOTP.zip