Seçilen OptionButtonun captionu Comboboxa yazılan metin olsun

[Feylosof]

Merhaba;
Bir userformda 40 adet optionbutton var. Bunalrdan hangisini seçersem onun adı(caption) Combobox1.value olarak yazılsın istiyorum. Bunu yapacak nasıl bir kod yazmalıyım. Yardımlarınız için şimdiden teşekkür ediyorum.

 

[Korhan Ayhan]

Class Module ile çözüm bulabilirsiniz.

Çalışmanıza VBA tarafında bir adet Class Module ekleyin. Bı modüle içine aşağıdaki kodu uygulayın.

Option Explicit

Public WithEvents OButton As MSForms.OptionButton

Private Sub OButton_Click()
    UserForm1.ComboBox1 = Me.OButton.Caption
End Sub

Sonra formunuzun kod bölümüne deklarasyon kısmına (yani en üste) aşağıdaki satırı uygulayın.

Option Explicit
Dim OButton(40) As New Class1

Yine formunuzun Initialize olayına aşağıdaki kodu uygulayın.

Private Sub UserForm_Initialize()
    Dim X As Byte

    For X = 1 To 40
        Set OButton(X).OButton = Controls("OptionButton" & X)
    Next X
End Sub

Şimdi formunuzu açıp deneyin.

Uygulamalı dosya ektedir.

 

[Feylosof]

Sayın @Korhan Ayhan üstadım harikasınız. Çok teşekkürler. Varolun.