• DİKKAT

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

Listboxta hücre değeri sıfırsa satır gizlemek.

B

bayteksan

Katılım
20 Mart 2008
Mesajlar
122
Excel Vers. ve Dili
2007
Userformda Listbox'ta bekleyen sütununda hücre değerleri sıfır ise o satırları AKTİF düğmesi ile gizlemek ; PASİF düğmesi ile'de tüm satırları göstermek istiyorum.HÜCRE DEĞERİ > 0 = AKTİF, HÜCRE DEĞERİ = 0 PASİF
 

Ekli dosyalar

Listbox'ın satır gizleme özelliği yoktur.:cool:
 
Hay Allah razı olsun senden Orion1.İşte bukadar.
Peki Orion1 altarnatif olarak ne yapabilirim.Listview yada başka birşey ?
 
bayteksan' Alıntı:
Hay Allah razı olsun senden Orion1.İşte bukadar.
Peki Orion1 altarnatif olarak ne yapabilirim.Listview yada başka birşey ?
Genişletmek için tıkla ...
verileri listboxa alırken sorgu ile alın her defasında.0 ise aktif yada işte ne ise o pasif,olarak verileri tekrar listboxa alın.öncekileri sıfrlayın(Listboxtaki verileri) verileri öyle alın.:cool:
 
Özür dilerim benim yaptıklarım.Aldığım örneklerden tamamladıklarımdır.Örnekleri sonraları Kod bankası misali arşivleyip kullanmaya çalışıyorum.İlginiz için teşekkür ederim.İyi geceler.
 
Listbox'a koşul'a göre buton yardımı ile listelemek istiyorum.
Listboxta hücre değeri sıfırsa satır gizlemek.Aksi halinde göstersin (sıfırdan büyükse)
 
Dosyanız ektedir.:cool:
Kod: 
Private Sub CommandButton5_Click()
Dim sat As Long, i As Long
ListBox1.RowSource = ""
With Sheets("ÜRETİM")
sat = .Cells(Rows.Count, "A").End(xlUp).Row
For i = 11 To sat
    If .Cells(i, "F").Value > 0 Then
        ListBox1.AddItem
        ListBox1.List(j, 0) = CDate(.Cells(i, "A").Value)
        ListBox1.List(j, 1) = .Cells(i, "B").Value
        ListBox1.List(j, 2) = .Cells(i, "C").Value
        ListBox1.List(j, 3) = .Cells(i, "D").Value
        ListBox1.List(j, 4) = .Cells(i, "E").Value
        ListBox1.List(j, 5) = .Cells(i, "F").Value
        ListBox1.List(j, 6) = .Cells(i, "G").Value
        ListBox1.List(j, 7) = .Cells(i, "H").Value
        j = j + 1
    End If
Next
End With
End Sub
 

Ekli dosyalar

Üstadım öncelikle çok teşekkür ediyorum.Olmuş.Dersime çalışacağım.Yalnız benim bir sorunum var.Sorun kodlar değil.Ben Ofis 2010 kullanıyorum.Diğer sistemimde Ofis 2003 .2010 da ÜRETİM sayfasındayken verial butonuna bastığımda sonsuz bir döngüye giriyor sanıyorum.İşlem tamamlanmıyor.Dosyayı çeşitli formatlarda denememe rağmen olmadı.Ofis 2003 te hiçbir problem yok.Ne yapabilirim.
 
Şimdi kodları inceleyip çalıştırdığımda (Commandclick5)AKTİF butonunda sütun isimleri yazmıyor.Diğerinde yazıyor.
 
bayteksan' Alıntı:
Şimdi kodları inceleyip çalıştırdığımda (Commandclick5)AKTİF butonunda sütun isimleri yazmıyor.Diğerinde yazıyor.
Genişletmek için tıkla ...
Sütun kolon isimleri sadece rowsource metodunda olur.
additem metodunda kolon başlıkları gözükmez.
sizin istediğiniz şekilde veri almak additem metodu ile oluyordu.
kolon isimlerini listboxın üstüne labeller koyarakta yapabilirsiniz.
yada süzülen veriler başka boş bir sayfaya alınıp, oradan süzülen verileri row source yöntemi ile verileri alırsak yine rowsource yöntemi ile olabilir.:cool:
 
Diğer bir sorum daha vardı. Ben Ofis 2010 kullanıyorum.Diğer sistemimde Ofis 2003 .2010 da ÜRETİM sayfasındayken verial butonuna bastığımda sonsuz bir döngüye giriyor sanıyorum.İşlem tamamlanmıyor.Dosyayı çeşitli formatlarda denememe rağmen olmadı.Ofis 2003 te hiçbir problem yok.Ne yapabilirim. ))
 
bayteksan' Alıntı:
Diğer bir sorum daha vardı. Ben Ofis 2010 kullanıyorum.Diğer sistemimde Ofis 2003 .2010 da ÜRETİM sayfasındayken verial butonuna bastığımda sonsuz bir döngüye giriyor sanıyorum.İşlem tamamlanmıyor.Dosyayı çeşitli formatlarda denememe rağmen olmadı.Ofis 2003 te hiçbir problem yok.Ne yapabilirim. ))
Genişletmek için tıkla ...
Bu başlık altında sorduğunuz soruya yanıt verildi.
Yeni bir başlık açıp sorunuzu sorunuz.
Örnek dosyalarınızıda eklemeyi unutmayınız.:cool:
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst