كود فيجوال بيسك

[meligyabdelrhman]

السلام عليكم الأعضاء الكرام

أرجو الافادة فيما يلي

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

Sub abdelrhman()
For i = 2 To 3
For f = 1 To 4
Workbooks(i).Activate
Workbooks(i).Sheets(f).Range("a4:cz" & Cells(Rows.Count, "a").End(xlUp).Row).Copy
Workbooks("Tanmiah Payroll").Sheets(f).Activate
Workbooks("Tanmiah Payroll").Sheets(f).Range("a" & Rows.Count).End(xlUp).Rows.Offset(1, 0).Select
Selection.PasteSpecial xlPasteValues
Next f
Next i

Workbooks("Tanmiah Payroll").Sheets(5).Activate

[حسين العصلوجى]

ارفق ملف ووضح فيه مشكلتك والنتيجة المطلوبه حتي نتمكن من مساعدتك

[meligyabdelrhman]

الاستاذ حسين مشكور ردك الكريم

و لكن المشكلة انه اكثر من ورقة حيث اقوم بتجميع جدول موجود داخل 4 ورقات عمل بورقة عمل واحدة

[ياسر خليل أبو البراء]

أخي الكريم

أهلاً بك في المنتدى ونورت بين إخوانك

برجاء تغيير اسم الظهور للغة العربية والإطلاع على موضوع التوجيهات في الموضوعات المثبتة في المنتدى لمعرفة كيفية التعامل بشكل أفضل مع المنتدى

قم بضغط الملف الذي تعمل عليه ثم إرفاق لتتضح صورة طلبك ولتجد استجابة أفضل من إخوانك

تقبل تحياتي