ahmed040473 قام بنشر فبراير 2, 2022 مشاركة قام بنشر فبراير 2, 2022 السلام عليكم الكود التالي هو ترحيل لبيانات من صفحة إلى أخرى المشكل انه يرحل من الصف 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 رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر فبراير 2, 2022 مشاركة قام بنشر فبراير 2, 2022 Replace this line Range("a10:u" & Cells(Rows.Count, "u").End(xlUp).Row).Copy With this line Range("a10:u21").Copy رابط هذا التعليق شارك More sharing options...
ahmed040473 قام بنشر فبراير 2, 2022 الكاتب مشاركة قام بنشر فبراير 2, 2022 شكرا المشكل انه في الترحيل الثاني يحذف البيانات المرحلة سابقا وأنا أريد البيانات السابقة أن تبقى كما هي رابط هذا التعليق شارك More sharing options...
عبدللرحيم قام بنشر فبراير 2, 2022 مشاركة قام بنشر فبراير 2, 2022 ارفع ملف رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.