Miktarı sıfır olanlar listboxta listelenmesin.

[fireman64]

örnekteki miktarı sıfır olanlar listboxta listelenmesin.Teşekkürler

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub UserForm_initialize()
Dim sat As Integer
Dim s As Integer
    For sat = 1 To Cells(Rows.Count, "a").End(xlUp).Row
        If Cells(sat, "c") <> 0 Then
            ListBox1.AddItem
                ListBox1.List(s, 0) = Cells(sat, "a")
                ListBox1.List(s, 1) = Cells(sat, "b")
                ListBox1.List(s, 2) = Cells(sat, "c")
                s = s + 1
        End If
    Next
ListBox1.ColumnCount = 3
ListBox1.ColumnWidths = 50 & ";" & 80 & ";" & 80 & ";"
ListBox1.ColumnHeads = True
End Sub

 

[fireman64]

Hocam çok teşekkürler...