VBA IF with multiple conditions

[RedOctoberKnight]

Good Morning,

I'm currently working on a project for work and slowly trying to teach myself VBA in the process. I have a Userform set up and I want to be able to show another textbox based on certain values in a combo box.

I have the following code that I've been experimenting with. I can get it to work for the one condition but I want it to be able to work for all the conditions. I want the text box to appear when Text1, 2 and 3 are selected but hide when text4, 5, and 6 are selected.

Private Sub ComboBox1_change()

        If ComboBox1 = "TEXT1" Then
               TextBox1.Visible = True
         Else
    TextBox1.Visible = False
    End If
    
  
    
End Sub

Any help would be much appreciated.

Thanks,

 

[dmt32]

Hi
try this update to your code & see if does what you want

Private Sub ComboBox1_change()
    Dim ShowWhenSelected As Variant
    
    ShowWhenSelected = Array("TEXT1", "TEXT2", "TEXT3")
    
    Me.TextBox1.Visible = Not IsError(Application.Match(Me.ComboBox1.Value, ShowWhenSelected, 0))
End Sub

Dave

 

[RedOctoberKnight]

Works perfectly! Thanks!

If I had a range of what "text" I'm looking for on a settings sheet, would I be able to use that so incase I add or subtract specific text that I'm looking for, it will automatically update?

Thanks,

 

[dmt32]

Works perfectly! Thanks!

If I had a range of what "text" I'm looking for on a settings sheet, would I be able to use that so incase I add or subtract specific text that I'm looking for, it will automatically update?

Thanks,

If you want the array to read from a dynamic range on a worksheet then try this modified code & see if does what you want

Private Sub ComboBox1_change()
    Dim ShowWhenSelected As Variant
    Dim ws               As Worksheet
    
    Set ws = Worksheets("Sheet1")
    
    ShowWhenSelected = ws.Cells(1, 1).Resize(ws.Cells(ws.Rows.Count, "A").End(xlUp).Row).Value
    
    Me.TextBox1.Visible = Not IsError(Application.Match(Me.ComboBox1.Value, ShowWhenSelected, 0))

End Sub

Change the worksheet name as required

Dave

 

[RedOctoberKnight]

If you want the array to read from a dynamic range on a worksheet then try this modified code & see if does what you want

Private Sub ComboBox1_change()
    Dim ShowWhenSelected As Variant
    Dim ws               As Worksheet
   
    Set ws = Worksheets("Sheet1")
   
    ShowWhenSelected = ws.Cells(1, 1).Resize(ws.Cells(ws.Rows.Count, "A").End(xlUp).Row).Value
   
    Me.TextBox1.Visible = Not IsError(Application.Match(Me.ComboBox1.Value, ShowWhenSelected, 0))

End Sub

Change the worksheet name as required

Dave

My apologies, I realized I forgot to say Thank you!

 

[dmt32]

My apologies, I realized I forgot to say Thank you!

no worry & much appreciated - please also remember to mark code used as solution.

Dave

 

[Peter_SSs]

My apologies, I realized I forgot to say Thank you!

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.