ربط 2 كومبو بوكس ببعض

[mahmoud20212021]

لو سمحت أستاذى أنا أريد أن ادمج 2 كومبوبوكس ببعض ولكن لا أعرف الطريقة فأنا أريد عندما أختار صنف من الكومبو الأول يظهر أصناف فى الكومبو الأخر تخص الأختيار الأول
أرجو منكم أفادتى بهذا الموضوعمثال.xlsm

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

جرب هذا الملف (مع الكود المطلوب)

Option Explicit
Dim sh As Worksheet
Dim ObjA As Object
Dim ObjB As Object
Dim Ro%
'+++++++++++++++++++++++++++++
Sub Show_User()
UserForm1.Show 0
End Sub
'++++++++++++++++++++++++++++
Sub Debut()
 Set sh = Sheets("Sheet1")
 Set ObjA = CreateObject("Scripting.Dictionary")
 Set ObjB = CreateObject("Scripting.Dictionary")
 Ro = sh.Cells(Rows.Count, 1).End(3).Row
End Sub
Sub Fil_ComB_1()
 Debut
 Dim i
  For i = 2 To Ro
   ObjA(sh.Cells(i, 1).Value) = vbNullString
  Next
  With UserForm1.ComboBox1
    .List = ObjA.keys: .Value = ObjA.keys()(0)
  End With
End Sub
'+++++++++++++++++++++++++++++++++++++
Sub Fil_ComB_2()
 Debut
  Dim k

  If UserForm1.ComboBox1.Value = vbNullString Then Exit Sub
  For k = 2 To Ro
   If sh.Cells(k, 1) = UserForm1.ComboBox1.Value Then
    ObjB(sh.Cells(k, 2).Value) = vbNullString
    End If
   Next
   If ObjB.Count Then
   With UserForm1.ComboBox2
     .List = ObjB.keys: .Value = ObjB.keys()(0)
     .SetFocus
   End With
  End If
End Sub

الملف مرفق

Mhd_2021.xlsm

[mahmoud20212021]

شكرا كثيرا استاذ سليم جزاك الله كل خير 

جارى التجربة