rapor sayfasına checkbox'lar ile veri aldırma

[hikmet]

Merhaba Sn.Hocalarım ve Arkadaşlarım;
Ek'li dosyada userformda bölümlere göre verileri sınıflandırıyorum ve checkbox'lar ile verilerin istediğim kolonlarının gelmesini sağlıyorum fakat bir bölümün 10 adet verisi var o bölümü işaretlediğimde o bölümün on verisininde rapor sayfasına gelmesi gerekirken sadece en baştaki veri gelioyr. kime ait olduğunu bile denetlemiyor. yapmak istediğim hangi bölümü seçiyorsam o bölüme ait kaç tane kayıt var ise alt alta sıralanması. Konu hakkında bilgilerinizi paylaşırmısınız lütfen. İlginize ve emeğinize şimdiden teşekkür ederim.

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton3_Click()
Dim s1 As Worksheet, s2 As Worksheet, sat As Long, son As Long
Dim myarr, sut As Byte, i As Long
Set s1 = Sheets("DIARY")
Set s2 = Sheets("RAPORLAMA")
Set coll = New Collection
Application.ScreenUpdating = False
s2.Range("A1:H65536").Clear
ReDim myarr(1 To 2, 1 To 1)
For i = 1 To 8
    If Me.Controls("CheckBox" & i).Value = True Then
        sut = sut + 1
        s2.Cells(1, sut).Value = Me.Controls("CheckBox" & i).Caption
        ReDim Preserve myarr(1 To 2, 1 To sut)
        myarr(1, sut) = sut
        myarr(2, sut) = i + 2
    End If
Next i
son = s1.Cells(65536, "B").End(xlUp).Row
sat = 2
If sut = 0 Then Exit Sub
For i = 2 To son
    For z = 1 To sut
        s2.Cells(sat, myarr(1, z)).Value = s1.Cells(i, myarr(2, z)).Value
    Next z
    sat = sat + 1
Next i
Application.ScreenUpdating = True

End Sub

 

[hikmet]

Sn.Evren Gizlen;
İlginiz için çok teşekkür ederim. Kodu çalıştırdım fakat hangi bölümü seçersem seçeyim tüm kayıtlar geliyor. Yapmak istediğim sadece işaretlediğim bölüme ait verilerin gelmesi. Konu hakkında fikrinizi paylaşırmısınız lütfen.