Mohmad83 قام بنشر ديسمبر 23, 2019 مشاركة قام بنشر ديسمبر 23, 2019 السلام عليكم ورحمة الله وبركاته الاخوة اساتذة واعضاء . ارجو التفضل بعمل تعديل على كود النقر على الاسم داخل الليست بوكس يجلب بياناته الى التيكسات بوكس وذلك بعد قيامي باضافة كومبوبوكسات بدا يضهر خطأ وذلك لان الكود ادناه مصمم فقط للتيكسات بوكس ما اريده هوه تحوير الكود ادناه ليشمل التيكسات بوكس والكمبوبوكسات () 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 رابط هذا التعليق شارك More sharing options...
احمد بدره قام بنشر ديسمبر 25, 2019 مشاركة قام بنشر ديسمبر 25, 2019 معذرة للتأخير على الرد جرب هذا لعله يفي الغرض مع مرعاة أنه تم إضافة كود لإعادة الترقيم وكود لحذف الصف بشرط أن يكون الخلية في العمود B فارغة خارج الفورم والفورم يقوم باستدعائهم تلقائيًا وهذان الكودان موجوان في Module1 ht.xlsm 1 رابط هذا التعليق شارك More sharing options...
Mohmad83 قام بنشر ديسمبر 25, 2019 الكاتب مشاركة قام بنشر ديسمبر 25, 2019 جميل جدا عاشت الانامل شكرا جزيلا و زادك الله من علمه استاذ احمد بدره… تحياتي لك و وفقك الله . 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة احمد بدره قام بنشر ديسمبر 25, 2019 أفضل إجابة مشاركة قام بنشر ديسمبر 25, 2019 أشكرك لذوق حضرتك ولك بمثل ما دعوت 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان