Sınıf Oluşturma

[hakkım]

arkadaşlar forumdakıler sağolsun geçen sende sınf oluşturma programı yapmışlardı ama bu sene bıras değişiklik yapıcam.
Onun İçin Aşşağıdakı kodun dağıtımı gerçekleştirme kısmını açıklayabilirmisinizz . hanig satırda ne yapıyoorr.

Public Sub Dagit()
'-------- Sayfaları Boşalt -------------
For i = 2 To 7
    Sheets(i).Range("c3:d65536").ClearContents
Next i
'----- SIRALA ------------------
i = [B65536].End(3).Row
Erkekler = Application.WorksheetFunction.CountIf(Range("C2:C" & i), "e")
Kizlar = Application.WorksheetFunction.CountIf(Range("C2:C" & i), "k")
If Erkekler <= Kizlar Then
   Range("B2:C" & i).Sort Key1:=[C2], Order1:=xlDescending, Key2:=[C2]
   Adet = Kizlar
   Cinsiyet = "E"
Else
   Range("B2:C" & i).Sort Key1:=[C2], Order1:=xlAscending, Key2:=[C2]
   Adet = Erkekler
   Cinsiyet = "K"
End If

'----------- Dağıtımı Gerçekleştir ----------
SayfaNo = 7
Sayfa = 1
For i = 2 To [A65536].End(3).Row
    If Cells(i, "C") = Cinsiyet Then Exit For
    Sayfa = Sayfa + 1
    If Sayfa > SayfaNo Then Sayfa = 2
    SatirNo = Sheets(Sayfa).[B65536].End(3).Row + 1
    Sheets(Sayfa).Cells(SatirNo, "B") = Cells(i, "B")
    Sheets(Sayfa).Cells(SatirNo, "C") = Cells(i, "C")
    Sheets(Sayfa).Cells(SatirNo + 1, "B") = Cells(i, "B").Offset(Adet, 0)
    Sheets(Sayfa).Cells(SatirNo + 1, "C") = Cells(i, "C").Offset(Adet, 0)
Next i
MsgBox "Dağıtım Bitmiştir............"
End Sub

Programın Geçen Seneki Hali

 

[hakkım]

yardım edebilecek varmıı lütfen

 

[hakkım]

yardm edebilecek olanlar lutfen