error if option button in frame is not selected in userform reopen userform

[AwesomeSteph]

I have a userform that I would like to reopen after an error pops up if option buttons aren't selected within frames.

I have a code that works for the error but once the error is closed the userform is also closed. I need the user to be forced to make a selection from both frames in the userform.

Private Sub CommandButton1_Click()
    Unload Me
        
If OptionButton1.Value = True Then
    Sheet8.CheckBox1.Value = False
    Sheet7.Visible = True
End If
If OptionButton2.Value = True Then
    Sheet8.CheckBox1.Value = True
    Sheet7.Visible = False
End If
If OptionButton3.Value = True Then
    Sheet8.CheckBox2.Value = False
    Sheet7.Visible = True
End If
If OptionButton4.Value = True Then
    Sheet8.CheckBox2.Value = True
    Sheet7.Visible = False
End If


For Each ctrl In Frame1.Controls


   If TypeOf ctrl Is msforms.OptionButton Then


       If ctrl.Value = True Then
             F1D = True
             Exit For
             End If
       End If
   Next ctrl


If F1D = False Then
MsgBox "No Option Selected In Frame 1"
End If


For Each ctrl In Frame2.Controls


   If TypeOf ctrl Is msforms.OptionButton Then


       If ctrl.Value = True Then
             F2D = True
             Exit For
             End If
       End If
   Next ctrl


If F2D = False Then
MsgBox "No Option Selected In Frame 2"
End If


End Sub

 

[Norie]

First thing to do is remove this from the top of the code.

    Unload Me

This will unload the userform after the rest of the code has run regardless of what happens in that code.

You should probably move it to the end of the code and make sure it only gets executed when you are sure the requirements have been met, e.g. all the appropriate selections made.

 

[mikerickson]

Setting each group of option buttons to a default value at start up will stop any problems caused by unselected groups of buttons.

 

[AwesomeSteph]

I tried that and it didn't change anything. Still closes out the userform.

 

[Norie]

Tried what exactly?

 

[AwesomeSteph]

Tried what exactly?

Moving the unload me to the bottom of the sub.

 

[Norie]

You can't just move it.

You either need to move it and add conditions to make sure it doesn't get executed unless all the requirements are met or add to the preceding code so that when a condition isn't met the sub is exited.

The latter might look something like this.

If F1D = False Then
    MsgBox "No Option Selected In Frame 1"
    Exit Sub ' and do not dismiss the userform
End If

 

[AwesomeSteph]

Setting each group of option buttons to a default value at start up will stop any problems caused by unselected groups of buttons.

I'm not 100% sure if I understand what you mean. If you mean having one option button from each frame pre-selected this is not an option I have users that will ignore it and have the wrong options selected on other forms because of this.

 

[AwesomeSteph]

You can't just move it.

You either need to move it and add conditions to make sure it doesn't get executed unless all the requirements are met or add to the preceding code so that when a condition isn't met the sub is exited.

The latter might look something like this.

If F1D = False Then
    MsgBox "No Option Selected In Frame 1"
    Exit Sub ' and do not dismiss the userform
End If

That was perfect! Thank you!!