خطأ فى كود الترحيل

[محمد7788]

السلام عليكم الملف المرفق به sheet1 لادخال البيانات والمفترض انه يرحل البيانات الى sheet2 بدايتا من العمود B فى الخلية B4 الا ان البيانات لا ترحل الى هذه الهلية وترحل الى الخلية B2وعند ادخال بيانات لعامل ثانى بعد ترحيل الاول اجده يقوم بمسح الاول وترحيل الثانى مكانه  كمان حاسس ببطء فى عملية الترحيل وانا مش عارف اضبط الموضوع ده فأرجوا المساعدة 

برنامج الاحصائيات5555 1جديد.rar

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

إذا كنت تقصد كود زر الإضافة

2 ساعات مضت, محمد7788 said:

بدايتا من العمود B فى الخلية B4 الا ان البيانات لا ترحل الى هذه الهلية وترحل الى الخلية B2

لا يتم الترحيل إلى. B2 وإنما إلى B50

وذلك بسبب قراءتك لآخر صف في sheet2 باسمها الكودي والتي تشير إلى شيت final

والصواب

Last = ورقة3.Range("B304").End(xlUp).Row + 1

بالتوفيق