probleem checkbox in macro

[MrRenxi]

Beste,

Ik ben bezig met een registratiesheet voor bezoekers, waarbij ze een checkbox moeten aanvinken als ze de huisregels hebben gelezen, waarna ze dmv een knop zich inschrijven. Wanneer ze de checkbox niet hebben aangevinkt moet er een msgbox komen.

Nu krijg ik het niet voor elkaar om de macro de checkbox te laten controleren, wat doe ik verkeerd?

Onderstaand de macro, voorbeeld bijgevoegd.

Sub test()

If CheckBox1 Then
Range("B5:C5").Select
Selection.Copy
Range("G5:K5").Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Range("B5:C5").Select
Selection.ClearContents
Range("C5").Select
Else
MsgBox "Huisregels lezen"
End If


End Sub

Gr,
Remco

 

[edmoor]

Maak er eens dit van:
If Sheets("Sheet1").CheckBox1 Then

 

[E v R]

Of de code plaatsen in de sheet zelf, (al die selects en selections zijn wat overbodig)

 

[MrRenxi]

@edmoor,

Het werkt thx

 

[MrRenxi]

een follow up vraag,

Eigenlijk moet het vinkje van de checkbox uitgezet worden door de macro, en ik vind hier verschillende codes/voorbeelden voor echter krijg ik het niet werkend.
Weet iemand welk stukje code ik hiervoor moet gebruiken?

gr,
Remco

 

[MrRenxi]

Zelf tot een oplossing gekomen, toch bedankt allemaal.

Sheets("sheet1").CheckBox1.Value = False

Gr,
Remco

 

[edmoor]

Correct. Maar E v R heeft ook gelijk.
Hang de code achter Sheet1 in plaats van in een module en maak er dan dit van:

If CheckBox1 Then
    Range("G5:H5") = Range("B5:C5").Value
    Rows(5).Insert Shift:=xlDown
    Range("B5:C5").ClearContents
    Range("C5").Select
    CheckBox1.Value = False
Else
    MsgBox "Huisregels lezen"
End If