كود ترحيل

[2saad]

لو سمحتم أعضاء المنتدي الكرام

عايز ارحل البيانات الموجودة في شيت 1 وشيت2 وشيت3   من( k5 الي x)

 الي شيت  saad  من (c5)

ولكم جزيل الشكرalla.xlsm

[lionheart]

Here's the code and please try to learn from the solutions as it is a bad attitude to wait the help all the time from other people

Sub Test()
    Dim a, e, sh As Worksheet, f As Boolean, lr As Long, r As Long
    Application.ScreenUpdating = False
        Set sh = ThisWorkbook.Worksheets("Saad")
        f = True: sh.Cells.ClearContents
        For Each e In Array("Sheet1", "Sheet2", "Sheet3")
            With ThisWorkbook.Worksheets(e)
                lr = .Cells(Rows.Count, "M").End(xlUp).Row
                a = .Range("K5:X" & lr).Value
                If f Then r = 5: f = False Else r = sh.Cells(Rows.Count, "C").End(xlUp).Row + 1
                sh.Cells(r, "C").Resize(UBound(a, 1), UBound(a, 2)).Value = a
            End With
        Next e
    Application.ScreenUpdating = True
End Sub

 

[2saad]

شكرا جزيلا استاذنا الفاضل