Listbox 'daki cinsiyetleri toplama

[chakistes]

Merhaba arkadaşlar Userformda Listbox1 den Listbox 2 ye aktardığım kayıtlarda cinsiyetleri ayrı ayrı toplamını alabilirmiyiz.
ayrıca aşağıda yazdırırken listbox 2 den alınan veriyi 500 adet döngü kurabilirmiyiz.

MsgBox (ListBox2.Column(0))

If ListBox2.ListCount > -1 Then
Dim asas As Integer
asas = ListBox2.ListCount
Dim listem(500), sd
sd = 0

For sd = 0 To ListBox2.ListCount + 0

ListBox2.ListIndex = sd


If sd = 1 Then
Range("A26") = "1"
Range("B26") = ListBox2.Column(0, 0)
Range("L26") = ListBox2.Column(1, 0)
Range("R26") = ListBox2.Column(2, 0)
Range("u26") = ListBox2.Column(3, 0)
End If

If sd = 2 Then

Range("A27") = "2"
Range("B27") = ListBox2.Column(0, 1)
Range("L27") = ListBox2.Column(1, 1)
Range("R27") = ListBox2.Column(2, 1)
Range("U27") = ListBox2.Column(3, 1)
End If

If sd = 3 Then

Range("A28") = "3"
Range("B28") = ListBox2.Column(0, 2)
Range("L28") = ListBox2.Column(1, 2)
Range("R28") = ListBox2.Column(2, 2)
Range("U28") = ListBox2.Column(3, 2)
End If

 

[işsiz123]

Lütfen konunuzu örnek dosya ile destekleyiniz.

 

[chakistes]

Listbox cinsiyet toplamı ve tekrarlanan döngü hk.

Arkadaşlar bu konuda destek verebilecek yokmu örnek dosya ekledim.

 

[işsiz123]

Yukarıda bahsettiğiniz kodları silip yerine aşağıdaki kodları yapıştırınız.

  Dim i      As Long
    Dim sonsat As Long

    
    For i = 0 To ListBox2.ListCount - 1
        sonsat = Sayfa7.[A65536].End(3).Row + 1
            With Sheets("faaliyet")
                .Cells(sonsat, "A") = sonsat - 1
                .Cells(sonsat, "B") = ListBox2.List(i, 0)
                .Cells(sonsat, "l") = ListBox2.List(i, 1)
                .Cells(sonsat, "r") = ListBox2.List(i, 2)
                .Cells(sonsat, "u") = ListBox2.List(i, 3)
                
            End With
    Next i

Kız Erkek toplamları içinde akşam bir bakayım.

 

[işsiz123]

Mesaj tekrar gönderilmiş

 

[karakutum]

Çok teşekkür ederim yardımın için benzer bir kod buldum işe yaradı

senin göndermiş olduğun kodu eklediğimde SIRANO 25 den başladı
benim bulduğum kodda 1 sayı önden numara veriyordu. göndermiş olduğun bu kodda For i = 0 To ListBox2.ListCount - 1
bu koddaki -1 ekleyince düzeldi.

cinsiyet olayı içinde bir kod buldum bayağı uğraştım ama onuda çözdüm
Yinede yardımının için teşekkür ederim.

 

[işsiz123]

Rica ederim iyi çalışmalar.