Listviewe Koşullu Veri Çekmek

[slcflz]

sevgili arkadaşlar açıklamam dosyamda mevcut örnekleri uyarlamama rağmen bir sonuca ulaşamadım değerli yardımlarınızı bekliyorum tşkler

 

[Ömer]

Merhaba,

İlaveyi kırmızı ile işaretledim.

With ListView1
    For i = 2 To c
        [COLOR=red]If Cells(i, "F") > 0 Then
[/COLOR]        x = x + 1
            .ListItems.Add , , Cells(i + 1, 1)
            .ListItems(x).SubItems(1) = Cells(i + 1, 1)
            .ListItems(x).SubItems(2) = Cells(i + 1, 2)
            .ListItems(x).SubItems(3) = Cells(i + 1, 3)
            .ListItems(x).SubItems(4) = Cells(i + 1, 4)
            .ListItems(x).SubItems(5) = Cells(i + 1, 5)
            .ListItems(x).SubItems(6) = Cells(i + 1, 6)
            .ListItems(x).SubItems(7) = Cells(i + 1, 7)
            .ListItems(x).SubItems(8) = Cells(i + 1, 8)
            .ListItems(x).SubItems(9) = Cells(i + 1, 9)
        [COLOR=red]End If
[/COLOR]    Next i
End With

.

 

[sbayyigit]

sevgili arkadaşlar açıklamam dosyamda mevcut örnekleri uyarlamama rağmen bir sonuca ulaşamadım değerli yardımlarınızı bekliyorum tşkler

With ListView1
For i = 2 To c
If Cells(i + 1, 6).Value > 0 Then

x = x + 1
.ListItems.Add , , Cells(i + 1, 1)
.ListItems(x).SubItems(1) = Cells(i + 1, 1)
.ListItems(x).SubItems(2) = Cells(i + 1, 2)
.ListItems(x).SubItems(3) = Cells(i + 1, 3)
.ListItems(x).SubItems(4) = Cells(i + 1, 4)
.ListItems(x).SubItems(5) = Cells(i + 1, 5)
.ListItems(x).SubItems(6) = Cells(i + 1, 6)
.ListItems(x).SubItems(7) = Cells(i + 1, 7)
.ListItems(x).SubItems(8) = Cells(i + 1, 8)
.ListItems(x).SubItems(9) = Cells(i + 1, 9)


End If
Next
End With

 

[slcflz]

sayın ömer ilginize tşk ederim. Ancak istediğim olmadı halen kalan kısımları 0 olanların bir kısmı yine geliyor. Amacım Sadece stok kalanında değer olan ürünleri listeletmek 0 olanlar kesinlikle gelmeyecek

 

[slcflz]

sayın yiğit tşk ederim allah razı olsun istediğim tam buydu iyi çalışmalar

 

[sbayyigit]

sayın yiğit tşk ederim allah razı olsun istediğim tam buydu iyi çalışmalar

allah sizden de razı olsun. Sayın ömer ustamın yaptığını görünce silmek istemiştim. ancak net kesildi. silmek kısmet olmadı. işine yaraması beni mutlu etti. kolay gelsin iyi çalışmalar

 

[slcflz]

sn.yiğit tekrar merhaba yukarıdaki formulasyon tam işimi görüyor ancak kullandıkça birşey daha dikkatyimi çekti burda sadece 0 dan büyük olanları listviewe aldırdık 0 olanları aldırmadık buraya kadar tamam ancak (-) bakiye verenleride yani 0 dan küçük olan sayıları da aldırmak istiyorum onu nasıl yapabilirim tşkler

 

[slcflz]

sn yiğit kendi sorunumu kendim hallettim belki yararlanmak isteyen arkadaşlara ben yeni kdou yazayım 0 dan küçük olanlarıda yani (-) bakiye verenleride çekmek için

    With ListView1
For i = 2 To c
If Cells(i + 1, 6).Value [COLOR="Red"]<> [/COLOR]0 Then

x = x + 1
.ListItems.Add , , Cells(i + 1, 1)
.ListItems(x).SubItems(1) = Cells(i + 1, 1)
.ListItems(x).SubItems(2) = Cells(i + 1, 2)
.ListItems(x).SubItems(3) = Cells(i + 1, 3)
.ListItems(x).SubItems(4) = Cells(i + 1, 4)
.ListItems(x).SubItems(5) = Cells(i + 1, 5)
.ListItems(x).SubItems(6) = Cells(i + 1, 6)
.ListItems(x).SubItems(7) = Cells(i + 1, 7)
.ListItems(x).SubItems(8) = Cells(i + 1, 8)
.ListItems(x).SubItems(9) = Cells(i + 1, 9)


End If
Next
End With