Çözüldü Aramada Inputbox Yerine Combobox Kullanmak

[Mahmut Şahin]

Arkadaşlar, userform da kayıt ekranı var. kaydet, ara, güncelle butonları mevcut. Ara butonunda yazan kod;
Private Sub CommandButtonara_Click()
aranan = InputBox("Kayıtlı İli Adını Giriniz", "ARAMA İŞLEMİ")
Range("B:B").Find(aranan).Select
sil_satir = ActiveCell.Row
ComboBoxmahalle.Value = Worksheets("Anasayfa").Cells(sil_satir, 2)
TextBoxmuhtar.Value = Worksheets("Anassyfa").Cells(sil_satir, 3)
TextBoxmuhtarbaba.Value = Worksheets("Anasayfa").Cells(sil_satir, 4)
End sub
bu şekilde. kod güzel çalışıyor. Ama ınputbox da kutuya aranan değeri elle girmek gerekiyor ben combobox da açılır ekranda gelmesini istiyorum. Yardımcı olabilir misiniz?

 

[Refaz]

Arkadaşlar, userform da kayıt ekranı var. kaydet, ara, güncelle butonları mevcut. Ara butonunda yazan kod;
Private Sub CommandButtonara_Click()
aranan = InputBox("Kayıtlı İli Adını Giriniz", "ARAMA İŞLEMİ")
Range("B:B").Find(aranan).Select
sil_satir = ActiveCell.Row
ComboBoxmahalle.Value = Worksheets("Anasayfa").Cells(sil_satir, 2)
TextBoxmuhtar.Value = Worksheets("Anassyfa").Cells(sil_satir, 3)
TextBoxmuhtarbaba.Value = Worksheets("Anasayfa").Cells(sil_satir, 4)
End sub
bu şekilde. kod güzel çalışıyor. Ama ınputbox da kutuya aranan değeri elle girmek gerekiyor ben combobox da açılır ekranda gelmesini istiyorum. Yardımcı olabilir misiniz?

Merhaba.
Userforma bir adet il combobox ekleyeceksiniz ve içine illeri aldıracaksınız.
Ve alttaki gibi değiştirip denersiniz.
sayfada iller varsa eklenen comboboxun özelliklerinden rowsource kısmına mesela Sayfa1!A2:A82 gibi yazıp alabilirsiniz yanlış yazmadıysam.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Mahmut Şahin]

Teşekkür ederim

 

[Refaz]

Teşekkür ederim

Rica ederim.