ما الخطأ في هذا الكود

[2saad]

اخواني اعضاء المندي الكرام بعد سلام الله عليكم ورحمة الله وبركاته

اريد ان اعرف ما الخطأ في كود الترحيل هذا 

ولكم جزيل الشكر ووافر الاحترامالصف الأول.xlsm

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

الخطأ هو أن العمود رقم 9 فارغ ولا يتم ترحيل بيانات إليه

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

erow = sh1.Cells(Rows.Count, 9).End(xlUp).Offset(1, 0).Row

إلى

erow = sh1.Cells(Rows.Count, 4).End(xlUp).Offset(1, 0).Row

بالتوفيق

[2saad]

بارك الله فيك وأكثر الله من امثالك

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

خالص الدعوات بالتوفيق للجميع