اخي
On Error Resume Next
هذا امر يفيد في بعض الاشياء و تعلمنا عدم استعمالة الا علي مستوي ضيق جدا
فمعناة تجاهل الحطأ و الانتقال للامر الذي يلي الخطأ
Dim c As Range
و هو تعريف لحرف ال C و التعامل معاه علي انه خلية
ComboBox2.Clea
معناه ان الكمبوبوكس 2 يتم مسح محتوياتها
For Each c In [b1:f1]
عمل حلقة اختبار لكل خلية في المدي b1:f1
If c.Text = ComboBox1.Text Then
لو ان النص داخل الخلية = النص الموجود في الكمبوبوكس1
For i = 2 To 6
عمل حلقة تكرارية ممن الص الثاني الي السادس
ComboBox2.AddItem Cells(i, c.Column)
يتم اضافة بند للقائمة المنسدلة و الذي يكون في الخلية الموجوده في الصف الاول و هو 2 و الموجودة ايضا في عمود الخلية التي تساوت سابقا مع الكبوبوكس1
Next
و يتم التكرار حتي اخر خلية في المدي b1:f1
End If
اغلاق قاعدة if
Next
و يتم التكرار حتي الصف 6 لاضافة بنود الكمبوبوكس2
تحياتي
ُ