البحث بالتكست بوكس بأول رقم

[أبوحازم]

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

WINDA PAKING1.rar

[أبو حنــــين]

السلام عليكم

استعمل هذا الكود

Private Sub TextBox1_Change()
Dim LastRow As Long
LastRow = Range("A65535").End(xlUp).Row
    If TextBox1.Text <> "" Then
        Selection.AutoFilter
        Range("$A$5:$K$" & LastRow).AutoFilter Field:=1, Criteria1:= _
            "=" & TextBox1.Text & "*", Operator:=xlOr
    Else
        Range("$A$5:$K$" & LastRow).AutoFilter Field:=1
    End If

End Sub

[إبراهيم ابوليله]

اخى ابو حنين

اكوادك دائما ما تكون فى

غاية الجمال بارك الله فيك

تقبل تحياتى

[أبو حنــــين]

اخي ابراهيم

جزاكم الله خيرا