Userform Option Button to Show/Hide Another Option Button on same Userform

**R_S_6** · 08-26-2010, 08:53 AM

Hi All,

I have a userform that has two checkboxes - 'OBTCL' & 'OBNAS'. When the value of 'OBTCL' is true I would like it to show an Option Button 'OBLabel'. If false then hide 'OBLabel'
All the above are on the same userform - 'UserForm1'.

I have tried the following:

Sub UserForm1_Initialise()

UserForm1.Me.Controls("OBLabel").Visible = False

    If OBTCL.Value = True Then
        UserForm1.Me.Controls("OBLabel").Visible = True
    Else
        If OBNAS.Value = True Or OBTCL.Value = False Then
            UserForm1.Me.Controls("OBLabel").Visible = False
        End If
    End If

End Sub

The above still shows 'OBLabel. I'm also not sure if i have put the code in the correct Sub, 'UserForm1_Initialise'?

Any help on the above would be appreciated as always.
Cheers,
Mark

**Andy Pope** · 08-26-2010, 08:56 AM

The initialize event of a userform has this signature.

Private Sub UserForm_Initialize()

End Sub

It does not include the userform name nor is initialize spelt with a s.

So that would suggest you created that routine and as you suspect it is not exectued when the userform loads.

**R_S_6** · 08-26-2010, 09:11 AM

Thanks Andy.

I have made those mods and a few others:

Private Sub Workbook_Open()
    UserForm1.Show
End Sub

Private Sub UserForm_Initialize()
    If OBTCL.Value = True Then
        Me.Controls("OBLabel").Visible = True
    Else
        If OBNAS.Value = True Or OBTCL.Value = False Then
            Me.Controls("OBLabel").Visible = False
        End If
    End If
End Sub

It now opens with the workbook and doesn't show the 'OBLabel'. Unfortunately it also doesn't show it when I select 'OBTCL'...

Any Ideas? Thanks for your help.
Mark

**Andy Pope** · 08-26-2010, 09:14 AM

If the only place you are altering the Visible property is in the initialize event then it will not appear as suspect the default values of the checkbox are such that the label should not appear.

You would also need to check the status of things whenever the checkbox values change. So you would need code in their change events.

**R_S_6** · 08-26-2010, 09:44 AM

Okay I think I have it working. When I wrote the original post I wrote Checkboxes as opposed to Option Buttons. Thus there were three optionboxes and when one was active it didnt like another being active.

To solve: I changed OBLabel to a checkbox, 'CBLabel'.
Here is the working code:

Private Sub Workbook_Open()
    UserForm1.Show
End Sub

Private Sub OBTCL_Change()
    If OBTCL.Value = True Then
        Me.Controls("CBLabel").Visible = True
    Else
        If OBNAS.Value = True Or OBTCL.Value = False Then
            Me.Controls("CBLabel").Visible = False
            CBLabel.Value = False
        End If
    End If
End Sub

Private Sub UserForm_Initialize()
    If OBTCL.Value = True Then
        Me.Controls("CBLabel").Visible = True
    Else
        If OBNAS.Value = True Or OBTCL.Value = False Then
            Me.Controls("CBLabel").Visible = False
        End If
    End If
End Sub

Thanks again for your help Andy - great information & help as always!
Mark