[Yardım]  Combobox'a şarta bağlı veri alma

Açılır liste kutusu.

Combobox'a şarta bağlı veri alma

İleti#1)  enisoruc » 18 Ekm 2017 15:39

Merhaba,
Panel sayfasındaki Combobox'a ad tanımlamayla personel isimlerini listeliyorum. İsimler aynı Sayfada K3 hücresine geliyor. yapmak istediğim ise Home sayfasındaki A8 hücre değeri 0 (sıfır) olduğunda Combobox'a isimler gelsin. Eğer A8 hücresi 0 (sıfır)'dan farklı bir değer içeriyorsa hem isimler gelmemeli hemde Panel sayfasındaki K3 hücresinin içeriği temizlenmeli.
Kullandığım kod aşağıdaki gibidir.
Private Sub ComboBox1_DropButtonClick()
ComboBox1.ListFillRange = ""
ComboBox1.ListFillRange = "Ad_soyad"
End Sub

Yardımlarınız için teşekkür ederim.
Kullanıcı avatarı
enisoruc
Yeni Başlamış
 
Adı Soyadı:enis oruç
Kayıt: 27 May 2010 10:47
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: balıkesir

Cevap: Combobox'a şarta bağlı veri alma

İleti#2)  Bülent » 18 Ekm 2017 23:05

Merhaba,

Aşağıdaki şekilde dener misiniz?

Kod: Tümünü seç
Private Sub ComboBox1_DropButtonClick()

if worksheets("Home").Range("A8").value=0
   ComboBox1.ListFillRange = ""
   ComboBox1.ListFillRange = "Ad_soyad"
else
ComboBox1.ListFillRange = ""
worksheets("Panel").Range("K3").value=""
end if
End Sub
(Ücretli program talepleriniz için iletişime geçebilirsiniz. bulentozturk2@ gmail.com)
Kullanıcı avatarı
Bülent
Yönetim Kurulu
 
Adı Soyadı:Bülent ÖZTÜRK
Kayıt: 15 Haz 2008 02:08
Meslek: Bilgi Sistemleri
Yaş: 42
İleti: 3585
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İst/Çekmeköy

Cevap: Cevap: Combobox'a şarta bağlı veri alma

İleti#3)  enisoruc » 19 Ekm 2017 11:14

Merhaba,
Kodun "if worksheets("Home").Range("A8").value=0" satırı için "Expected: Then or GoTo" hatasını verdi.


Bülent yazdı:Merhaba,

Aşağıdaki şekilde dener misiniz?

Kod: Tümünü seç
Private Sub ComboBox1_DropButtonClick()

if worksheets("Home").Range("A8").value=0
   ComboBox1.ListFillRange = ""
   ComboBox1.ListFillRange = "Ad_soyad"
else
ComboBox1.ListFillRange = ""
worksheets("Panel").Range("K3").value=""
end if
End Sub
Kullanıcı avatarı
enisoruc
Yeni Başlamış
 
Adı Soyadı:enis oruç
Kayıt: 27 May 2010 10:47
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: balıkesir

Cevap: Combobox'a şarta bağlı veri alma

İleti#4)  Bülent » 19 Ekm 2017 11:24

Merhaba,
Then'i unutmuşum. :oops:

Aşağıdaki gibi dener misiniz?

Kod: Tümünü seç
Private Sub ComboBox1_DropButtonClick()

if worksheets("Home").Range("A8").value=0 Then
   ComboBox1.ListFillRange = ""
   ComboBox1.ListFillRange = "Ad_soyad"
else
ComboBox1.ListFillRange = ""
worksheets("Panel").Range("K3").value=""
end if
End Sub
(Ücretli program talepleriniz için iletişime geçebilirsiniz. bulentozturk2@ gmail.com)
Kullanıcı avatarı
Bülent
Yönetim Kurulu
 
Adı Soyadı:Bülent ÖZTÜRK
Kayıt: 15 Haz 2008 02:08
Meslek: Bilgi Sistemleri
Yaş: 42
İleti: 3585
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İst/Çekmeköy

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Combobox'a şarta bağlı veri alma

İleti#5)  enisoruc » 19 Ekm 2017 11:39

Merhaba,
Çalıştı :) Fakat sanırım ben kurguyu yanlış yaptım. Çünkü işlemler şöyle gerçekleşiyor.
Home sayfasındaki Texbox'a şifre giriyorum ve bu şifreyi sayfada A7 hücresine yazıyor. Eğer şifre tanımlanmış şifre ise A8'deki değer 0 oluyor ve CommandButton ilgili sayfaya giriş sağlıyor. Buraya kadar sorun yok fakat Panel sayfasına giriş yaptıktan sonra Texbox içeriği temizlendiği için A8 Hücresi 0'dan 1'e dönüyor ve paylaştığınız kod 1'i gördüğü için yine istediğim sonucu vermiyor.

Klavye kısa yolları ile sayfalarda dolaşıldığı için şifre girilmediği durumda Panel sayfasındaki verilerin görüntülenememesini amaçlamıştım. Texbox'ın içeriğini temizlemesi çözüm noktasında engel oldu. Başka öneriniz olursa sevinirim.

Teşekkürler.
Kullanıcı avatarı
enisoruc
Yeni Başlamış
 
Adı Soyadı:enis oruç
Kayıt: 27 May 2010 10:47
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: balıkesir

Cevap: Combobox'a şarta bağlı veri alma

İleti#6)  Bülent » 19 Ekm 2017 12:52

Merhaba,

Kurguyu gözden geçirip, çalışan kodu buna uyarlamayı dener misiniz?
(Ücretli program talepleriniz için iletişime geçebilirsiniz. bulentozturk2@ gmail.com)
Kullanıcı avatarı
Bülent
Yönetim Kurulu
 
Adı Soyadı:Bülent ÖZTÜRK
Kayıt: 15 Haz 2008 02:08
Meslek: Bilgi Sistemleri
Yaş: 42
İleti: 3585
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İst/Çekmeköy

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum ComboBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 2 misafir

Bumerang - Yazarkafe