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

[AMIR22065]

سلام
اول اینکه من به شدت مبتدی هستم. با جستجو توو سایت و استفاده از یه سری فایلهای آماده، پروژه خودمو تا یه مرحله رسوندم اما ایراداتی دارم.
1) اینکه با زدن دکمه ی ثبت اطلاعات یوزرفرم توو شیت مربوطه وارد نمیشه و فقط تاریخ توو سلول انتخاب شده وارد میشه
2) اینکه چطور میشه شماره ردیف اتوماتیک وارد شده طوری که با حذف کردن ی ردیف شماره ها تغییر کنه

[AMIR22065]

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

[M_ExceL]

سلام
اول اینکه من به شدت مبتدی هستم. با جستجو توو سایت و استفاده از یه سری فایلهای آماده، پروژه خودمو تا یه مرحله رسوندم اما ایراداتی دارم.
1) اینکه با زدن دکمه ی ثبت اطلاعات یوزرفرم توو شیت مربوطه وارد نمیشه و فقط تاریخ توو سلول انتخاب شده وارد میشه
2) اینکه چطور میشه شماره ردیف اتوماتیک وارد شده طوری که با حذف کردن ی ردیف شماره ها تغییر کنه

سلام،
چک نمایید

[AMIR22065]

- - - Updated - - -

سلام،
چک نمایید

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

[AMIR22065]

سلام مجدد
اشکالات قبلی رفع شدن
فقط دکمه ی حذف ردیف توو هر شیت چطور میتونم اضافه کنم طوری که شماره ردیفها از یک شمارش بشه؟
مثلا اگه خواستم ردیف 4 رو حذف کنم اتوماتیک شماره ها هم مرتب بشه
و اینکه توو قسمت ساعت کدی هست که بصورت خودکار بین ساعت و دقیقه علامت نقل قول : بزاره؟

[M_ExceL]

سلام مجدد
اشکالات قبلی رفع شدن
فقط دکمه ی حذف ردیف توو هر شیت چطور میتونم اضافه کنم طوری که شماره ردیفها از یک شمارش بشه؟
مثلا اگه خواستم ردیف 4 رو حذف کنم اتوماتیک شماره ها هم مرتب بشه
و اینکه توو قسمت ساعت کدی هست که بصورت خودکار بین ساعت و دقیقه علامت نقل قول : بزاره؟

سلام
یک فرم داشته باشید کافی می باشد
برای ثبت اطلاعات در شیت فعال زمانی که فرم باز است از ActiveSheet درابتدای Cells استفاده کنید

ActiveSheet.Cells(last_row, 1) = Me.TextBox1.Text

برای ردیف می تونید از کد زیر استفاده کنید :

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

برای ساعت در قسمت ایونت چنج TextBox3 از کد زیر می تونید استفاده کنید :

If IsNumeric(Me.TextBox3.Text) And Len(Me.TextBox3.Value) = 4 Then
    Me.TextBox3.Text = Format(Me.TextBox3.Text, "##:##")
End If

[AMIR22065]

سلام
بسیار سپاسگزارم. حل شد.
سوالات دیگه ای هم دارم انشالله به موقع میپرسم و مزاحمتون میشم