كود ترحيل

[2saad]

من فضلكم اريد ترحيل البيانات من شيت ( للنسخ من النت ) الي( شيت الصف الأول) بدون حذف الشيتات الأخري

سعد.xlsx

[lionheart]

Sub Test()
    Dim ws As Worksheet, sh As Worksheet, m As Long
    Application.ScreenUpdating = False
        Set ws = Sheet1
        Set sh = Sheet5
        m = ws.Cells(Rows.Count, 2).End(xlUp).Row
        ws.Range("A3:H" & m).Copy
        sh.Range("A3").PasteSpecial xlPasteValues
        Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

 

[2saad]

اشكر شكرا جزيلا اخي الفاضل وجعله الله في ميزان حسناتك

بعد اذن حضرتك ينفع ارحل اعمدة معينة انا اختارها .. انا اسف بتعبك معاي