option button otomatik seçim yapabilirmi

[hikmet]

Merhaba sn.hocalarım ve arkadaşlarım;

userformda bir combobox ve 3 adet textbox bulunmakta. combobox ta iki tane seçimim var ve userforma iki tane option button koyarak seçime göre sayfaya kayıt ettiriyorum. Sorum bu iki option buttondaki seçeneği combobox a göre kendisi seçebilirmi.
örneğin combobox değeri A ise XX sayfasına kayıt butonunu seçsin B ise VV sayfasına kayıt butonunu seçsin.
ilginiz için şimdiden teşekkür ederim.

 

[recep]

örnek dosyanı eklersen yardımcı olabilirim

 

[hikmet]

sn.recep

ilginiz için teşekkür ederim fakat henüz oluşmuş bir format yok. bu nedenle örnek dosya gönderemedim. Başka bir formda

If OptionButton1.Value = True Then
Sheets("YILLIK").Select
ElseIf OptionButton2.Value = True Then
Sheets("MAZERET").Select

kodu ile kendim option buttonu değiştiriyordum. Şimdi buraya ne eklemeliyim ki bunu otomatik olarak kendi değiştirebilsin.

 

[Korhan Ayhan]

Selamlar,

Basit olarak aşağıdaki şekilde bir kod kullanabilirsiniz.

Private Sub ComboBox1_Change()
    Select Case ComboBox1
    Case "A"
    OptionButton1 = True
    Case "B"
    OptionButton2 = True
    Case "C"
    OptionButton1 = False
    OptionButton2 = False
    End Select
End Sub

Private Sub UserForm_Initialize()
    ComboBox1.Clear
    ComboBox1.AddItem "A"
    ComboBox1.AddItem "B"
    ComboBox1.AddItem "C"
End Sub

 

[hikmet]

sn.cost control;

ilginiz için çok teşekkür ederim. sağolun elinize sağlık.