• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Listbox Sayfayı Filtrele

Katılım
6 Eylül 2007
Mesajlar
657
Excel Vers. ve Dili
excel 2016 32 Bit ve Excel 2020 32 Bit Türkçe ve İngilizce
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

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)
 
Sn.dEdE Çok teşekkürler gayet iyi çalışıyor :)
 
Geri
Üst