الإضافة والتعديل والحذف في كل أوراق العمل عن طريق الفورم

[احمد بدره]

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

زملائي وأخوتي الأفاضل

محاولة مني بعمل فورم بحث وإضافة وتعديل في كل أوراق العمل

اختيار اسم ورقة العمل عن طريق كمبوبوكس

بعد ذلك متاح لك البحث والإضافة في اسم ورقة العمل المختارة

كل الليبل التي أمام التكست بوكسات التي يوضع فيها البيانات التي سوف سيتم إضافتها أو ترحيلها

تأخذ اسماءها من الصف الخامس من ورقة العمل النشطة في حالة إذا تم فتح الفورم

وإليكم الملف

فورم بحث وإضافة وتعديل في كل أوراق العمل.xlsm

[حسين مامون]

استاذ احمد بدره

ماشاء الله عمل رائع

بارك الله فيك وحفظك 

اللهم اجعل هذا العمل صدقة جارية 

تحياتي

[Ali Mohamed Ali]

موضوع قيم بالفعل

بارك الله فيك وزادك الله من فضله

[مجدى يونس]

الاخ احمد بدرة

اكيد عمل رائع اهلا باعمالك من جديد

[a.kawkab]

عمل رائع استاذ احمد بارك الله فيك ولكن وجدت ملاحطتين 

1- عند التنقل بين الاوراق عن طريق الكومبوبوكس لاتتغير البيانات فى الليست بوكس

2-عند التنقل بين الاوراق والتكست بوكس غير فارغة يعطى خطأ

لذلك قمت بهذا التعديل البسيط :-

1- فى حدث UserForm_Activate اضفت هذه الجزئية 
For i = 1 To 15
""=Controls("textbox" & i).Text 
Next i
ListBox1.Clear

2-فى حدث ComboBox1_Change

وضعت هذه الجزئية

UserForm_Activate

وتلاشى الخطأ

لا اعرف هل هذة الملحوطه ظهرت عندى فقط ام ظهرت عند احد اخر

مرفق الملف بعد التعديل وشكرا لمجهوداتكم

فورم بحث وإضافة وتعديل في كل أوراق العمل1.xlsm

[احمد بدره]

أستاذي الأفاضل أ / حسين مامون و أ / علي محمد علي و أ / مجدي يونس و أ /a.kawkab

أشكرك لمروك العطر

بارك الله فيكم

و أ /a.kawkab  إضافة رائعة بارك الله فيك

تم تعديل ديسمبر 31, 2019 بواسطه احمد بدره