ComboBox'ın içeriğini CheckBox ile değiştirmek

[TheGreatest]

Merhaba,

UserForm'da kullandığım ComboBox'ın içeriğini CheckBox ile aşağıdaki gibi değiştirmek mümkünmü?



Eğer checkbox1 seçili ise combobox.RowSource = range1

Eğer checkbox2 seçili ise combobox.RowSource = range2

eğer hiçbiri seçili değilse combobox.RowSource = "Seçenek gerekli"

Teşekkürler

 

[Orion1]

CheckBox1 İçin:
Diğerini siz yapın.

Private Sub CheckBox1_Click()
ComboBox1.Value = ""
ComboBox2.Value = ""
ComboBox1.RowSource = ""
ComboBox2.RowSource = ""
If CheckBox1.Value = False And CheckBox2.Value = False Then
    ComboBox1.Value = "Seçenek Gerekli"
    ComboBox2.Value = "Seçenek Gerekli"
End If
If CheckBox1.Value = True Then ComboBox1.RowSource = "A1:A20"
End Sub

 

[TheGreatest]

Teşekkürler Evren,fakat UserForm'da sadece 1 tane ComboBox var.

 

[Orion1]

İkiside seçili olursa ne olacak.
Mantığa aykırı bir iş.
VBA'nın kulağını tersten tutmuş oluyorsunuz.
Bunun için OptonButton kullanılır.
OptionButtton kullanırsanız .
Kodları ona göre yazalım.

 

[TheGreatest]

Tavsiye için teşekkürler Evren,

OptionButton kullanarak aşağıdaki gibi hallettim.

Private Sub opt1_Click()
cboReason.Value = ""
cboReason.RowSource = "range1"
End Sub
 
Private Sub opt2_Click()
cboReason.Value = ""
cboReason.RowSource = "range2"
End Sub
 
Private Sub UserForm_Initialize()
cboReason.Value = "Seçenek Gerekli"
End Sub

Saygılar...