Kan iemand mij deze code uitleggen

[patrickje]

Hoi kenners.

Ik heb een tijdje geleden een vraag gepost maar kan hem niet meer teurg vinden.
Omdat ik de uitleg had uitgeprint maar er helaas drinken overheen is gegaan was ik weer opzoek.

Nu is mijn vraag

Zou iemand mij deze code nogmaals kunnen uitleggen

Dim CT As Control
 Dim lRij As Long
 Dim iB As Integer
 Dim IA As Integer
 Dim iKol As Integer
 
    For Each CT In Controls
        If TypeOf CT Is msforms.CheckBox Then
            With Sheets("Blad" & Right(CT.Name, 1))
                lRij = .Range("C" & Rows.Count).End(xlUp).Row + 1
                .Cells(lRij, "C") = TextBox1.Value
                If CT.Value = True Then
                    If Right(CT.Name, 1) = 1 Then
                        iB = 2
                        IA = 6
                    Else
                        iB = Right(CT.Name, 1) * 5 - 2
                        IA = 5
                    End If
                    For iKol = 4 To 3 + IA
                        .Cells(lRij, iKol).Value = Me.Controls("TextBox" & iB).Value
                        iB = iB + 1
                    Next
                End If
            End With
        End If
    Next
    
  MsgBox "gegevens zijn toegevoegd"
Unload Me
End Sub

M.V.G.

 

[Roncancio]

Aangezien ik de code zelf geschreven heb, zal ik ook maar reageren....

De code komt uit deze topic en in #14 heb ik een toelichting gegeven.
Wat is hier nog niet duidelijk aan?

Met vriendelijke groet,


Roncancio

 

[danny147]

Beste patrickje

Hoi kenners.

Ik heb een tijdje geleden een vraag gepost maar kan hem niet meer teurg vinden.
Omdat ik de uitleg had uitgeprint maar er helaas drinken overheen is gegaan was ik weer opzoek.

M.V.G.

Had je een beetje moeite gedaan, dan had je het zelf gevonden.

Klik links op je naam en "bekijk je profiel".
Klik dan op "zoek alle berichten gestart zijn door gebruiker".
De 6de vraag is je antwoord.

Groetjes Danny. :thumb:

 

[patrickje]

Dank je wel jongens voor het helpen.

Ik heb een tijdje niks gedaan met mijn huidig document ga hem nu een beetje aanpassen.

Bedankt voor jullie tijd.

M.V.G.