اخي مجاهد2013
تفضل تصفية.xls
الكود المستخدم
Private Sub Worksheet_SelectionChange(ByVal X As Range)
Dim sw As Long
sw = Range("S2:S2000").End(xlUp).Row
If [s2] <> "" Then
Selection.AutoFilter
Range("S2:S2000" & sw).AutoFilter Field:=1, Criteria1:= _
"=" & [s2] & "*", Operator:=xlOr
Else
Range("S2:S2000" & sw).AutoFilter Field:=1
End If
End Sub