Tüm OptionButon' lar ile çalışan kod

[tamer42]

Merhaba,
Userform' da yaklaşık 20 kadar optionbutton bulunuyor,
buradaki tüm optionbutton' lar tıklandığı zaman basit bir kodu tetikleyecek (kod hespsi için aynı) olan;
her bir option button içine ayrı ayrı yazmak yerine; bu durum class module nasıl oluşturulabilir?

Örnek:

Private Sub OptionB8_Click()
Call AllOptButton
End Sub


Sub AllOptButton()

MsgBox "Option Button Tıklandı", vbInformation, "Bilgi"

End Sub

Teşekkürler,
iyi Haftalar.

 

[ÖmerFaruk]

Bir ClassModule açın ve aşağıdaki kodları yapıştırın.

Public WithEvents MyOpt As MSForms.OptionButton
Private Sub MyOpt_Click()
Dim x As Integer
    x = Split(MyOpt.Name, "OptionButton")(1)
    MsgBox "Option Button" & x & " Tıklandı", vbInformation, "Bilgi"
End Sub

Userform Initialize olayının içine

    For i = 1 To 20
        s = s + 1
        ReDim Preserve MyOpt(1 To s)
        Set MyOpt(s).MyCombo= Controls("OptionButton" & i)
    Next i

 

[tamer42]

Bir ClassModule açın ve aşağıdaki kodları yapıştırın.

Public WithEvents MyOpt As MSForms.OptionButton
Private Sub MyOpt_Click()
Dim x As Integer
    x = Split(MyOpt.Name, "OptionButton")(1)
    MsgBox "Option Button" & x & " Tıklandı", vbInformation, "Bilgi"
End Sub

Userform Initialize olayının içine

    For i = 1 To 20
        s = s + 1
        ReDim Preserve MyOpt(1 To s)
        Set MyOpt(s).MyCombo= Controls("OptionButton" & i)
    Next i

Hocam ilginize teşekkürler,
Sanırım bir yerlerde eksiklik var, çalışmadı
tecrübelerime göre Class Modül adını Userform' da belirtmemiz gerekecek.

 

[ÖmerFaruk]

Denemeden göndermiştim. Hem bir yazım hatası varmış hem de değişken tanımı eksikmiş.
Şimdi denedim. Örneği inceleyiniz.

 

[tamer42]

Denemeden göndermiştim. Hem bir yazım hatası varmış hem de değişken tanımı eksikmiş.
Şimdi denedim. Örneği inceleyiniz.

teşekkürler Hocam