Userformda option butonu option butonla ilişkilendirmek

[u.L.a.s]

Merhabalar

Userform üzerinde bulunan bir option butona tıkladığımda diğer belirlediğim optionbutonlarında seçili hale gelmesi için yardımlarınızı rica ederim

örneğin aşağıdaki gibi 6 tane option butonum var
OptionButton1
OptionButton2
OptionButton3
OptionButton4
OptionButton5
OptionButton6

OptionButton1 e tıkladığımda OptionButton3 ve OptionButton3 Seçili hale gelsin
Eğer OptionButton2 ye tıklarsam OptionButton4 ve OptionButton5 Seçili hale gelsin.

 

[Korhan Ayhan]

OptionButton tekli seçimler için kullanılmaktadır.

 

[u.L.a.s]

Korhan üstadım o zaman şunu yapmak istiyorum şimdi elimde şöyle bir kod var.

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

Burdaki durum eğer 1. optionu seçersem B1 hücresine option buton captionunu yazıyor
2. yi seçersem 2. option butonuu yazıyor. seçili değilse ikiside hücreye boş değer atıyor.

Ben istiyorum. eğer 1. optionbutonu seçmişsem hem B1 hücresine caption değerini yazıyorken B2-B3 hücrelerinede aynı değeri yazsın istiyorum

 

[Erdem Akdemir]

Korhan üstadım o zaman şunu yapmak istiyorum şimdi elimde şöyle bir kod var.

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

Burdaki durum eğer 1. optionu seçersem B1 hücresine option buton captionunu yazıyor
2. yi seçersem 2. option butonuu yazıyor. seçili değilse ikiside hücreye boş değer atıyor.

Ben istiyorum. eğer 1. optionbutonu seçmişsem hem B1 hücresine caption değerini yazıyorken B2-B3 hücrelerinede aynı değeri yazsın istiyorum

Range("b1") yerine Range("b1:b3") yazın.