Hide certain values in combobox

[ipbr21054]

Hi,
On my userform i have ComboBox4 with selections & also in Combobox 7 with selections.

ComboBox4 values are say 1,2,3,4
&
ComboBox7 values are say A,B,C,D,E,F

Is it possible that when ComboBox 1,2 or 4 is selected that ComboBox7 hides say A,B,C

Reason being that if a user selects say 3 he should only then be shown values in ComboBox7 that are relevant



Thanks

 

[Dan_W]

Yes, it can be done, but it's not a matter of hiding items, but rather only filling them with the relevant items once an item in the first combobox is selected.

 

[ipbr21054]

Im trying to use just the 1 table which has all the values bnut was looking like something along the lines of

If ComboBox4.Value = "A" Then
ComboBox7.value = "1".Visible = False
End If

Obviously written the correct way,just needed advice or a pointer

 

[Dan_W]

I'm not at my computer at the moment, but quick question is this being used on a userform?

 

[ipbr21054]

Yes it is

 

[Dan_W]

How do you add the items to the combobar at present?

 

[ipbr21054]

Properties box Table3 etc from a worksheet

 

[Dan_W]

Do you use any kind of VBA code? Or do you just speak out loud to Excel, saying "Properties box Table3 etc from a worksheet"?

 

[DanteAmor]

Is it possible that when ComboBox 1,2 or 4 is selected that ComboBox7 hides say A,B,C

The most practical, instead of hiding, is to show the relevant values.
I show you an example of how you can do it:

Private Sub ComboBox4_Change()
  ComboBox7.Clear
  If ComboBox4.ListIndex = -1 Then Exit Sub
  
  Select Case ComboBox4.Value
    Case 1, 2, 4
      ComboBox7.List = Application.Transpose(Array("D", "E", "F"))  'Write here the relevant values that should be displayed
    Case 3
      ComboBox7.List = Application.Transpose(Array("A", "B", "C"))  'Write here the relevant values that should be displayed
  End Select
End Sub

Private Sub UserForm_Activate()
  'Load only combo 4 values
  ComboBox4.List = Application.Transpose(Array(1, 2, 3, 4))
End Sub

I hope it helps you.

 

[ipbr21054]

Many thanks for the replies