With userforms is it possible to deselect the optionbox after clicking it again when it states set to true?

[Bassie]

Hi,

I want to be able to deselect the entire optionbox by clicking the option again (like a checkbox) is this possible without doing it via another button?

Pic:

So when I click "In Entire String" again I want to deselect them both.

Regards,
Bassie

 

[Jimmypop]

Hi there

Does it have to be an Optionbutton? By Using a Checkbox you can select and deselect a Checkbox.

 

[Jimmypop]

If it cannot be a Checkbox then try the below...

If I look correctly it looks like you have these inside a Frame on the Userform... Try...

Option Explicit
Private Sub Frame1_Click() 'Replace Frame1 with the name of your Frame Control
Dim Ctrl As Control
  For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.OptionButton Then
            If Ctrl.Value Then
                Ctrl.Value = False
                Exit For
            End If
        End If
  Next Ctrl
End Sub

Then just click anywhere inside the frame...

 

[Bassie]

If it cannot be a Checkbox then try the below...

If I look correctly it looks like you have these inside a Frame on the Userform... Try...

Option Explicit
Private Sub Frame1_Click() 'Replace Frame1 with the name of your Frame Control
Dim Ctrl As Control
  For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.OptionButton Then
            If Ctrl.Value Then
                Ctrl.Value = False
                Exit For
            End If
        End If
  Next Ctrl
End Sub

Then just click anywhere inside the frame...

Hi This does work thanks!

Is it also possible to have it so if the user clicks the same option again that it turns them all off?

Or am I being dumb and is it also possible for check boxes to be dependent on eachother so that you can only choose one?

- Bassie

 

[Bassie]

I finally found something:

Private PreviousOption As Boolean
Private Sub RemoveBlanksUp_Click()

If PreviousOption = True Then RemoveBlanksUp = False

PreviousOption = False

End Sub

Private Sub RemoveBlanksUp_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim Ctrl As control
  
If RemoveBlanksUp = True Then RemoveBlanksUp = False: PreviousOption = True

End Sub

 

[smozgur]

Hi This does work thanks!

The marked solution has been changed accordingly. In your future questions, please mark the post as the solution that actually answered your question, instead of your feedback message as it will help future readers. No further action is required for this thread.