تعديل على كود AutoFilter

[أيسم إبراهيم]

السلام عليكم جميعا

أرجوا التعديل على الكود التالي بحيث يقوم بعمل تصفية تلقائية للبند ( مسلم و أيضا مسلمة ) أقصد كل المسلمين

Range("A5:O6").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=5, Criteria1:="مسلم"
End Sub

[omar1]

السلام عليكم

الاخ / ايسم

جرب الكود التالي

    Selection.AutoFilter Field:=1, Criteria1:="=مسلم", Operator:=xlOr, _
        Criteria2:="=مسلمة"

[أيسم إبراهيم]

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