Listwievle ilgili

[osmanucel]

ListView satırında d sütunu sıfır ise satırı gösterme olabilirmi acaba

 

[Korhan Ayhan]

Bu işlemi ilgili nesneye verileri yüklediğiniz aşamada kodlarınıza bir sorgu ekleyerek yapabilirsiniz. Bunun için kodlarınızı foruma ekler misiniz?

 

[osmanucel]

özür dilerim

Dosya ektedir

 

[Korhan Ayhan]

Merhaba,

Dosyanızda "D" sütununda hiç veri yok. Sorunuzda "D" sütunu diye belirttiğiniz için kodu bu şekilde düzenledim. Siz hangi sütun ise kırmızı renkli bölümü düzeltirsiniz.

Private Sub UserForm_Initialize()
    Me.Caption = "TİCARİ SİSTEM (version 1)"
    Me.Height = Application.Height
    Me.Width = Application.Width
    ListView1.View = lvwReport
    ListView1.FullRowSelect = True
    ListView1.Gridlines = True
    ListView1.Font.Size = 9
   
    Set S1 = Sheets("GBA")
    With ListView1.ColumnHeaders
        .Add , , "Sıra No", 0
        .Add , , Sheets("GBA").Range("A1"), 202, lvwColumnLeft
        .Add , , Sheets("GBA").Range("B1"), 90, lvwColumnRight
        .Add , , Sheets("GBA").Range("C1"), 90, lvwColumnRight
        .Add , , Sheets("GBA").Range("D1"), 90, lvwColumnRight
        .Add , , Sheets("GBA").Range("E1"), 30, lvwColumnLeft
    End With
    
    On Error Resume Next
    With ListView1
        For i = 3 To S1.[A65536].End(3).Row
            If S1.Cells(i, "[COLOR="Red"]D[/COLOR]") > 0 Then
                .ListItems.Add , , i
                .ListItems(i - 2).SubItems(1) = S1.Cells(i, "A")
                .ListItems(i - 2).SubItems(2) = Format(S1.Cells(i, "B"), "#,##0.00 TL")
                .ListItems(i - 2).SubItems(3) = Format(S1.Cells(i, "C"), "#,##0.00 TL")
                .ListItems(i - 2).SubItems(4) = Format(S1.Cells(i, "D"), "#,##0.00 TL")
                .ListItems(i - 2).SubItems(5) = S1.Cells(i, "E")
            End If
        Next i
    End With
End Sub

 

[osmanucel]

teşekkur ederim hocam