كود نقر داخل الليست بوكس يجلب بيانات

[Mohmad83]

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

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

 () Private sub listbox1_click

For i = 0 To ListBox1.ListCount
    If ListBox1.Selected(i) = True Then
        For j = 1 To 7
               Controls("TextBox" & j).Text =      Cells(ListBox1.List(i, 1), j
        Next j
         r = ListBox1.List(i, 1)
         Exit For
    End If
Next I

End sub

ht.xlsm

[احمد بدره]

معذرة للتأخير على الرد

جرب هذا لعله يفي الغرض مع مرعاة أنه تم إضافة كود لإعادة الترقيم وكود لحذف الصف بشرط أن يكون الخلية في العمود B  فارغة  خارج الفورم 

والفورم  يقوم باستدعائهم تلقائيًا  وهذان الكودان موجوان في Module1

 

ht.xlsm

[Mohmad83]

جميل جدا عاشت الانامل شكرا جزيلا و زادك الله من علمه استاذ احمد بدره…  تحياتي لك و وفقك الله .

[احمد بدره]

أشكرك لذوق حضرتك

ولك بمثل ما دعوت