رسالة Run-time error 9 subscript out of range

[Alaaq3]

الاخوة الاعزاء ماهو الخطأ في هذا الكود كي تظهر لي هذه الرسالة ( Run-time error 9 subscript out of range)

 

فلترة.xlsm

[أ / محمد صالح]

يمكنك استعمال هذه الأكواد في النموذج

Private Sub ComboBox1_Change()
Sheet1.Range("a1").CurrentRegion.AutoFilter Field:=4, Criteria1:=ComboBox1.Value
End Sub
Private Sub ComboBox2_Change()
Sheet1.Range("a1").CurrentRegion.AutoFilter Field:=5, Criteria1:=ComboBox2.Value
End Sub
Private Sub ComboBox3_Change()
Sheet1.Range("a1").CurrentRegion.AutoFilter Field:=6, Criteria1:=ComboBox3.Value
End Sub
Private Sub CommandButton1_Click()
ComboBox1.Value = ""
ComboBox2.Value = ""
ComboBox3.Value = ""
Sheet1.Range("a1").CurrentRegion.AutoFilter
End Sub
Private Sub UserForm_Initialize()
Me.ComboBox1.List = Array("معلم", "مهندس", "فني", "مدير", "مهندس اقدم", "محامي")
For n = 1 To 12
Me.ComboBox2.AddItem n
Next n
For n = 2003 To 2022
Me.ComboBox3.AddItem n
Next n
End Sub

لاحظ طرق تعبئة combobox واستعمال currentregion

بالتوفيق 

[Alaaq3]

الاخ العزيز شكراً على سرعة الاستجابة جزاك الله خيراً . الكود يعمل بشكل جيد وكما ارت .  ولكن هل بالامكان ادراج (اليوم والشهر والسنة) في كومبو بوكس واحد . وهل بالامكان عمل كومبو بوكس يحتوي على مجموعة من الـ (CheckBox) بحيث يمكننا ان نحدد اكثر من تاريخ اثناء الفلترة وسارفق صورة توضيحية لل( كومبوبوكس يحتوي على عدد من CheckBox)

ملاحظة / اذا كان خيار CheckBox غير ممكن نكمل موضوعنا على اللست بوكس  . تحياتي

فلترة في الشهر والسنة واليوم معاً.xlsm

[عبدالفتاح في بي اكسيل]

لا  اعتقد  ذلك  ممكن  بالكومبوبوكس  فقط  بالليست  بوكس  الا اذا  اردت  ان  تقوم  بانشاء  اكثر  من كومبوبوكس  والفلترة  لنفس  العمود  واجدها  غير  عملية  اعتقد  خيار  الليست  بوكس  افضل  في هذه  الحالة 

[Alaaq3]

المشكلة في خيار اللست بوكس لا يمنحني تحديد اكثر من تاريخ . على العموم دعنا نكمل على اللست بوكس

كنت اقصد كما في الصورة واذا غير ممكن نكمل على اللست بوكس

[عبدالفتاح في بي اكسيل]

لا ادري اذا  كنت افهمك جيدا  لكن  هذا  الخيار  يجعلك تختار  اكثر  من خيار عند  الاختيار بالتشيك بوكس 

[أ / محمد صالح]

ربما يكون هذا هو المطلوب الثاني

فلترة_2.xlsm

[Alaaq3]

الاخ العزيز شكرا لتفاعلك وجزاك الله الف خير . انا عندي حقل واحد يحتوي على تاريخ (اليوم والشهر والسنة) لذلك ارت الفلترة بخانة واحدة على اليوزرفورم فقط وهي خانة السنة

فلترة (2).xlsm