Listbox Sayfayı Filtrele

cocoa35

Altın Üye
Katılım
6 Eylül 2007
Mesajlar
654
Excel Vers. ve Dili
excel 2016 32 Bit ve Excel 2020 32 Bit Türkçe ve İngilizce
Altın Üyelik Bitiş Tarihi
10-12-2024
Merhaba üstatlar, Ekli örnek dosyada 2 adet sayfa var "Araclar" ve "Bakım" , Şu anda UserForm üstündeki ListBox1'e açılışta "Araclar" sayfası "M" Sütununda "Bakımda" yazan satırları getirebiliyorum. Ancak makro'da bir hata var sayfa açıkken userform çalışırsa değerler geliyor başka sayfaya geçip userform'u çalıştırdığımda ListBox1 boş çıkıyor! bu konuda yardım lütfen
 

Ekli dosyalar

dEdE

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2005
Mesajlar
2,605
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
Merhaba,
Mevcut kodlarınıza aşağıdaki satırları ekledim.
Dener misiniz?
Kod:
Sub listbox1_doldur()
Set sh = Sheets("Araclar") 'EKLENEN SATIR
With ListBox1
'.........
ListBox1.List(s, 0) = sh.Range("b" & suz) 'HER SATIRA sh. EKLEDİM
ListBox1.List(s, 1) = sh.Range("c" & suz)
ListBox1.List(s, 2) = sh.Range("d" & suz)
ListBox1.List(s, 3) = sh.Range("e" & suz)
ListBox1.List(s, 4) = sh.Range("g" & suz)
ListBox1.List(s, 5) = sh.Range("h" & suz)
ListBox1.List(s, 6) = sh.Range("ı" & suz)
ListBox1.List(s, 7) = sh.Range("j" & suz)
 

cocoa35

Altın Üye
Katılım
6 Eylül 2007
Mesajlar
654
Excel Vers. ve Dili
excel 2016 32 Bit ve Excel 2020 32 Bit Türkçe ve İngilizce
Altın Üyelik Bitiş Tarihi
10-12-2024
Sn.dEdE Çok teşekkürler gayet iyi çalışıyor :)
 
Üst