Met behulp van Userform de gegevens overschrijven

[jvcmaster]

Ik heb een aantal userforms gemaakt en het werkt redelijk maar bij de knop bedkeuring moet je de gegevens invullen in de tekstbox en checkbox en zodra je knop "gekeurdt" indruk moet de gevens worden overschreven op de 'sheet'Lijst achter het betrefende keurings sticker het werkt wel alleen de checkboxen neem hij niet mee.
hoe nu verder.

 

[Warme bakkertje]

Je kolommen elec Veiligheid moeten na productiejaar geplaatst worden, anders worden je gegevens verkeerd weggeschreven. Voor het wegschrijven van de checkboxes is er geen code aanwezig ?

ps Gekeurd is met 'd' op het einde, geen 'dt'

 

[jvcmaster]

Bedankt voor de opmerking maar het probleem is juist de code voor de checkbox die krijg ik niet voor elkaar.

 

[Warme bakkertje]

Je hebt toch de code voor je Textboxen Die kan je toch zéér eenvoudig aanpassen voor je Checkboxen.

For c = 11 To 25   'vult in een loop de kolom achter de juiste bed nummer
        ActiveCell.Offset(0, c).Value = Controls("CheckBox" & c - 10).Value
    Next c

 

[Jack Nouws]

Hallo,

TIP Ik zou je CheckBox commando's ook aanpassen.

Private Sub CheckBox1_Click()
    If Invoer.CheckBox1.Value = True Then MsgBox "Opschrift leesbaar Afgekeurd."
End Sub

Met vr gr,
Jack

 

[jvcmaster]

bedankt voor de reactie is mij gelukt zoals jullie vertelde het duurde even op deze reactie door ziekte