Listview'de tarih ve adet Listeleme

[seddur]

Merhaba.Ekteki dosyada Sayfa1 "A" sutunundaki tarih dökümünü Listview1, 1.sutununda Listelemek daha sonra ise tarihlerin yanlarında bulunan isim adetlerini eğersay makrosu ile Listview1 2.sutununda yazdırmak istiyorum.Yani hangi tarihte kaç kişi gelmiş o bulunacak.Yardımcı olabilirseniz sevinirim.

 

[seddur]

Aşağıdaki kodu çalıştırdım ancak satırdaki boş olmayan hücreleri saymak yerine 16384 gibi bir sayı veriyor.Gelen kişiler Sayfa1 de B:Q sutunlarında kayıtlıdır.Yardımcı olacak arkadaş varmı?

Private Sub ListView1_Click()
Dim c As Variant
Dim s1 As Worksheet
Set s1 = Sheets("Sayfa1")
On Error Resume Next
Set c = s1.[A:A].Find(CDate(TextBox2), , xlValues, xlWhole)
UserForm4.ListView1.SelectedItem.SubItems(2) = WorksheetFunction.CountIfs(s1.Rows(c.Rows.Count), "<>""")

 

[ÖmerFaruk]

Userform1 Activate kodlarınızın EndSub satırın önce aşağıdakileri ekleyebilirsin.

    Dim i As Long, SonHücre As Range
    Set SonHücre = Range("A2").SpecialCells(xlLastCell)
    For i = 2 To SonHücre.Row
        ListView1.ListItems.Add , , Range("A" & i)
        ListView1.ListItems(i - 1).SubItems(1) = WorksheetFunction.CountA(Range("B" & i).Resize(1, SonHücre.Column - 1))
    Next i
    Set SonHücre = Nothing

Not:İlk sorunuza göre hazırladım

 

[seddur]

Tamamdır,çalışıyor.yardımcı olduğınuz için çok Teşekkür ederim.