[حل شده] کار با چکباکس و OptionButton در یوزرفرم

[سید مسعود قمی]

سلام خسته نباشید
من برای یک شیت یوزر فرم ساختم در یوزرفرمی که ساختم تکسباکس، چک باکس و OptionButton قرار دادم از دوستان چند سوال دارم.
1. برای انتقال اطلاعات از تکسباکس یوزرفرم به شیت مشکلی ندارم اما نمیدونم چگونه وقتی یک یا چند چکباکس رو انتخاب و تیکشون رو زدم و یا یکی از OptionButton را انتخاب کردم. اطلاعاتشون به سلول مورد نظر منتقل بشه
2. میخوام وقتی که اطلاعات تکسباکس، چکباکس و OptionButton با زدن باتن ثبت وارد شیت شد مقدار آنها خالی و برای ثبت رکورد بعدی آماده بشه.
ممنون از راهنمایی دوستان

[misammisam]

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

CheckBox1 = False 

تا چک باکستون خالی بشه ، یا برای تکس باکس بزارید :

TextBox1.Text = Empty 

بقیه موارد هم کم و بیش همینشکلیه

[سید مسعود قمی]

سلام استاد منظورم این بود
من داخل یوزرفرمم شش تا چکباکس دارم میخوام وقتی کاربر تیک هر کدام از چکباکس ها رو زد مقدار چکباکس انتخاب شده وارد یک سلول بشه یعنی یک سلول از اکسلم با شش تا چکباکس یوزرفرمم مرتبط باشه ممکنه کاربر تیک هر شش چکباکس رو بزنه و ممکنه تیک یکی رو بزنه میخوام در هر صورت چکباکس های انتخاب شده وارد یک سلول بشه.

[iranweld]

با سلام

کدهای ذیل را تست کنید

Private Sub CheckBox1_Click()

If CheckBox1 = True Then
Range("a1") = True
Else
Range("a1") = False
End If

End Sub

Private Sub CheckBox2_Click()

If CheckBox2 = True Then
Range("a2") = True
Else
Range("a2") = False
End If

End Sub


Private Sub CheckBox3_Click()

If CheckBox3 = True Then
Range("a3") = True
Else
Range("a3") = False
End If

End Sub 

[سید مسعود قمی]

سلام استاد
من یک شیت دارم که دو تا ستون داره ستون a وضعیت تأهل و ستون b زمینه همکاری
برای اینها یک فرم ساختم که داخل فرمم
دو تا آپشن باتن برای مجرد و متأهل
و برای زمینه همکاری چهارتا چکباکس گذاشتم رانندگی، باغبانی، سرایداری، نگهبانی
میخوام وقتی کاربر دکمه ثبت رو زد مقادیر آپشن باتن به ستون a و مقادیر چکباکس ها به ستون b منتقل بشه
وقتی اطلاعات ثبت شد مقادیر آپشن باتن ها و چکباکس ها برای ثبت بعدی خالی هم بشه

- - - Updated - - -

سلام استاد
من یک شیت دارم که دو تا ستون داره ستون a وضعیت تأهل و ستون b زمینه همکاری
برای اینها یک فرم ساختم که داخل فرمم
دو تا آپشن باتن برای مجرد و متأهل
و برای زمینه همکاری چهارتا چکباکس گذاشتم رانندگی، باغبانی، سرایداری، نگهبانی
میخوام وقتی کاربر دکمه ثبت رو زد مقادیر آپشن باتن به ستون a و مقادیر چکباکس ها به ستون b منتقل بشه
وقتی اطلاعات ثبت شد مقادیر آپشن باتن ها و چکباکس ها برای ثبت بعدی خالی هم بشه

[ali.b]

سلام استاد منظورم این بود
من داخل یوزرفرمم شش تا چکباکس دارم میخوام وقتی کاربر تیک هر کدام از چکباکس ها رو زد مقدار چکباکس انتخاب شده وارد یک سلول بشه یعنی یک سلول از اکسلم با شش تا چکباکس یوزرفرمم مرتبط باشه ممکنه کاربر تیک هر شش چکباکس رو بزنه و ممکنه تیک یکی رو بزنه میخوام در هر صورت چکباکس های انتخاب شده وارد یک سلول بشه.

سلام
این کد رو در قسمت دکمه باتتن قرار بدین. اعداد 1 تا 2 (2 شماره اخرین چک باکس هست)

Sub chk()
Dim s As String
For a = 1 To 2
If Controls("CheckBox" & a).Value = True Then
            If s <> vbNullString Then s = s & "-"
            s = s & Controls("CheckBox" & a).Caption
        Sheet1.Range("a1") = s
        End If
Next a
End Sub

[سید مسعود قمی]

سلام دوست عزیز
کد خیلی خوبیه ازت ممنونم
اما باهاش یک مشکل دارم میخوام این کد بیاد آخرین ردیف خالی ستون a رو پیدا کنه و کپشن چکباکس ها رو داخل آخرین ردیف خالی ستون a بریزه
امید وارم خوب بیان کرده باشم

[ali.b]

سلام دوست عزیز
کد خیلی خوبیه ازت ممنونم
اما باهاش یک مشکل دارم میخوام این کد بیاد آخرین ردیف خالی ستون a رو پیدا کنه و کپشن چکباکس ها رو داخل آخرین ردیف خالی ستون a بریزه
امید وارم خوب بیان کرده باشم

سلام
ممنونم
به جای این کد:

[COLOR=#333333]Sheet1.Range("a1") [/COLOR]

کد زیر رو قرار بدین:

Sheet1.Range("A65536").End(xlUp).offset(1,0)

[سید مسعود قمی]

سلام دوست عزیز
این راهی که فرمودید نشد اگه راه دیگه ای هست بفرماید
منتظرتون هستم
ممنون

[misammisam]

سلام دوست عزیز
این راهی که فرمودید نشد اگه راه دیگه ای هست بفرماید
منتظرتون هستم
ممنون

کد زیر شماره آخرین سطر محدودرو بهتون میده :

lastRow = ActiveSheet.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row