userform üzerindeki listboxlara şartlı veri almak

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

userform üzerindeki listboxlara şartlı veri almak

İleti#1)  muzaffer007 » 11 Mar 2020 14:42

arkadaşlar userform üzerinde 2 adet listbox var.listbox1e texboxlardan değer giriyorum.Listbox2 yede aynı sayfadaki k1:O30 arasındaki değerlerin gelmesini istiyorum.Değerler geliyor fakat bu kez listbox1 textboxlardan veri girişi yapınca A31 den sonra yazmaya başlıyor.Listbox1den en son girilen a3 de ise sonraki giriş a4 den başlasın istoyorum.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
muzaffer007
Yeni Başlamış
 
Kayıt: 02 Nis 2018 10:50
Meslek: insan
Yaş: 30
İleti: 31
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir

Cevap: userform üzerindeki listboxlara şartlı veri almak

İleti#2)  muzaffer07 » 20 Mar 2020 10:31

arkadaşlar ekteki dosyayı incelermisiniz.
Kullanıcı avatarı
muzaffer07
Yeni Başlamış
 
Kayıt: 15 Oca 2016 15:19
Meslek: öğrenci
Yaş: 36
İleti: 15
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir

Cevap: userform üzerindeki listboxlara şartlı veri almak

İleti#3)  Miraç CAN » 20 Mar 2020 14:47

Aslında ComboBox1_Change olayında yapmışsınız.
Hatta onlarda da düzenleme yapalım;
Kod: Tümünü seç
Me.ListBox1.RowSource = Sheets(Me.ComboBox1.Value).Name & "!A2:F3" & Sheets(Me.ComboBox1.Value).Cells(Rows.Count, "A").End(3).Row

Me.ListBox2.RowSource = Sheets(Me.ComboBox1.Value).Name & "!k1:O2" & Sheets(Me.ComboBox1.Value).Cells(Rows.Count, "K").End(3).Row

ComboBox1_Change kodlarınızı bu şekilde güncellemeniz iyi olur.

Kaydet butonu CommandButton1_Click olayında da,
sonSat = Sheets(Me.ComboBox1.Value).UsedRange.Rows.Count + 1 bu satırı
sonSat = Sheets(Me.ComboBox1.Value).Cells(Rows.Count, "A").End(3).Row + 1 olacak şekilde değiştirin.
Kullanıcı avatarı
Miraç CAN
Siteye Alışmış
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 38
İleti: 417
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya\Adana

Cevap: userform üzerindeki listboxlara şartlı veri almak

İleti#4)  muzaffer007 » 21 Mar 2020 12:15

teşekkür ederim oldu.listboxa süzme işlemi yapabilirmiyiz.
Kullanıcı avatarı
muzaffer007
Yeni Başlamış
 
Kayıt: 02 Nis 2018 10:50
Meslek: insan
Yaş: 30
İleti: 31
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir

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

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot] ve 5 misafir

Bumerang - Yazarkafe