[حل شده] درج مقدار OptionButton ها در رنج مربوطه

[bahman_220]

دوستان اکسلی عزیز سلام وقت بخیر
یه یوزرفرم دارم که در Frame1 من سه تا OptionButton وجود داره که با انتخاب یکی از اونها قصد دارم مقدار مد نظرم در رنج مربوطه بنشیند . کدی جهت ثبت نوشتم اما برای آبشن باتن ها با مشکل مواجه شدم کد زیر جهت ملاحظه :

Sheets(3).Activate
Dim A As Range
For Each A In Sheet3.Range("A2:A20")
If A.Value = "" And ComboBox1.Text <> "" Then

A.Offset(0, 0).Value = ComboBox1.Text
A.Offset(0, 1).Value = TextBox1.Text
A.Offset(0, 2).Value = OptionButton1
A.Offset(0, 3).Value = OptionButton2
A.Offset(0, 4).Value = OptionButton3

ComboBox1.Text = ""
Application.ThisWorkbook.Save
MsgBox "ثبت شد "
Exit For
End If
Next

می خوام برای OptionButton1 مقدار « بدهکار» و برای OptionButton2 مقدار « بستانکار » و برای OptionButton3 « خنثی » به من بدهد .
با تشکر فراوان نصیری

[majid_mx4]

با سلام

لطفا فایل ضمیمه را بررسی کنید.

خلاصه : ثبت مقداری تعریف شده برای optionButton ها در سلول آنها

پایدار باشید