تعديل كود مصفوفة لقائمة منسدلة

[ماجدجلال]

السلام عليكم ورحمة الله وبركاته 

في الملف المرفق صممت مصفوفة تقوم بعمل عناصر للقائمة المنسدلة بناء علي شرط ,,,

المشكلة انني وصلت منتصف الطريق و عجزت عن اكمال البقية ,,, 

و المشكلة تتلخص في ظهور فرعات بين عناصر هذة القائمة ارجوا منكم المساعدة ولكم جزيل الشكر ووافر الامتنان  

 

2580.rar

[عبدالله باقشير]

السلام عليكم

 

الكود خطأ

 

استبدل بهذا

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 6 To Cells(Rows.Count, "A").End(xlUp).Row
    If CStr(Cells(i, "B")) = "نعم" Then Me.ComboBox1.AddItem Cells(i, "A").Value
Next
End Sub

تحياتي

[ماجدجلال]

وعليكم السلام ورحمة الله 

ماشاء الله تبارك الله 

هذا هو المطلوب   

الف الف شكر