كود تحويل خانات معينه

[sam_farh]

السلام عليكم اصدقائي العباقره

عندي كود ترحبل من صفحه لخانات معينه الي صفحه اخري ولكن اريد عند الترحيل البيانات تنزل بعد اخر بيانات موجوده متنزلش في اول سطر بدون مسح البيانات من الصفحه المحول منها 

عرض 3.xlsb

تم تعديل أكتوبر 19, 2023 بواسطه sam_farh
خطاء

[أ / محمد صالح]

آخر صف يتم حسابه على العمود A والصواب العمود B لأن A فارغ

يمكنك تغيير هذا السطر

lr = .Cells(.Rows.Count, "A").End(xlUp).Row

إلى

lr = .Cells(.Rows.Count, "B").End(xlUp).Row

ولا يقوم الكود بحذف المصدر

بالتوفيق

[sam_farh]

الله يكرمك يا غالي بس ممكن اتقل علي حضرتك ونخلي الكود لو لقي نفس رقم الوثيقه يرفض يرحل