كود Filter

[checles]

السلام عليكم 

برجاء المساعده في تحسين الكود حيث عند عمل Filter بيجب القيمه فقط 

محتاج يجيب كل القيمه التي تحتوي علي TextBox1

Sheet1.active

 

ActiveSheet.Range("$A$2:$AE$995").AutoFilter Field:=3, Criteria1:=Me.TextBox1.Value

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى وبركاته 

جرب هدا 

Option Explicit

Private Sub TextBox1_Change()
    Dim WS As Worksheet: Set WS = ActiveSheet
    Dim LastRow As Long, OnRng As Range
    LastRow = WS.Cells(WS.Rows.Count, 3).End(xlUp).Row

    Set OnRng = WS.Range("A2:AE" & LastRow)

    If Me.TextBox1.Value = "" Then
        If WS.AutoFilterMode Then
            WS.AutoFilterMode = False
        End If
    Else
        OnRng.AutoFilter Field:=3, _
        Criteria1:=Me.TextBox1.Value & "*", Operator:=xlOr, Criteria2:=Me.TextBox1.Value
    End If
End Sub

 

[checles]

الله يبارك في حضرتك