optionbutton leeglaten

[adriaanj]

Goedendag,

ik heb in een formulier twee optionbuttons, de ene moet de andere uitsluiten en daarnaast moet het mogelijk zijn om alle twee de optionbuttons uitgevinkt te krijgen. In mijn code sluit de ene de ander wel uit, maar het is niet mogelijk om beide buttons uitgevinkt te krijgen. Wat doe ik fout?

Mijn code:

Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
OptionButton2.Value = False
End If
If OptionButton1.Value = True Then
Rows("14:20").Select
Selection.EntireRow.Hidden = False
Rows("40:44").Select
Selection.EntireRow.Hidden = False
Else
If OptionButton1.Value = False Then
Rows("14:20").Select
Selection.EntireRow.Hidden = True
Rows("40:44").Select
Selection.EntireRow.Hidden = True
End If: End If
End Sub

Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then
OptionButton1.Value = False
End If
If OptionButton2.Value = True Then
Rows("14:20").Select
Selection.EntireRow.Hidden = True
Rows("40:44").Select
Selection.EntireRow.Hidden = True
Else
If OptionButton2.Value = False Then
Rows("14:20").Select
Selection.EntireRow.Hidden = False
Rows("40:44").Select
Selection.EntireRow.Hidden = False
End If: End If
End Sub

 

[Roncancio]

Wanneer moeten beide optionbutton leeg blijven?
Overigens kan je code wat korter.

Private Sub OptionButton1_Click()
OptionButton2.Value = Not OptionButton1.Value
Rows("14:20").EntireRow.Hidden = Not OptionButton1.Value
Rows("40:44").EntireRow.Hidden = Not OptionButton1.Value

End Sub

Private Sub OptionButton2_Click()
OptionButton1.Value = Not OptionButton2.Value
Rows("14:20").EntireRow.Hidden = OptionButton2.Value
Rows("40:44").EntireRow.Hidden = OptionButton2.Value

End Sub

Met vriendelijke groet,


Roncancio

 

[adriaanj]

dat is wel een heel stuk korter! Ik ben nog niet zolang met excel macro's bezig, ik ben al blij dat ik het op deze manier werkend gekregen heb. Qua onderhoud is de manier waarop jij het schrijft een stuk fijner werken natuurlijk, ik hoop nog wat stappen te kunnen maken.

Ik wil beide vakjes leeg laten wanneer een gebruiker het formulier voor de eerste keer ziet. Dit kan ik doen door de vakjes zelf ook leeg te laten, het bestand op te slaan en het dan aan de gebruiker te geven, maar op die manier kan ik het zelf niet testen.

Als ik checkboxen gebruik zou ik beide vakjes leeg kunnen laten door nogmaals op een aangevinkte checkbox te klikken, het vinkje verdwijnt en de andere checkbox wordt dan niet aangevinkt. Ik ben er achter gekomen dat dit bij een optionbutton niet zo werkt, maar helaas is mij gevraagd om optionbuttons in plaats van checkboxen te gebruiken.

 

[Roncancio]

Je zou in ThisWorkbook de volgende code kunnen plaatsen.

Private Sub Workbook_Open()
OptionButton2.Value = False
OptionButton1.Value = False
End Sub

Bij het opstarten van het bestand worden beide Optionbuttons leeggemaakt.

Met vriendelijke groet,


Roncancio

 

[adriaanj]

prima, dan zet ik dat erin. Bedankt voor je hulp!