meligyabdelrhman قام بنشر مارس 30, 2016 قام بنشر مارس 30, 2016 السلام عليكم الأعضاء الكرام أرجو الافادة فيما يلي استخدم الكود التالي لتجميع اكثر من ورقة عمل داخل ورقة واحدة و لكن يحدث أنه يقوم بالتجميع الخاطئ حيث لا يأخذ النطاق كما موضح بالكود 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
حسين العصلوجى قام بنشر مارس 30, 2016 قام بنشر مارس 30, 2016 ارفق ملف ووضح فيه مشكلتك والنتيجة المطلوبه حتي نتمكن من مساعدتك
meligyabdelrhman قام بنشر مارس 30, 2016 الكاتب قام بنشر مارس 30, 2016 الاستاذ حسين مشكور ردك الكريم و لكن المشكلة انه اكثر من ورقة حيث اقوم بتجميع جدول موجود داخل 4 ورقات عمل بورقة عمل واحدة
ياسر خليل أبو البراء قام بنشر مارس 31, 2016 قام بنشر مارس 31, 2016 أخي الكريم أهلاً بك في المنتدى ونورت بين إخوانك برجاء تغيير اسم الظهور للغة العربية والإطلاع على موضوع التوجيهات في الموضوعات المثبتة في المنتدى لمعرفة كيفية التعامل بشكل أفضل مع المنتدى قم بضغط الملف الذي تعمل عليه ثم إرفاق لتتضح صورة طلبك ولتجد استجابة أفضل من إخوانك تقبل تحياتي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.