مساعدة فى الترحيل

[shobaky]

ارجو المساعدة فى ترحيل بيانات هذا الملف

55.rar

[طارق محمود]

السلام عليكم

أخي العزيز

 

غير الكود بالتالي

Sub Macro4()
LR = [B9999].End(xlUp).Row
If LR < 7 Then LR = 6

LR2 = [J9999].End(xlUp).Row + 1
If LR2 < 7 Then LR2 = 6

    Range("B6:B" & LR).Copy Cells(LR2, "J")
    Range("C6:D" & LR).Copy Cells(LR2, "L")
    Range("B6:D" & LR).ClearContents
End Sub 

 

أو تفضل المرفق

55_T.rar

[shobaky]

الف شكر استاذ طارق على مجهودك

تقبل الله منك كل عمل صالح