- Katılım
- 2 Mayıs 2011
- Mesajlar
- 33
- Excel Vers. ve Dili
- 2010
- Altın Üyelik Bitiş Tarihi
- 30-10-2020
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.
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.
Kod:
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