Excel VBA interior colour Userform controls

[Aretradeser]

In a Userform I use several TextBoxes and ComboBoxes. If in the ComboBox1 any country is selected, except "ESPAÑA" or "PORTUGAL", the TextBox7 and the ComboBox6 are disabled; by means of this code:

Private Sub VisibilidadControles()
    Me.TextBox7.Enabled = (Me.ComboBox1 = "ESPAÑA" Or Me.ComboBox1 = "PORTUGAL")
    Me.ComboBox6.Enabled = (Me.ComboBox1 = "ESPAÑA" Or Me.ComboBox1 = "PORTUGAL")
End Sub

Private Sub ComboBox1_Change()
    VisibilidadControles
    ComboBox2.Value = ""
End Sub

What code would have to be added so that both TextBox7 and ComboBox6, are coloured red when an item other than those two countries is selected?

 

[dmt32]

Hi,
untested but see if this update to your code does what you want

Private Sub VisibilidadControles()
    Dim m As Variant
    m = Application.Match(Me.ComboBox1.Text, Array("ESPAÑA", "PORTUGAL"), 0)
    With Me.TextBox7
        .Enabled = Not IsError(m)
        .BackColor = IIf(.Enabled, vbWindowBackground, vbRed)
    Me.ComboBox6.Enabled = .Enabled
    Me.ComboBox6.BackColor = .BackColor
    End With
End Sub

Dave

 

[Aretradeser]

It couldn't be faster. Perfect
Thanks

 

[dmt32]

It couldn't be faster. Perfect
Thanks

most welcome & appreciate feedback

Dave