• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Çözüldü Aramada Inputbox Yerine Combobox Kullanmak

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Mahmut Şahin

Yeni Üye
Katılım
14 Nis 2022
Mesajlar
3
Aldığı beğeni
2
Excel V
Office 2016 TR
Konu Sahibi
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?
 
Çözüm
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...
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:
Rich (BB code):
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst