مشكلة البحث في تكست بوكس بالأرقام

[محمد هشام.]

تواجهني مشكلة عند البحث في تكست بوكس بالرقم الوظيفي اي بالاعداد وعند البحث بالاسم بتشتغل تمام المرجوا شرح المشكلة ده من فضلكم علشان انا عاوز أعمل فلترة للجدول بواسطة تكست بوكس لما أدخل الرقم الوظيفي للموظف يفلتر مباشرة 

TEST.xlsm

[محمد حسن المحمد]

السلام عليكم 

أخي الكريم يرجى استبدال الكود في التيكست بوكس بالكود التالي:

Private Sub TextBox1_Change()
    Application.ScreenUpdating = False
        ActiveSheet.ListObjects("Data").Range.AutoFilter Field:=3, Criteria1:=[e2], Operator:=xlAnd
            If TextBox1.Value = "" Then
                ActiveSheet.ListObjects("Data").Range.AutoFilter Field:=3
            End If
    Application.ScreenUpdating = True
End Sub

تقبل تحياتي

TEST.xlsm

[محمد هشام.]

شكرا جزيلا لحضرتك تمت العملية بنجاح 👍

[محمد حسن المحمد]

الحمد لله الذي بنعمته تتم الصالحات