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

AMIR22065

2020/12/10, 18:28

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

AMIR22065

2020/12/10, 19:05

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

میثم مقدم نیا

2020/12/11, 12:44

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

AMIR22065

2020/12/11, 13:55

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

M_ExceL

2020/12/11, 16:04

سلام،

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)