Çözüldü Combobox ile sütunda veri doğrulama

[sirkülasyon]

Arkadaşlar
Cümlenize kolay gelsin inşallah

A sütununda A2 den itibaren isimler karışık olarak yazılı.
Ad tanımlama ile bu isimleri cinsiyetine göre (Erkek - Kadın) ayırdım
Userform üzerine iki optionbutton bir combobox ekledim.
birinci optinbuttonu seçince comboboxta Erkek
ikinci optinbuttonu seçince comboboxta Kadın
isimleri çıksın istiyorum

Rica etsem yardımcı olabilir misiniz?

 

[Korhan Ayhan]

ComboBox1.List = Application.WorksheetFunction.Transpose(Range("Erkek"))

 

[sirkülasyon]

Korhan abi
Erkek olarak comboboxa liste olarak geldi.
Teşekkür ederim.

Ancak bu listeyi çoklu nasıl yapacağız
Örnek Kadın , Dul gibi
Rica etsem bu sorunuma da çare ?

 

[Korhan Ayhan]

Aşağıdaki gibi çoğaltabilirsiniz.

Private Sub OptionButton1_Click()
    ComboBox1.List = Application.WorksheetFunction.Transpose(Range("Erkek"))
End Sub

Private Sub OptionButton2_Click()
    ComboBox1.List = Application.WorksheetFunction.Transpose(Range("Kadın"))
End Sub

Private Sub OptionButton3_Click()
    ComboBox1.List = Application.WorksheetFunction.Transpose(Range("Dul"))
End Sub

 

[sirkülasyon]

Korhan abi
Teşekkür ederim sağ olasın.