محصول به سبد خرید شما اضافه شد.
پنل کاربری
پاسخ داده شد
0
1

باسلام و احترام

من فایلی دارم دارای چند شیت که مرخصی کارکنان رو در آن ثبت می کنم  و هر شیت مربوط به  یک نفر می باشد فرمی ساختم که با وارد کردن کد پرسنلی اطلاعات یوزرفرم به شیت مربوط به آن کد پرسنلی منتقل و درج میشود حالا مشکل من اینه که موقعی که اطلاعات رو ثبت میکنم از سطر یک شروع به ثبت داده ها نمیکند مثلا اگر یکی از شیت ها سه تا از سطر هاش پر باشه برای شیت بعدی از سطرچهارشروع به ثبت داده می کندلطفاً راهنمایی کنید کد های نوشته شده برابر عکس پیوست می باشد

یوزر فرم
به اشتراک گذاشتن
  • شما باید برای ارسال دیدگاه شوید
فیلتر
مرتب‌سازی بر اساس: بیشترین رأی
ارسال پاسخ
پاسخ عالی
0
1

اين خط از کد را

lastcount = Cells(Rows.Count, 1).End(xlUp).row

داخل With  قرار دهید در خط اول

With Worksheets(sht_name)
lastcount = .Cells(Rows.Count, 1).End(xlUp).row

        ساير کدها

End With

  • شما باید برای ارسال دیدگاه شوید
0
0

سلام خدمت شما جناب سلیمانی عزیز تشکر میکنم از لطف شما و اینکه با حوصله پاسخگوی سوالات هستید من تا حالا توی چند گروه و سایت سوالاتی رو پرسیدم اما هیچ کدام مثل شما پاسخگو نبودندخوشحالم که با سایت شما آشنا شدم و از شما و مطالب خوب سایت تون استفاده میکنم .بازم تشکر میکنم

  • رسول سلیمانی
    ممنون خوشحالم که مفید بوده برات،، لطفاً اگر پاسخ درست را دریافت کردید آن را به عنوان پاسخ درست انتخاب کنید تشکر
  • شما باید برای ارسال دیدگاه شوید
0
0

سلام علي

فایلی یا تصویری پیوست نشده است اما با توجه به آنچه گفتین احتمالا از کدی همانند

Range (“a1”).end(xldown).offset(1,0)

برای پیدا کردن اولین ردیف خالی استفاده می کنید. شما باید بعد از پیدا کردن شیت مربوط به کد پرسنلی، از نام آن شیت برای پیدا کردن اولین ردیف خالی استفاده کنید برای مثال:

Sheet3.Range (“a1”).end(xldown).offset(1,0)

  • شما باید برای ارسال دیدگاه شوید
0
0

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

بارگزاری فایل
20241222_130736_911396869.jpg
  • شما باید برای ارسال دیدگاه شوید
نمایش 4 نتیجه
پاسخ شما
نویسنده مهمان
اگر حساب کاربری دارید . در هر صورت می توانید به عنوان کاربر مهمان سوال یا پاسخ خود را ارسال نمایید
نام*
ایمیل*
بارگزاری فایل
نام فایل اندازه
در حال حاضر هیچ فایلی بارگذاری نشده است.
حداکثر تعداد فایل ها 4، حداکثر اندازه فایل 2MB.
فرمت های فایل پشتیبانی شده: txt pdf zip jpg png jpeg xlsx xlsm

محصولات

مطالب پربازدید

keyboard_arrow_up