مساعدة فى تعديل كود للبحث الذكي داخل جدول

[MOH_SHERIF]

السلام عليكم

برجاء المساعدة فى تعديل كود للبحث داخل الحدول المرفق حيث يتم كتابة ما نبحث عنه فى التيكست بوكس المسمي search

ونطاق البحث هو الجدول 

شكرا

Arch2022.xlsm

[أ / محمد صالح]

عليكم السلام

جرب تعدبل كود تغيير مربغ النص الى

Private Sub TextBox1_Change()
If TextBox1.Text <> "" Then
    ActiveSheet.ListObjects("data2").Range.AutoFilter Field:=4, Criteria1:="=" & TextBox1.Text & "*", Operator:=xlOr
Else
    ActiveSheet.ListObjects("data2").Range.AutoFilter Field:=4
End If
End Sub

بالتوفيق

[MOH_SHERIF]

السلام عليكم  ...شكرا جزيلا استاذ محمد صالح  أ-محمد-صالح  ...جعله الله فى ميزان حسناتك