Need Help Using Case

[My Aswer Is This]

I’m trying to use this script to determine if UserForm controls are true or false.
I wanted to use case statement.
I cannot understand what is wrong with the script where you see the statement this is not working. I’m wanting to know if Textbox or Combobox has values.
I tried using Else statement but that does not work. The object is if the control is empty or false to change the controls backcolor to Red. If control does have values or is true set backcolor of control to Green. I know how to do this with a loop and use if and else but do not know how to use Else using case. I do not use case very often so not sure how to do this. Please don’t say just do not use case and use loops. I’m trying to learn more about case.

Private Sub CommandButton2_Click()
Dim ctrl As MSForms.Control
 
For Each ctrl In Me.Controls
    Select Case True
   
        Case TypeOf ctrl Is MSForms.CheckBox
            ctrl.Value = False
            ctrl.BackColor = vbRed
            ctrl.Value = True
            ctrl.BackColor = vbGreen
            
        Case TypeOf ctrl Is MSForms.TextBox
            ctrl.Value = vbNullString
            ctrl.BackColor = vbRed
            ctrl.Value = True     'This does not work
            ctrl.BackColor = vbGreen
            
      Case TypeOf ctrl Is MSForms.ComboBox
            ctrl.Value = vbNullString
            ctrl.BackColor = vbRed
            ctrl.Value = True     'This does not work
            ctrl.BackColor = vbGreen
    
        Case TypeOf ctrl Is MSForms.OptionButton
                ctrl.Value = False
                ctrl.BackColor = vbRed
                ctrl.Value = True
                ctrl.BackColor = vbGreen
    End Select
    
Next ctrl
End Sub

 

[My Aswer Is This]

Come on now. I help a lot of people here. No one can help me with My Case question. It's just a case if question.

I have never used case if else

 

[steve the fish]

Take a look at this and see if it helps. You can nest case statements:

For Each ctrl In Me.Controls
    Select Case True
        Case TypeOf ctrl Is MSForms.CheckBox, TypeOf ctrl Is MSForms.OptionButton
            Select Case ctrl.Value
                Case True
                    ctrl.BackColor = vbGreen
                Case Else
                    ctrl.BackColor = vbRed
            End Select
        Case TypeOf ctrl Is MSForms.TextBox, TypeOf ctrl Is MSForms.ComboBox
            Select Case ctrl.Value
                Case vbNullString
                    ctrl.BackColor = vbRed
                Case Else
                    ctrl.BackColor = vbGreen
            End Select
    End Select
Next ctrl

 

[My Aswer Is This]

Thank you Steve. That worked perfect. Now I understand Case more.

Take a look at this and see if it helps. You can nest case statements:

For Each ctrl In Me.Controls
    Select Case True
        Case TypeOf ctrl Is MSForms.CheckBox, TypeOf ctrl Is MSForms.OptionButton
            Select Case ctrl.Value
                Case True
                    ctrl.BackColor = vbGreen
                Case Else
                    ctrl.BackColor = vbRed
            End Select
        Case TypeOf ctrl Is MSForms.TextBox, TypeOf ctrl Is MSForms.ComboBox
            Select Case ctrl.Value
                Case vbNullString
                    ctrl.BackColor = vbRed
                Case Else
                    ctrl.BackColor = vbGreen
            End Select
    End Select
Next ctrl