ارجو افادتى للاهمية ولكم جزيل الشكر مطلوب للاهمية التجميع فى شيت

[حسام فوزى]

 

ارجو افادتى للاهمية ولكم جزيل الشكر

وضع البيانات الموجودة بشيت 1 و 2 و 3 فى شيت 4 بمجرد الضغط

على زر بدون اى فواصل

 

شكرا للاهمية

المطلوب.zip

[ياسر خليل أبو البراء]

السلام عليكم أخي الكريم حسام

جرب الكود التالي ...

Sub Test()
    Dim ws As Worksheet
    Dim sh As Worksheet
    Dim lr As Long
    
    Set sh = Sheet4
    sh.Range("A5:F1000").ClearContents
    
    Application.ScreenUpdating = False
        For Each ws In ThisWorkbook.Worksheets
            If ws.Name <> sh.Name Then
                lr = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1
                
                ws.Range("A5:F" & ws.Cells(Rows.Count, 1).End(xlUp).Row).Copy
                sh.Range("A" & lr).PasteSpecial xlPasteValues
            End If
        Next ws
        Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

 

[حسام فوزى]

الف الف الف مليون شكر 

هو المطلوب

[ياسر خليل أبو البراء]

الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات

تقبل تحياتي