طلب المساعدة في التعديل على كود لجلب البيانات

[أب مارية]

السلام عليكم

لدي فورم مدرج به تسع ComboBox كل واحد مخصص لجلب بينات معينة كما هو موضح في الكود

لكن المشكل الذي أواجهه هو عدم جلب البيانات في حالة ما إذا كانت مكررة.

أرجو من الاخوة المساعدة في جعل الكود يجلب جميع البيانات المتعلقة بالكومبو بوكس حتى ولو كانت مكررة.

 

Private Sub UserForm_Initialize()

  Set ws = Sheets("Stocks")

  lrw = ws.Cells(Rows.Count, "B").End(xlUp).Row

  Ary = ws.Range("B12:B" & lrw).Value

ListCmb "Boitie", "ComboBox7"

ListCmb "Carte Mére", "ComboBox8"

ListCmb "Processeur", "ComboBox9"

ListCmb "Ventilateur", "ComboBox10"

ListCmb "Disque Dur", "ComboBox11"

ListCmb "Graveur", "ComboBox12"

ListCmb "Ram", "ComboBox13"

ListCmb "Carte graphique", "ComboBox14"

ListCmb "Ecran", "ComboBox15"

End Sub