مساعدة في ربط OptionButton بجدول

[رشراش]

ارجو ان اجد من يضع لي اكواد هذا الفورم....

لانه بالاساس يهمنيOptionButton  

شكرا

OptionButton.rar

[رشراش]

اعتقد ان الموضوع هذا لم يمر عليه احد اساتذتنا ولا حتى هوَّات ال VB

سننتظر والاكيد ستمر استاذي من هنا... تحية لك مسبقا

 

[رشراش]

الاكيد لست الوحيد الذي يريد هذا الفورم

سننتظر والاكيد ستمر استاذي من هنا... تحية لك مسبقا

 

[رشراش]

تأتي او لا تأتي او إفعل بملفي ما تشاء...

سأنتظرك استاذي بعد الفطور وعند الغداء وحتى بعد صلاة العشاء..

فأنت يا استاذي لا مفر لك من مساعدتي اليوم او غداً او متى مررت من  هنا...

....

 

[رشراش]

 ساظل منتظرا دوري.... ولو استمر طلبي جاثما هنا....

....

 

[رشراش]

 ساظل منتظرا دوري.... ولو استمر طلبي جاثما هنا......

[رشراش]

هل طلبي هذا مستحيل؟!

أم ان اساتذتنا لم يمروا من هنا!؟

سانتظر..... سأظل قابعا هنا حتى تنهال الحلول... ورمضان مبارك  ☺👼☺👼

[رشراش]

....... يوم آخر يمر...... شكرا لكل كن مر من هنا 👈🚩📍

[رشراش]

رمضان مبارك ☺👼 💜❤💖

[am3h80]

جرب الكود ده مع ترتيب اداة optionbutton في كل frame

وجاري عمل حلقة علي الاداة لكي يتم التسجيل التلقائي في الخالية الخاصة بها

 وجاري 

,Private Sub CommandButton1_Click()
Dim x
Dim LR As Long
Dim MX As Double
For x = 1 To x
If Me.OptionButton1.Value = True Then
Dim ws As Worksheet
Dim iRow As Long
Set ws = Worksheets("feuil1")
With Feuil1
    LR = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
    MX = WorksheetFunction.Max(.Range("A1:A" & LR))
End With
iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ws.Cells(iRow, 1).Value = MX + 1
ws.Cells(iRow, 2).Value = Me.TextBox1.Value
ws.Cells(iRow, 3).Value = Me.TextBox2.Value
ws.Cells(iRow, 9).Value = "X"
End If
GoTo 1
Next
1
End Sub
 

[am3h80]

شوف كده

بالتوفيق

OptionButton.xlsm

[رشراش]

عيد الجميع مبارك وأثابكم الله خيرا...

أما آن الاوان لملفي أن يجد حلا نهائيا!

تقبلوا مني اسمى عبارات التقدير والاحترام.

دعواتي لكم خير الجزاء وجزيل العطاء من الله.

[رشراش]

عيد الجميع مبارك وأثابكم الله خيرا...

أما آن الاوان لملفي أن يجد حلا نهائيا!

تقبلوا مني اسمى عبارات التقدير والاحترام.

دعواتي لكم خير الجزاء وجزيل العطاء من الله.

[am3h80]

تفضل اخي كما تريد

الله الموفق

update OptionButton.xlsm

[رشراش]

جازاك الله عني خيرا واثابك الجنة...