Seçili checkbox ları hücrelere yazdırma

[tsoyts]

Arkadaşlar merhabalar. Userform da 40 adet checkbox var. Ben istiyorum ki kaydet butonuna tıkladığımda seçtiğim checkboxları ( örneğin 3 checkbox işaretli ise ) Sırasıyla A1 B1 C1 hücrelerine yazsın tekrar kaydet dersem A2 B2 C2 hücrelerine yazsın yani son dolu hücrenin altına ekleyerek devam etsin. Mümkün müdür acaba

 

[Necdet]

Merhaba,

Kodları dener misiniz?

Private Sub CommandButton1_Click()

    Dim Nesne, _
        i   As Long, _
        j   As Integer
    
    i = Cells(Rows.Count, "A").End(3).Row + 1
    j = 0
    
    For Each Nesne In Me.Controls
         If TypeOf Nesne Is msforms.CheckBox Then
            If Nesne = True Then
                j = j + 1
                Cells(i, j) = Nesne.Name
            End If
         End If
    Next
    
End Sub

 

[tsoyts]

teşekkür ediyorum