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

[ابواليسر]

السلام عليكم .. لا وجود لأى مشاركة بدون التحية ,,عملت كود استيراد بيانات من ملف اكسيل خارجي به ورقة عمل بها مجموعة من الاسماء وكل اسم له ورقة عمل اخرى بها جدول به بيانات الكود مكرر بعدد اوراق العمل لذلك فهو كبير واذا زادت الاسماء سوف يزيد حجمه

لذا ارجوا تبسيط الكود بحيث مهما زادت الاسماء واوراق العمل لا يبدو كبيرا مع امكانية مسح البيانات القديمه قبل الاستيراد

ويوجد كود اخر لمسح البيانات ارجو تبسيطه  ..والشكر مقدما للجميع

يمكن تبسيط الكود بالحلقات التكرارية ..بحاول ولم استطع لان سيكون به حلقتان احدهما للنسخ والاخرى للصق

file.rar

[عبدالفتاح في بي اكسيل]

لما  لا  تقوم  بدمجهم  كلهم  بصفحة  واحدة  في  نفس  الملف .

[ابواليسر]

انا بصمم برنامج والملف الذي به البيانات يتم استخراجه من الجدول المدرسي الخاص بالمستخدم  واسماء الشيتات تختلف من مستخدم لاخر والمطلوب ان استورد هذه البيانات للبرنامج ..بمعنى اخر الملف الذي به البيانات لن يكون في متناولى كمصمم 

 

[عبدالفتاح في بي اكسيل]

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

ملاحظة:  لماذا  في  ملف  الجداول  كل  جدول  يبدا  من السبت  الى  الاربعاء  ويحتوي  على  عمود  به  0 بينما  عند  استيراد  البيانات  في  ملف الاستيراد يبدا من الاحد  الى الخميس  ولا يوجد  العمود  الذي  يحتوي  على 0 (  اختلاف  في  تركيبة الجدول ) ..كيف  سيتم  الاستيراد  في  هذه  الحالة ؟

 

[ابواليسر]

الحمد لله توصلت لتبسيط الكود بالحلقات التكرارية

For r = 1 To 100
If Cells(r, 21) = "" Then Exit For
mhname = Cells(r, 21).Value
ok.Activate
Worksheets(mhname).Select
Range("c3:j12").Copy
ThisWorkbook.Activate
Sheets("æÑÞÉ1").Select
Cells(r * 13, 2).PasteSpecial xlPasteAllMergingConditionalFormats
Next