مطلوب كود ترحيل البيانات من list box يحتوي علي عمودين الي ورقة عمل

[أشرف محمد السيد]

http://www.fileconvoy.com/dfl.php?id=g3623542161e615d4999803865a83de24662ef0e43

 

السلام عليكم ورحمة الله و بركاته
المطلوب هو تعبئة البيانات بالشكل التي عليه في الملف الاصلي 
عن طريق USER FORM كما في الملف TEST
المشكلة الأولي :-
أن الكود طويـــــــــــل جدا مما يصعب علي مراجعة الاخطاء او حتي تعديل اي شيئ يطرا علي البرنامج
فاذا كان هناك طريقة لاختصار هذا الكود سيكون مفيد لي جدا 
طبقا لعقليتي كمبتدأ  لدي تصورين يبدوان منطقيين و لكني لا اعرف السبيل لتنفيذهم 
الاول :-  لو ان هناك شيئ شبيه بالحلقات التكرارية يمكن فعله مع ال CHECK BOX و ذلك كما ورد في الموضوع الاصلي

الثاني :- تغيير اسلوب الادخال من CHECK BOX الي LIST BOX
 

أما المشكلة الثانية 
هي أن الترحيل الي الشيتات التي تحمل ارقام (الايام) يكون تحت الجدول و لا اعرف سببا لهذا 
 

أشكركم علي تعاونكم معي ومع أمثالي من الذين يحاولون تطوير أنفسهم
و 

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