Çözüldü Optionbutton 4 ve 5 ekleyince calismiyor

HTML:
ŞU şekilde çözdüm arkadaşlar teşekkürler..

Sayın salanar soruyu çözmüşsünüz ama küçük bir detay
belki bundan sonra işinize yarayabilir.

sütun değişkenini OptionButton'un
true-false durumuna bağladığınız için
aynı anda birden fazla OptionButton seçili ise
sütun değişkeni en son OptionButton'daki değeri alır bilginize.
Bunun önüne geçmek için her seçenekde diğer OptionButtonları
boşaltmakta fayda var. Bir de şu ElseIf lerden kurtulun.
Aşağıdaki formattaki gibi deneyebilirsiniz.

If UserForm1.OptionButton1 = True Then
UserForm1.OptionButton2 = False: UserForm1.OptionButton3 = False:
UserForm1.OptionButton4 = False: UserForm1.OptionButton5 = False:
sutun = 7
rpr.Range("A3") = UserForm1.OptionButton1.Caption
End If

excelcan' Alıntı:

Sayın salanar soruyu çözmüşsünüz ama küçük bir detay
belki bundan sonra işinize yarayabilir.

sütun değişkenini OptionButton'un
true-false durumuna bağladığınız için
aynı anda birden fazla OptionButton seçili ise
sütun değişkeni en son OptionButton'daki değeri alır bilginize.
Bunun önüne geçmek için her seçenekde diğer OptionButtonları
boşaltmakta fayda var. Bir de şu ElseIf lerden kurtulun.
Aşağıdaki formattaki gibi deneyebilirsiniz.

If UserForm1.OptionButton1 = True Then
UserForm1.OptionButton2 = False: UserForm1.OptionButton3 = False:
UserForm1.OptionButton4 = False: UserForm1.OptionButton5 = False:
sutun = 7
rpr.Range("A3") = UserForm1.OptionButton1.Caption
End If

Genişletmek için tıkla...

Bir de şu ElseIf lerden kurtulun.

burayı anlamadım bununla ilgili örnek verebilir misiniz hocam. Diğer bahsettiğiniz durumda çoklu seçenek seçilmiyordu zaten

If ... End If aralığına o kadar ElseIf sıkıştırmaktansa
OptionButtonları ayrı ayrı If... End If yapısına almanız
daha derli toplu olur diye düşünmüştüm. Ya değilse çok da şart değil.
Örneklemeye gelince yukardaki örneğin devamı şöyle olur artık.

If UserForm1.OptionButton1 = True Then
UserForm1.OptionButton2 = False: UserForm1.OptionButton3 = False:
UserForm1.OptionButton4 = False: UserForm1.OptionButton5 = False:
sutun = 7
rpr.Range("A3") = UserForm1.OptionButton1.Caption
End If

If UserForm1.OptionButton2 = True Then
UserForm1.OptionButton1 = False: UserForm1.OptionButton3 = False:
UserForm1.OptionButton4 = False: UserForm1.OptionButton5 = False:
sutun = 8
rpr.Range("A3") = UserForm1.OptionButton2.Caption
End If

If UserForm1.OptionButton3 = True Then
UserForm1.OptionButton1 = False: UserForm1.OptionButton2 = False:
UserForm1.OptionButton4 = False: UserForm1.OptionButton5 = False:
sutun = 9
rpr.Range("A3") = UserForm1.OptionButton3.Caption
End If

... diye devam eder.

teşekkür ederim örneklendirme için hocam..

HTML:
Hocam bunu kısaltmak adına A sutunundan BF sutununa alacak sekilde nasıl kurgulayabiliriz?

Muazzam.. Teşekkür ederim hocam

salanar' Alıntı:

HTML:

Kod: Kodları Kopyala

İçeriği görebilmek için Giriş yap ya da Üye ol.

ŞU şekilde çözdüm arkadaşlar teşekkürler..

Genişletmek için tıkla...

Merhaba.
Alttaki gibi yapabilirsiniz kısa yoldan yukardaki kodu.

HTML: