Listview'e şartlı veri aktarma

[seddur]

Merhaba.Ekli dosyadaki listview 1.sutununa sayfa1 deki veriye göre Her ayın DOLU sayısını,.2.sutuna ise BOŞ sayısını yazdırmak istiyorum.Yani "D" sutunundaki aylar ile "F" sutunundaki DOLU ifadeleri saydırılarak listviewdeki 1.ve 2. sutunlara her ayın karşılığı aktarılacak.Yardımcı olabilirseniz sevinirim.

 

[Muzaffer Ali]

Merhaba.

Formun kod kısmını tamamen silin, aşağıdaki kodları kopyalayın.

Private Sub UserForm_Initialize()
    Dim Aylar As Byte
    Dim lst As ListItem
    ListView1.View = lvwReport
    ListView1.ColumnHeaders.Add , , "AYLAR"
    ListView1.ColumnHeaders.Add , , "DOLU"
    ListView1.ColumnHeaders.Add , , "BOŞ"
    For Aylar = 1 To 12
        Set lst = ListView1.ListItems.Add(, , VBA.MonthName(Aylar))
        lst.ListSubItems.Add = WorksheetFunction.CountIfs(Range("D:D"), VBA.MonthName(Aylar), Range("F:F"), "DOLU")
        lst.ListSubItems.Add = WorksheetFunction.CountIfs(Range("D:D"), VBA.MonthName(Aylar), Range("F:F"), "")
    Next
End Sub

 

[seddur]

Tamamdır,Teşekkür ederim.