Carga en un formulario dos combobox y copia el code que he puesto.
Al seleccionar un elemento de la lista desplegable del combo1 se cargará automaticamente la lista del combo2.
Voy por pasos (pero rapido que me pierdo el futbol ) jejeje
Al iniciar el formulario carga el combo1 con cuatro valores (en este ejemplo he usado números.)
Código:
Private Sub Form_Load()
Combo1.AddItem "uno"
Combo1.AddItem "dos"
Combo1.AddItem "tres"
Combo1.AddItem "cuatro"
End Sub
Al seleccionar un Elemento de la lista del combo1(uno, dos, tres o cuatro) se carga automaticamente el combo2 dependiendo del valor seleccionado del combo1
Código:
Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
Vaciar
Combo2.AddItem "uno"
Combo2.AddItem "uno"
Combo2.AddItem "uno"
Combo2.AddItem "uno"
Case 1
Vaciar
Combo2.AddItem "dos"
Combo2.AddItem "dos"
Combo2.AddItem "dos"
Combo2.AddItem "dos"
Case 2
Vaciar
Combo2.AddItem "tres"
Combo2.AddItem "tres"
Combo2.AddItem "tres"
Combo2.AddItem "tres"
Case 3
Vaciar
Combo2.AddItem "cuatro"
Combo2.AddItem "cuatro"
Combo2.AddItem "cuatro"
Combo2.AddItem "cuatro"
End Select
End Sub
He añadido un procedimiento para vaciar el combo2 y asi solo muestra los valores que se seleccionen.
Código:
Private Sub Vaciar()
Cont = Combo2.ListCount - 1
For x = Cont To 0 Step -1
Combo2.RemoveItem x
Next
End Sub
un saludo.