طلب تجميع اكثر من ورقة في ورقة جديدة في نفس ملف الاكسيل

[warda123]

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

اخوتي في الله

بعد اذن حضراتكم لدي ملف اكسيل به اكثر من ورقة عمل اريد عمل صفحة جديدة في نفس الملف  يتم فيها دمج البيانات وتجميعها بها تلقائيا بحيث عند اضافة بيانات في ورقة العمل رقم 1 يتم اضافة البيانات في الصفحة الجديدة وعند اضافة بيانات بالورقة رقم 2 تضاف وهكذا (بمعني ان يكون البيانات في الصفحة الجديدة تتم اضافتها تلقائيا من باقي اوراق العمل الاخرى بنفس الملف وإذا تم حذف بيانات من اوراق العمل يتم حذفها من الورقة الجديدة )

شكرا لكم ولمجهودكم

ووفقكم الله لما يحبه ويرضاه

[warda123]

اسف اخي العزيز

هذا هو الملف 

‏‏تجميع.xlsx

[سليم حاصبيا]

جرب هذا الكود

Option Explicit

Sub TAJMI3()
Dim MY_SH As Worksheet, SH As Worksheet
Dim r%, m%, col%
m = 5
Set MY_SH = Sheets("تجميع")
MY_SH.Range("B5").Resize(5000, 50).ClearContents
 
 For Each SH In Sheets
    If SH.Name <> MY_SH.Name Then
      r = SH.Cells(Rows.Count, 2).End(3).Row
      col = SH.Cells(5, Columns.Count).End(1).Column
      MY_SH.Cells(m, 2).Resize(r - 4, col).Value = _
      SH.Cells(5, 2).Resize(r - 4, col).Value
      m = m + r - 4
    End If
 Next

الملف مرفق

All_sh.xlsm

[warda123]

أستاذ سليم الملف عند وضع قيمة جديدة في الشيتات لا استطيع ايجادها في شيت التجميع

[سليم حاصبيا]

يجب تحديث البيانات بالضغط على الزر    اضغط هنا                                                 

[warda123]

أستاذى الكريم تظهر لي هذه الرسالة

[Ali Mohamed Ali]

تفضل بالتأكيد بعد اذن استاذنا الكبير سليم-تم تغيير اسم الصفحة تجميع الى Collection لحسن عمل الكود وذلك ما ينبه اليه استاذنا الكبير سليم دائماً الى جعل اسماء الصفحات بالإنجليزية لحسن وكفاءة عمل الكود

 

All_sh2.xlsm

[warda123]

تمام كدا 

الف شكرا ليكم وجزاكم الله خير الجزاء