Checkbox vraagjes...

[roywaarts]

Goedemiddag allen,

Ik ben in VBA bezig met het maken van een formulier om een lijst te creëren.
Daar gebruik ik deze code voor:

If Checkbox1 = True Then Cells(emptyRow, 5).Value = 1

Nu heb ik veel checkboxen die ik graag ook op elkaar wil laten reageren.

Stel ik heb 3 Checkboxen.

Product A
Product B
Product C

Als je kies voor Product A is Product B inclusief en zal deze ook geselecteerd worden maar kan je eventueel nog uitschakelen.

Private Sub CheckBox1_Click()
CheckBox2.Value = True
End Sub

Als je Product C kiest dan is Product B niet te combineren

Private Sub CheckBox3_Click()
 CheckBox2.Enabled = Not (CheckBox2.Enabled)
End Sub

Deze wordt dan grijs en niet meer selecteerbaar, maar Product A mag je nog steeds kiezen.
Echter ondanks Product B niet meer selecteerbaar is en je kiest daarna Product A komt er toch een vinkje bij Product B en dat wil ik niet.

Is daar een oplossing voor?
Misschien iets met IF?

Thanks voor het meedenken!

grtz

Roy

 

[roywaarts]

Oplossing

Ik ben zelf met een oplossing gekomen

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

Whoop Whoop

 

[roywaarts]

Hmmmz nog niet helemaal zoals ik wil.

Ik heb nu 2 checkboxen die beide aangevinkt kunnen worden, en bij beide moet 1 check box worden uitgevinkt
Stel

3 producten

Product A
Product B
Product C

Wanneer je Product A besteld kan je Product C niet meer bestellen

Private Sub ProductA_Click()
ProductC.Enabled = Not (ProductC.Enabled

Wanneer je Product B besteld kan je product C ook niet bestellen

Private Sub ProductB_Click()
ProductC.Enabled = Not (ProductC.Enabled

Maar als je Product A besteld kan je nog wel Product B bestellen
maar als je op Product A klikt valt product C weg (zoals het hoort)
als je dan vervolgend op product B klikt wordt product C weer actief en dat wil ik niet

Iemand tips?

 

[roywaarts]

Daarnaast heb ik ook de If vraag

If checkbox1 = yes And Checkbox2 = Yes And Checkbox2 = yes then
"Doe dit"
Else
"Doe Dat"

Hoe zou deze er echt uit moeten komen te zien ?

 

[edmoor]

Voor vraag #4. Het gaat om Boolean waarden en dan mag je dit doen:

If checkbox1 And Checkbox2 And Checkbox3 then
    "Doe dit"
Else
    "Doe Dat"
End If

De controle of een Checkbox "Nee" is doe je dan zo:
If Not Checkbox1

 

[roywaarts]

Thanks!