Userform OptionButton Seçimin Hücreye Değer vermesi Hk.

[u.L.a.s]

Merhabalar

Userform üzerinde 2 tane option buttonum var.

Bu optionbuttonlarıda bir command button yardımıyla seçime göre değeri belli bir hücreye yazdırıyorum.

Kod düzenimde aşağıdaki gibidir.

Private Sub CommandButton1_Click()

[COLOR="Red"][B]If OptionButton1.Value = True Then
Sheets("Sheet2").Range("B1") = OptionButton1.Caption
Else
Sheets("Sheet2").Range("B1").ClearContents
End If

If OptionButton2.Value = True Then
Sheets("Sheet2").Range("B1") = OptionButton2.Caption
Else
Sheets("Sheet2").Range("B1").ClearContents
End If[/B][/COLOR]

Range("a1").Select: i = Empty: Unload Me

End Sub

Fakat şöyle bir sorun var. Eğer ben userform üzerindeki bu optionbuttonlardan ilkini seçersem ilgili hücreye hiç bir değer yazmıyor boş oluyor hücre.ama ikinci option buttonun değerini getirebiliyor.

Kod düzenini aşağıdaki gibi değiştirirsem eğer bu seferde hiç bir seçeneği seçmez isem ve commandbuttona basarsam Optionbutton1 in değerini ilgili hücreye yazıyor. Halbuki hiç bir değer seçmediğim için boş değer olması lazım.

Private Sub CommandButton1_Click()
[B]If OptionButton1.Value = True Then
Sheets("Sheet2").Range("B1") = OptionButton1.Caption
Else
Sheets("Sheet2").Range("B1") = OptionButton2.Caption
End If

If OptionButton2.Value = True Then
Sheets("Sheet2").Range("B1") = OptionButton2.Caption
Else
Sheets("Sheet2").Range("B1") = OptionButton1.Caption
End If[/B]
Range("a1").Select: i = Empty: Unload Me

End Sub

Her iki kod düzenine göre ayrı ayrı çözümler ne olabilir bilgi ve yardımlarınızı rica ederim

 

[Erdem Akdemir]

Aşağıdaki mantığı kullanın.

Private Sub CommandButton1_Click()
If OptionButton1.Value = True Or OptionButton2.Value = True Then
Range("a1").Value = 10
Else
Range("a1").Value = ""
End If
End Sub

 

[u.L.a.s]

Dediğiniz kodu denedim hatta benimde kod düzenim aşağıda ki gibi.
Ama birisini işaretlersem gidip ilgili hücreye 10 yazıyor. ben optionbuton captionu neyse onu yapıştırsın istiyorum.

If OptionButton1.Value = True Or OptionButton2.Value = True Then
Sheets("Sheet2").Range("b1").Value = 10
Else
Range("b1").Value = ""
End If

 

[u.L.a.s]

Sorunu aşağıdaki kod düzeniyle çözdüm

Teşekkürler

If OptionButton1.Value = True Then
Sheets("Sheet2").Range("B1") = OptionButton1.Caption
ElseIf OptionButton2.Value = True Then
Sheets("Sheet2").Range("B1") = OptionButton2.Caption
Else
Sheets("Sheet2").Range("B1") = ""
End If

 

[Erdem Akdemir]

Ulaş bey sorunuzda o kısmı atladım. Siz zaten doğruyu bulmuşsunuz.