هل يوجد كود فلترة مزدوج

[ايهاب سعيد]

مرفق ملف لتوضيح المطلوب

وهل يوجد امكانية لاظهار المجموع طبقا لتلك المتغيرات

مع الشكر والتقدير

Book1.rar

[طارق محمود]

السلام عليكم

أخي العزيز

ضع الكود التالي في حدث الورقة

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address <> "$H$2" Then Exit Sub

LR = Cells.SpecialCells(xlCellTypeLastCell).Row - 1

    Range("A2:E" & LR).Select

    Selection.AutoFilter

    Selection.AutoFilter Field:=2, Criteria1:=[H2]

    Selection.AutoFilter Field:=1, Criteria1:="="

End Sub

[طارق محمود]

وهذا هو الملف وبه الكود

Book1_T.rar

[ايهاب سعيد]

ممتاز اخي محمود ولكن عندما امسح الخلية h2 لا تظهر اي معلومة واريد ان يظهر كل السجلات مع الشكر والتقدير

[جمال عبد السميع]

بعد إذن مهندس المعلومة الراقية وأستاذي العظيم ( طارق ) هذا حل أخر بالمعادلات أتمني أن تكون مشاركة شرفية بجانب روائعك العظيمة

Book1.rar

[الـعيدروس]

بعد اذن استاذي طارق محمود

بيكون التعديل على الكود كالتالي

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address <> "$H$2" Then Exit Sub

If Target = "" Then Cells.AutoFilter: Exit Sub

LR = Cells.SpecialCells(xlCellTypeLastCell).Row - 1

    Range("A2:E" & LR).Select

    Selection.AutoFilter

    Selection.AutoFilter Field:=2, Criteria1:=[H2]

    Selection.AutoFilter Field:=1, Criteria1:="="

End Sub