[حل شده] مشکل در ثبت اطلاعات از یوزرفرم

[AMIR22065]

سلام
اطلاعات ثبت شده در یوزرفرم در اکتیو شیت درج نمیشه.
میخوام خودش شماره ردیف بزنه و هر بار ه یوزرفرم پر میشه اطلاعات رو توو ردیف بعدی ثبت کنه.
شروع ثبت از ردیف 14 باشه
ممنون میشم این مشکل رو در فایل پیوست شده اصلاح کنید.
بالای صفحه با زدن دکمه ی (((ثبت اطلاعات فرم)))، فرم موردنظر باز میشه

[AMIR22065]

merge کردن بعضی از سلولها میتونه اشکال ایجاد کنه توو ثبت؟

[میثم مقدم نیا]

سلام
اطلاعات ثبت شده در یوزرفرم در اکتیو شیت درج نمیشه.
میخوام خودش شماره ردیف بزنه و هر بار ه یوزرفرم پر میشه اطلاعات رو توو ردیف بعدی ثبت کنه.
شروع ثبت از ردیف 14 باشه
ممنون میشم این مشکل رو در فایل پیوست شده اصلاح کنید.
بالای صفحه با زدن دکمه ی (((ثبت اطلاعات فرم)))، فرم موردنظر باز میشه

سلام
دوست عزیز فایل شما خالی و بدون یوزر فرم هستش لطفا فایل را برسی و مجدد ارسال کنید

[AMIR22065]

سلام
شرمنده
فایل اصلاح شد

[M_ExceL]

سلام،

last_row = Cells(Rows.Count, 1).End(3).Row + 1

خط فوق را بصورت زیر اصلاح کنید :

last_row = Cells(Rows.Count, 1).End(3).Row + 5

سپس بعدش این خط را اضافه کنید :

If last_row > 14 Then last_row = last_row - 4

و همچینین این خط :

ActiveSheet.Cells(last_row, 1) = "=ROW()-10 "

به این صورت اصلاح شود :

ActiveSheet.Cells(last_row, 1) = (last_row - 13)