المساعده بتعديل الاكواد

[زياد ابو طارق]

السلام عليكم

اشكرك اخي حسين علي المتابعه

الترقيم في a 

ولجميع الصفحات من الفورم وليس معادله من الشيت

وشكرا مره ثانيه 

ولقد حذفت اليوزر الفورم الاخر وهذا الفورم المراد التعديل عليه ..... تــــم التعديل

المكتبه 1.xlsm

[حسين مامون]

بالنسبة للترقيم التلقائي جرب المرفق

المكتبه 1 (2).xlsm

[زياد ابو طارق]

بارك الله فيك اخي حسين

كمل معروفك معي ... اظهار البيانات في الليست بوكس

وهذا مثال من المطلوب

جاهز للتعديل 2.xlsm

[حسين مامون]

جرب المرفق 

المكتبه 1 (2).xlsm

[زياد ابو طارق]

اخي الكريم انظر الي المرفق التالي

وانت عدلت علي المرفق المثال ..... وانا هذا الملف المطلوب التعديل عليه

هذا هو المطلوب

والمطلوب ان يطبق علي كل الصفحات

ولو تم اضافه صفحات جديده

المكتبه 1 (2).xlsm

[حسين مامون]

جرب المرفق

انظر التجربة بالصور عندي

 

المكتبه 1 (2).xlsm

[حسين مامون]

اخي الكريم 

اولا:لديك ادوات الفورم مخطلطة بين التيكست بوكسات والكومبوبوكسات ولتعمل الاكواد لابد من التعديل 

ثانيا : هناك حلقة تكرارية خاصة لافراغ واخرى لترحيل  وتجدها هكذا for c = 1 to 12 وتعني التيكتبوكسات  وهنا يكمن المشكل عندك ، لان تيكست بوس12 مخصص للبحث ولا يمنكن ادخاله في الحلقة التكرارية

الحلقة التكرارية تحسب من 1 الى 12 من التيكسبوكسات ، ادا اين باقي التيكسبوكسات  رقم 4 و 7 و 8 و 9 في الفورم 

لهذا قمت بتعديل محتويات الفورم  الكومبوبوكس الاول غيرت اسمه الى textbox4 والتالي الى textbox7 و هكذا اما textbox12 غيرته الى textbox13  

 

عموما جرب 

في المرفق لم اقم باي تعديل في محتويات الفورم فقط الاكواد

 

المكتبه 1 (2)22.xlsm

تم تعديل نوفمبر 14, 2020 بواسطه حسين مامون

[زياد ابو طارق]

السلام عليكم

اخي حسين

بارك الله فيك وجعله بميزان حسناتكتم التعديل كما طلبت واضفت بعض التعديلات 
ولكن عند الحذف يعطيني الخطأ التالي انظر المرفق

 

 

المكتبه 1 (2) (3)معدل.xlsm

[حسين مامون]

امسح الجزء  المحاط بالاحمر

 

 

وانسخ الى مكانه هذا الجزء

TextBox2 = "": TextBox3 = "": ComboBox6 = "": TextBox5 = "": TextBox6 = "": _
ComboBox2 = "": ComboBox3 = "": ComboBox4 = "": TextBox5 = "": ComboBox5 = "": _
TextBox10 = "": TextBox11 = "":