Maar 1 checkbox per pagina toestaan.

[bgoo]

Hallo!

Ik heb een vraagje: ik heb een excel bestand met 2 checkboxen, waar een actie aan verbonden zit. De pagina wordt automatisch gegenereerd dus elke pagina heeft andere checkbox nummers.

Ik heb een script nodig waardoor er maar 1 checkbox per pagina aangekruist mag worden, dus dat hij hem ook weer op "niet aangevinkt" zet indien dit wel gebeurd.

Zoals ik al zei is het oproepen van bijvoorbeeld "checkbox 4 " niet mogelijk dat ze per pagina anders heten.

Hartstikke bedankt!

 

[Roncancio]

Waarom geen optionbuttons?
Zodra een optionbutton is aangeklikt, worden de andere optionbuttons uitgevinkt.

Met vriendelijke groet,


Roncancio

 

[bgoo]

De checkboxes worden gebruikt om een betaling af te ronden naar een kasstaat.
Indien er een correctie is (dus toch niet betaald), moet het uitgevinkt worden.
Om tegen te gaan dat er 10x achter elkaar ff geswicht wordt tussen twee opties lijkt mij het beter om checkboxes te gebruiken.

Ook is de layout van een checkbox meer naar een echte handeling.
Misschien wat tips, advies of kan dit ook gewoon met option buttons?

Hier de code:

If ActiveSheet.Range("F30") = True Then
I = 0
MsgBox "De pin- en contant betaling kunnen niet tegelijkertijd geschieden.", vbInformation
ActiveSheet.Shapes.Range(Array("Check Box 6")).Select
    With Selection
        .Value = xlOff
    End With
    Range("C5").Select
Else

If ActiveSheet.Range("F29") = True Then

Continue = MsgBox("Is de bon betaald?", vbYesNo + vbQuestion, "Bevestiging")
    If Continue = vbNo Then
    Continue = ActiveSheet.Shapes.Range(Array("Check Box 6")).Select
    With Selection
        .Value = xlOff
    End With
    Range("E28").Select
      
    Else

    ,, Bepaalde Actie ,,
    
   ActiveWorkbook.Unprotect Password:="igor1337"
Application.ActiveSheet.name = "z#Betaald " & Application.ActiveSheet.name
    ActiveSheet.Tab.Color = RGB(0, 255, 0)
    ActiveWorkbook.Protect Password:="igor1337"

    MsgBox ("De betaling is voltooid.")


ElseIf ActiveSheet.Range("F29") = False Then

 Actie

    MsgBox ("Betaling gecorrigeerd.")
    End If

Bedankt!

 

[bgoo]

Sorry voor het storen, ik heb het al

Ipv

ActiveSheet.Shapes.Range(Array("Check Box 6")).Select
    With Selection
        .Value = xlOff
    End With

Gebruik ik nu

ActiveSheet.Range("F29") = False
      Range("C5").Select

Dankkk