I have been trying to build a user form with dependent ComboBoxes. I have successfully created two but I cannot get the third to work. Here is the code for the first two that works.
Any help would be appreciated,
VBA Code:
Private Sub ComboBox1_Change()
Application.EnableEvents = False
ComboBox2.Clear
Application.EnableEvents = True
Select Case ComboBox1.Value
Case "Blocking"
ComboBox2.AddItem "Roof Edge"
ComboBox2.AddItem "Toilet Acc/Partition"
ComboBox2.AddItem "Millwork"
ComboBox2.AddItem "Door Frames"
ComboBox2.AddItem "Chalkboards"
ComboBox2.AddItem "Misc."
Case "Framing"
ComboBox2.AddItem "Walls"
ComboBox2.AddItem "Joist"
ComboBox2.AddItem "Roofs"
ComboBox2.AddItem "Ceilings"
ComboBox2.AddItem "Platforms"
ComboBox2.AddItem "Accessories"
ComboBox2.AddItem "Stairs"
Case "Bolts"
ComboBox2.AddItem "Wedge/Expansion"
ComboBox2.AddItem "Machine"
Case "Furring"
ComboBox2.AddItem "Floor Furring"
ComboBox2.AddItem "Wall Furring"
End Select
End Sub
Here is code for the third ComboBox that I cannot get to run. I will also be needing to add additional ComboBoxes:
Private Sub ComboBox2_Change()
Application.EnableEvents = False
ComboBox3.Clear
Application.EnableEvents = True
Case "Roof Edge"
ComboBox3.AddItem "Bolted"
ComboBox3.AddItem "Nailed"
ComboBox3.AddItem "Shaped/Ripped"
Case "Toilet Acc/Partition"
ComboBox3.AddItem "Kiln Dried"
ComboBox3.AddItem "Fire Treated"
Case "Millwork"
ComboBox3.AddItem "Kiln Dried"
ComboBox3.AddItem "Fire Treated "
Case "Door Frames"
ComboBox3.AddItem "Kiln Dried"
ComboBox3.AddItem "Fire Treated
Case "Chalkboards"
ComboBox3.AddItem "Kiln Dried"
ComboBox3.AddItem "Fire Treated
Case "Misc."
ComboBox3.AddItem "Kiln Dried"
ComboBox3.AddItem "Fire Treated
End Select
Any help would be appreciated,
Last edited by a moderator: