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

[Alaaq3]

لدي مشكلة في هذا الكود عندما اقوم باختيار الكل فأن البيانات تختفي

Private Sub ComboBox1_Change()
ActiveSheet.Range("B2").CurrentRegion.AutoFilter Field:=2, Criteria1:=ComboBox1.Value
End Sub
Private Sub UserForm_Initialize()
ComboBox1.List = Array("الكل", "ذكر", "انثى")
End Sub

الجنس.xlsm

[omar elhosseini]

ActiveSheet.AutoFilter.Range
ActiveSheet.Paste

علي طريقة جحا

[Alaaq3]

اخي الكريم ارفقت ملف ياريت تطلع عليه وتقوم بتعديله

[omar elhosseini]

شاهد المرفق اخي

الجنس.xlsm

[Alaaq3]

شكرا لك اخي العزيز . جزاك الله الف خير