السلام عليكم
بعد اذن اخي جمال
هذا الكود بالتصفية المتقدمة بالكود
والمعيار عبارة عن معادلة
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("E2").Address Then
If IsEmpty(Target) Then
If Me.FilterMode Then Me.ShowAllData
Else
Range("B2").CurrentRegion.AdvancedFilter xlFilterInPlace, Range("H1:H2")
End If
End If
End Sub
المرفق 2003
mm.rar