دمج عدة شيتات اكسيل في شيت واحد

[bachiri401]

السلام عليكم ورحمة الله وبركاته

اخواني الكرام

اريد كود VBA يمكنني من دمج عدة شيتات موجودة في نفس الملف بحيث يكون كل محتويات الشيت الثاني تحت محتويات الشيت الاول ومحتويات الشيت الثالث تحت محتويات الشيت الثاني وهكذا الملفين المرفقين الملف 1 به الشيتات منفصلة اريدا ان تكون مثل الملف 2  انا قمت بالعمل يدويا بالنسخ واللصق لكن عندي عدة ملفات يجب ان اقوم بعملها بنفس الطريقة لذلك اريد كود VBA  

ملاحظة الشيتات دائما لها نفس الشكل

ملف1.xlsx ملف2.xlsx

[ابراهيم الحداد]

السلام عليكم و رحمة الله

صراحة لم اطلع على الملف الثانى

ارجو ان يكون هذا الكود التالى هو المقصود

ملحوظة : قم بانشاء ورقة جديدة سمها  Colln

Sub Collection()
Dim ws As Worksheet, Sh As Worksheet
Dim LR As Long, LS As Long
Set ws = Sheets("Colln")
LR = ws.Range("F" & Rows.Count).End(3).Row
For Each Sh In Worksheets(Array("أدب عربي1", _
"أدب عربي2", "أدب عربي3", "أدب عربي4"))
LS = Sh.Range("F" & Rows.Count).End(3).Row
Sh.Range("A1:I" & LS).Copy
ws.Range("A" & LR).PasteSpecial xlPasteAll
LR = LR + LS
Next
Application.CutCopyMode = False
End Sub

 

تم تعديل نوفمبر 20 بواسطه ابراهيم الحداد

[bachiri401]

بارك الله فيك لكن الكود لا يعمل

[ابراهيم الحداد]

السلام عليكم و رحمة الله

اليك الملف

 

ملف1.xlsm