• Foruma hoş geldin 👋 Ziyaretçi

    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 tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çö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.
M

Mahmut Şahin

Yeni Üye
Kullanıcı Bilgileri
Aktiflik
Çevrimdışı
Katılım
14 Nis 2022
Mesajlar
3
Aldığı beğeni
2
Excel V
Office 2016 TR
Konuyu Başlatan
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
Refaz
Mahmut Şahin' Alıntı:
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?
Genişletmek için tıkla...
Merhaba.
Userforma bir adet il combobox ekleyeceksiniz ve içine illeri aldıracaksınız.
Ve...
Tarihe göre sırala Oylara göre sırala
Mahmut Şahin' Alıntı:
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?
Genişletmek için tıkla...
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.

Rich (BB code):
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 1 Negatif oyla
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst