السلام عليكم و رحمة الله
لدي العديد من الملفات حوالي 265 ملف و كل ملف يحتوي معلومات معينة و عدد الاوراق اثنان و نفس الاسم للاوراق و كل ملف باسم معين و نفس الجدول في الاوراق كلها
اقوم بالتجميع بملف ماكرو حيث يقوم بالتجميع من كل الملفات و كل ملف على حدى . يقوم بفتح الملف و اخذ المعلومات الى ملف التجميع و يغلقه و من ثم الى باقي الملفات
عند كتابتي للماكرو اكتبه 256 مرة و احدد اسم الملف المراد اخذ المعلومات منه و نسخ و لصقها الى ملف التجميع .
و الحيلة التي استعملها هي استعمال ليست في الاكسال و تعيين مسار الملفات حيث يضع لي كل الملفات الموجودة بالمجلد و من ثم انسخ نفس الماكرو في صفحة الاكسال و بمعادلة فوركاب اقوم بتغيير اسم الملف في المكرو و يقوم بوضع 256 مكرو منفرد و اجمعها بالنسخ و اللصق في الموديل و اقوم بتطبيق المكرو
. اريد وضع مكرو واحد اوضح له عدد او مكان الملفات مهما كان اسمها و مهما كان تعدادها و هو يقوم بالتجميع في الصفحة .
و هذا مثال للعمل على ملف واحد
Sub nad()
Workbooks.Open Filename:= _
"C:nadjibRD1_120101.xlsm"
ActiveSheet.Unprotect Password:="12"
Sheets("RD").Range("a2:K200" & Cells(Rows.Count, "c").End(xlUp).Row).Copy
Workbooks("ALL.xlsm").Sheets("n").Activate
Workbooks("ALL.xlsm").Sheets("n").Range("c" & Rows.Count).End(xlUp).Rows.Offset(1, 0).Select
Selection.PasteSpecial xlPasteValues
Windows("RD1_120101.xlsm").Activate
Application.CutCopyMode = False
ActiveWindow.Close
End Sub
السلام عليكم ورحمة الله
يعتمد طول النطاق على العمود الاول فى كل شيت
اذا كان هذا يسبب اغفال بعض النتائج يمكنك الدخول الى الماكرو و تغيير العمود الذى يعول
عليه نطاق الشيت الذى يستمد منه النتائج
اليك الملف بعد التعديل
عرض الإجابة
[2]
تجميع العديد من الملفات في ملف واحد
تحميل محتوى الموضوع
عرض نسخة صالحة للطباعة
أرسل هذا الموضوع إلى صديق
