Selektievakje automatisch aanvinken.

[Axelj]

Ik ben bezig met het maken van een formuliertje waarin ik selectievakjes toepas.
Nu lukt het mij niet om het volgende voor elkaar te krijgen:
Ik wil dus iets hebben wat mensen kunnen invullen via een selectievakje.
Dit bevat meerdere opties waaronder bijvoorbeeld de selectievakjes compleet en half.
Nu is het logisch als mensen selecteren voor compleet dat het selectievakje van half niet meer hoeft. Nu wil ik dus dat wanneer er compleet aangevinkt wordt dat half ook automatisch meegaat.
Daarentegen wil ik wel dat ik ook alleen half kan aanvinken.
Is dit op een simpele manier te doen of gaat dit met moeilijke scriptjes alleen werken?

 

[wampier]

Scriptjes, ja; moeilijk, niet per se.

bijvoorbeeld:

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
    
    CheckBox2.Value = True
Else
    
    CheckBox2.Value = False
End If
End Sub

aannemende dat checkbox1 is "compleet" en checkbox2 is "half" zou deze code kunnen doen wat je vraagt

 

[Axelj]

Op de een of andere manier krijg ik het niet voor elkaar.
Ik heb dus maar een simpel voorbeeldje gemaakt van mijn werkblad zodat het zichtbaar is.

Bekijk bijlage Testje met vinkjes.xlsx

 

[wampier]

Je werkt met gelinkte cells, dus kun je die manipuleren. in je voorbeeldsheet: rclick de bovenste checkbox en selecteer "assign macro". selecteer "new macro" en voer het volgende in (zonder de sub / end sub):

Sub CheckBox1_Click() 'of andere subnaam die excel je geeft
    If [blad2!e3] = True Then
        [blad2!e4] = True
    Else
        [blad2!e4] = False
    End If
End Sub

Ik kan helaas even niet de gemodificeerde file uploaden, maar als het niet lukt kan ik het vanavond misschien nog even proberen

 

[Roncancio]

Bij het aan/uit -vinken van Dubbelglas, wordt BG glas ook automatisch aan- danwel uitgevinkt.

Met vriendelijke groet,


Roncancio

 

[Axelj]

Je werkt met gelinkte cells, dus kun je die manipuleren. in je voorbeeldsheet: rclick de bovenste checkbox en selecteer "assign macro". selecteer "new macro" en voer het volgende in (zonder de sub / end sub):

Sub CheckBox1_Click() 'of andere subnaam die excel je geeft
    If [blad2!e3] = True Then
        [blad2!e4] = True
    Else
        [blad2!e4] = False
    End If
End Sub

Ik kan helaas even niet de gemodificeerde file uploaden, maar als het niet lukt kan ik het vanavond misschien nog even proberen

Na een beetje gepuzzel (aangezien mijn orginele bestand niet met blad2 e.d. werkte is het gelukt op deze manier.
Bedankt voor de hulp nu kan ik verder puzzelen om dit bij meerdere van dit soort gevalletjes toe te passen.