ListView'de sıfır değerleri gözükmesin?

[iaydin20]

Merhaba;
Sayfa2 a25 hücresinde =sayfa1!a23 formülü var ve sonucu sıfır bu satırların ListView de gözükmesin istiyorum

örn;
a1 : ali => formül sonuçları
a2 : veli
a3 : 0
a4 : 0
a5 : ahmet

a3 ve a4 satırlarında formul sonucu 0 dır bu iki satırı göstermesin ve a1,a2,a5 satırını göstersin istiyorum

Formda gezinirken gözüme çarpmıştı ancak bulamadım yardımcı olabilirseniz memnun olurum...saygılar

 

[BG]

2003 versiyonunda araçlar/seçenekler/görünüm "0 değerleri" seçeneğini kaldırmayı denediniz mi? 2007 kullanıyorsunuz sanıyorum bende 2007 kurulu olmadığı için bu seçeneğin nerede olduğunu bilmiyorum, sadece bir fikir

 

[Orion1]

Bunun için If Sorgu şartı deyimini kullnmalısınız.

 

[iaydin20]

arkadaşlar bilgiler İçin Teşekkür ederim Ben belirtilen satırların ListView de gözükmemesini istyorum

 

[Orion1]

Aşağıdaki kodları kendi dosyanıza uydurunuz..

ListView1.View = lvwReport
With ListView1.ColumnHeaders
    .Add , , "NNNN"
End With
For i = 1 To 15
    [B][COLOR="Red"]If Cells(i, "A").Value <> 0 Then[/COLOR][/B]
         listView1.ListItems.Add , , Cells(i, "A").Value
    [COLOR="red"]End If
 [/COLOR]Next i

 

[iaydin20]

hocam çok teşekkür ederim ancak bu işe yaramadı başka bir çözümü yokmu acaba

 

[Orion1]

hocam çok teşekkür ederim ancak bu işe yaramadı başka bir çözümü yokmu acaba

Külüvalla'yı okuyun.

 

[iaydin20]

sağolun Allah razı Olsun

 

[iaydin20]

Hocalarım örnek dosya ekte yardımcı olabilirmisiniz..Şimdiden Teşekkürler.

 

[Orion1]

Dosyanız hazır.

Sub ListeGuncellegt()
Set sh = Sheets("gidertoplam")
son = sh.Cells(65536, 2).End(xlUp).Row
'yeni = True
With anaform.ListView4
  .ListItems.Clear
   For i = 2 To son
    [B][COLOR="Red"]If sh.Cells(i, 2).Value <> "" And sh.Cells(i, 2).Value <> 0 _
        And sh.Cells(i, 2).Value <> "TOPLAMLAR" Then[/COLOR][/B]
        .ListItems.Add , , sh.Cells(i, 2)
        x = x + 1
        With .ListItems(x).ListSubItems
            .Add , , Format(sh.Cells(i, 3), "#,##0.00")
            .Add , , i
     
        End With
    [B][COLOR="red"]End If[/COLOR][/B]  
Next i
End With
Set sh = Nothing
End Sub

 

[iaydin20]

Sn;Evren hocam çok teşekkür ederim elinize sağlık...Saygılar

 

[Orion1]

Sn;Evren hocam çok teşekkür ederim elinize sağlık...Saygılar

Rica ederim.
iyi çalışmalar.