السلام عليكم الأعضاء الكرام
أرجو الافادة فيما يلي
استخدم الكود التالي لتجميع اكثر من ورقة عمل داخل ورقة واحدة و لكن يحدث أنه يقوم بالتجميع الخاطئ حيث لا يأخذ النطاق كما موضح بالكود
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