نرجوم منكم التعديل في كود الترحيل

[ahmed040473]

السلام عليكم الكود التالي هو ترحيل لبيانات من صفحة إلى أخرى المشكل انه يرحل من الصف 10 إلى نهاية الصفحة وانا أريد أن يتوقف الترحيل إلى غاية الصف 21 حاولت ولكن لم استطع فنرجو من الأخوة تقديم المساعدة

Sub TARHIL()
x = Month([s6].Value)
Sheets(9).Activate
Range("a10:u" & Cells(Rows.Count, "u").End(xlUp).Row).Copy
Sheets(x + 10).Activate
lr = Range("z" & Rows.Count).End(xlUp).Row
Range("a" & lr + 2).Select
Selection.PasteSpecial xlPasteValues
Sheets(9).Activate
Range("s6").Select
End Sub

 

 

 

[lionheart]

Replace this line

Range("a10:u" & Cells(Rows.Count, "u").End(xlUp).Row).Copy

With this line

Range("a10:u21").Copy

 

[ahmed040473]

شكرا المشكل انه في الترحيل الثاني يحذف البيانات المرحلة سابقا وأنا أريد البيانات السابقة أن تبقى كما هي

 

 

[عبدللرحيم]

ارفع ملف