تعديل على كود في الكمبوبوكس

[yasse.w.2010]

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

الاساتذه الكرام ممكن المساعده في تعديل كود الملء في الكمبوبوكس

الشرح بداخل الملف

شاكر جدا لكم

ملف 1.xlsm

[سليم حاصبيا]

code

Private Sub UserForm_Initialize()
Me.Caption = "http://www.officena.net"
Dim ws As Worksheet: Set ws = Sheets("المركز المالي")
 d = ws.Cells(Rows.Count, "D").End(xlUp).Row
  Me.ComboBox1.Clear
     For c = 5 To d
      If ws.Cells(c, "D").Interior.ColorIndex <> xlNone _
        And ws.Cells(c, "D") <> vbNullString Then
        Me.ComboBox1.AddItem ws.Cells(c, "D")
      End If
    Next
End Sub

 

[yasse.w.2010]

الف الف شكر استاذنا الكبير

[yasse.w.2010]

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

الاساتذه الكرام 

هل من حل لهذا الكود في الكمبوبوكس بحيث يتم التعديل فيه ليلغي الفراغات بدون التاثير في عملية البحث

ملف 1.xlsm