Userformda comboboxta seçime göre liste oluşturmak

[arches]

Merhaba arkadaşlar,
benim takıldığım bir husus var yardımcı olabilirseniz sevinirim.
Şöyle izah edeyim,
userform üzerinde iki adet options button ve birde combobox mevcut.
1. seçenek düğmesi seçili ise B sütununun tamamını (b1 hariç) comboxta listelemek,
2. seçenek düğmesi seçili ise C sütununun tamamını (c1 hariç) comboxta listelemek istiyorum.
Bu konuda yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Formunuzun kod bölümüne uygulayınız.

Sayfa1 isimli sayfa dikkate alınmıştır. Kendinize göre revize edersiniz.

Private Sub OptionButton1_Click()
    Son = Sheets("Sayfa1").Cells(Rows.Count, "B").End(3).Row
    ComboBox1.RowSource = "Sayfa1!B2:B" & Son
End Sub

Private Sub OptionButton2_Click()
    Son = Sheets("Sayfa1").Cells(Rows.Count, "C").End(3).Row
    ComboBox1.RowSource = "Sayfa1!C2:C" & Son
End Sub