مراجعة كود التعديل

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

https://mega.nz/file/mpAEgJTA#MLR5KRQTUDllb-ndmgNvduU_3449n_YlbFNsWtSD_1E
هذا الرابط وفيه صورة البرنامج

https://mega.nz/file/b8ASETDL#Bx-s4feSBVOgn5vXGLz0ZjVjlQxiEi80YoPXRONDHDw

الاخ احمد
حملت الملف للاسف الشغل فيه ملخبط
عند عمل فورم لابد من تساسل التكست وتسلسل الكمبوبوكس
انظر الصورة عملت المطلوب

انظر الكود المفروض التكست يبدأ ب 1 الى اخره
او يبدأ ب aa1 الى aa12 مثلا
الكود

الكود:: Private Sub ListBox1_Click()
TextBox18.Value = ListBox1.List(ListBox1.ListIndex, 0)
TextBox19.Value = ListBox1.List(ListBox1.ListIndex, 1)
TextBox20.Value = ListBox1.List(ListBox1.ListIndex, 2)
TextBox21.Value = ListBox1.List(ListBox1.ListIndex, 3)
TextBox35.Value = ListBox1.List(ListBox1.ListIndex, 4)
TextBox37.Value = ListBox1.List(ListBox1.ListIndex, 5)
ComboBox137.Value = ListBox1.List(ListBox1.ListIndex, 6)
ComboBox144.Value = ListBox1.List(ListBox1.ListIndex, 7)
End Sub
Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 8
Dim c As Long
c = Cells(Rows.Count, "a").End(xlUp).Row
ListBox1.List = Range("a1:h" & c).Value
End Sub

_________________

لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

» طلب مساعدة في اتمام مشروع تطبيقي للدروس المتابعة
» مشكلة في كود التعديل
» التعديل على الكود
» زر التعديل والحذف على يوزرفورم
» ارجو المساعدة في التعديل على الكومبوبكس