Soru Excel'den OptionButton'a Veri Alma

[anaksimandros]

Cevap veren arkadaşlara şimdiden çok teşekkür ederim.

Userform'uma veritabanımdan veri çekiyorum.

OptionButton'lara Veritabanındaki "Erkek" "Kadın" cinsiyetine göre seçimi nasıl çekeceğim. Aşağıdaki koddaki gibi bir işlem yaptım ama doğru sonucu alamıyorum.

opterkek.value ile başlayan satırda değişiklik yapılacak ama beceremedim.

Private Sub bul_Click()
On Error GoTo Bitir
    aranan = InputBox("Bulmak istediğiniz kişinin tam ad ve soyadı giriniz.", "Arama Kutusu", "")
    Range("C:C").Find(aranan).Select
    sil_satır = ActiveCell.Row
        id.Value = Worksheets("Sayfa1").Cells(sil_satır, "A")
        kurum_sicil.Value = Worksheets("Sayfa1").Cells(sil_satır, "B")
        adi_soyadi.Value = Worksheets("Sayfa1").Cells(sil_satır, "C")
        opterkek.Value = IIf(Worksheets("Sayfa1").Cells(sil_satır, "D") = "Erkek", "opterkek.Value=true", "optkadin.value=true")
      
Exit Sub
Bitir:

MsgBox "Aradığınız personel veritabanında bulunamadı."
End Sub

 

[Haluk]

Söz konusu satırı silip, yerine aşağıdakileri yapıştırın...

 opterkek.Value = IIf(Worksheets("Sayfa1").Cells(sil_satır, "D") = "Erkek", True, False)
 optkadin.Value = IIf(Worksheets("Sayfa1").Cells(sil_satır, "D") = "Kadın", True, False)

.

 

[anaksimandros]

Söz konusu satırı silip, yerine aşağıdakileri yapıştırın...

 opterkek.Value = IIf(Worksheets("Sayfa1").Cells(sil_satır, "D") = "Erkek", True, False)
optkadin.Value = IIf(Worksheets("Sayfa1").Cells(sil_satır, "D") = "Kadın", True, False)

.

teşekkür ederim. kolay gelsin.