Aramada Inputbox Yerine Combobox Kullanmak

[Mahmut ŞAHİN]

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?

 

[Mdemir63]

İyi geceler

aranan = InputBox("Kayıtlı İli Adını Giriniz", "ARAMA İŞLEMİ")

yerine

aranan = ComboBox1.Value

ile değiştiriniz.

 

[Mahmut ŞAHİN]

İyi geceler

aranan = InputBox("Kayıtlı İli Adını Giriniz", "ARAMA İŞLEMİ")

yerine

aranan = ComboBox1.Value

ile değiştiriniz.

teşekkür ediyorum.

 

[Mdemir63]

Rica ederim.
İyi çalışmalar