süzülen verilerin listboxa gelmesi ve listboxta saydırma işlemi

[enes2000eren]

Slm.arkadaşlar yapmış olduğum örnek uygulamada sayfadaki verilerin ,süzdükten sonra listboxa gelmesini istiyorum.bir de süzülen verilerdeki kız erkek sayısını label 'lara yazılmasını istiyorum.listboxtaki kolon sayısı en az 20-25 olmalı.yardımlarınız için teşekkürler.

 

[Orion1]

Dosyanız Ekte.

Private Sub ComboBox2_Change()
Dim s1 As Worksheet, a As Long, i As Long, kız As Long, erkek As Long
'***************************
ListBox1.RowSource = vbNullString
On Error GoTo HATA
Set s1 = Sheets("KAYIT")
s1.[H2].AutoFilter Field:=8, Criteria1:=ComboBox2 & "*"
ReDim myarr(1 To 11, 1 To 1)
For i = 2 To s1.Cells(65536, "A").End(xlUp).Row
    If Range("A" & i).EntireRow.Hidden = False Then
        a = a + 1
        ReDim Preserve myarr(1 To 11, 1 To a)
        For k = 1 To 11
            myarr(k, a) = s1.Cells(i, k).Value
        Next k
        If UCase(Replace(Replace(s1.Cells(i, "J").Value, "ı", "I"), "i", "İ")) = "KIZ" Then kız = kız + 1
        If UCase(Replace(Replace(s1.Cells(i, "J").Value, "ı", "I"), "i", "İ")) = "ERKEK" Then erkek = erkek + 1
     End If
Next i
ListBox1.Column = myarr
Label249.Caption = Format(kız + erkek, "#,##0")
Label250.Caption = Format(kız, "#,##0")
Label251.Caption = Format(erkek, "#,##0")
HATA:

End Sub

Private Sub CommandButton18_Click()
Dim kiz As Long, erkek As Long
Call listeac
ListBox1.RowSource = "KAYIT!A2:K" & Sheets("KAYIT").Cells(65536, "A").End(xlUp).Row
kiz = WorksheetFunction.CountIf(Sheets("KAYIT").Range("J2:J65536"), "KIZ")
erkek = WorksheetFunction.CountIf(Sheets("KAYIT").Range("J2:J65536"), "ERKEK")
Label249.Caption = Format(kiz + erkek, "#,##0")
Label250.Caption = Format(kiz, "#,##0")
Label251.Caption = Format(erkek, "#,##0")
End Sub

 

[enes2000eren]

evren bey teşekkürler.ellerinize sağlık.tam istediğim gibi olmuş

 

[Orion1]

evren bey teşekkürler.ellerinize sağlık.tam istediğim gibi olmuş

Rica ederim.
İyi çalışmalar.