جمع صفحات المصنف

[مراد بديار]

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

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

جمع الصفحات.rar

[شوقي ربيع]

السلام عليكم

تفضل اخي

Sub test()
Dim Sh As Worksheet
Dim i As Integer, r As Integer
Dim Lr As Long, Lrr As Long

Set Sh = ThisWorkbook.Sheets("áãÌãæÚ")
Sh.Range("A2:E1000").Clear
For i = 2 To Worksheets.Count
    Lrr = Sheets(i).Cells(Rows.Count, 1).End(xlUp).Row
    For r = 2 To Lrr
        ary = Array(Sheets(i).Range("A" & r), Sheets(i).Range("B" & r) _
              , Sheets(i).Range("C" & r), Sheets(i).Range("D" & r) _
              , "ÕÝÍÉ   " & Sheets(i).Name)
        Lr = Sh.Cells(Rows.Count, 1).End(xlUp).Row + 1
        Sh.Range("A" & Lr).Resize(1, 5) = ary
    Next
Next

End Sub

جمع الصفحات.rar

[عادل ابوزيد]

الاستاذ شوقى ربيع

عمل ممتاز من معلم ممتاز

بارك الله لك وفيك

[مراد بديار]

بارك الله لك وفيك

[شوقي ربيع]

السلام عليكم

الاخ عادل ابو زيد
الاخ مراد بديار

شكرا لتعقيبكما

ولاشكر على واجب

تحياتي

[أبو محمد عباس]

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

الاستاذ والاخ الحبيب شوقي ربيع المبدع دائما

عمل فوق الرائع

جعله الله سبحانه وتعالى في ميزان حسناتك

تقبل فائق احترامي وتقديري

وكل عام وانتم بالف خير

[شوقي ربيع]

 

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

الاستاذ والاخ الحبيب شوقي ربيع المبدع دائما

عمل فوق الرائع

جعله الله سبحانه وتعالى في ميزان حسناتك

تقبل فائق احترامي وتقديري

وكل عام وانتم بالف خير

 

جزاك الله خيرا

شكرا جزيلا لكلماتك الجميلة

تحياتي