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