Combo box
Hola Elsa.
Tengo una pregunta kármica: ¿Cómo le puedo hacer para que un combobox dependa de otro?
Por ejemplo: si en el combobox1 selecciono días, que el comobobox2 despliegue lunes, martes... Pero si en el combo1 selecciono meses, entonces que el combo2 despliegue enero, febrero... Diciembre.
Gracias kármicas.
Tengo una pregunta kármica: ¿Cómo le puedo hacer para que un combobox dependa de otro?
Por ejemplo: si en el combobox1 selecciono días, que el comobobox2 despliegue lunes, martes... Pero si en el combo1 selecciono meses, entonces que el combo2 despliegue enero, febrero... Diciembre.
Gracias kármicas.
1 Respuesta
Respuesta de Elsa Matilde
1
El combo donde está (en la hoja o en un Userform...)
¿Y si está en la hoja con qué barra la creaste?
Bueno, a falta de información te daré los pasos para combos creados en hoja con la herramienta 'cuadro de controles'. Luego la adaptás a los controles que tengas. La idea es la misma.
Imagino que en L2:L10 están los nombres de días y en M2:M14 los nombres de meses
En K2:K3 las 2 opciones que se mostrarán en el primer combo.
Luego que lo dibujes y le asignes la propiedad ListFillRange a este primer control, le das clic derecho y optás por 'Ver código'.
Esto te llevará al Editor y allí agregá una rutina como esta:
Private Sub ComboBox1_Click()
If ComboBox1.Value = "dias" Then
ComboBox2.ListFillRange = "L2:L8"
ElseIf ComboBox1.Value = "meses" Then
ComboBox2.ListFillRange = "M2:M14"
End If
End Sub
¿Y si está en la hoja con qué barra la creaste?
Bueno, a falta de información te daré los pasos para combos creados en hoja con la herramienta 'cuadro de controles'. Luego la adaptás a los controles que tengas. La idea es la misma.
Imagino que en L2:L10 están los nombres de días y en M2:M14 los nombres de meses
En K2:K3 las 2 opciones que se mostrarán en el primer combo.
Luego que lo dibujes y le asignes la propiedad ListFillRange a este primer control, le das clic derecho y optás por 'Ver código'.
Esto te llevará al Editor y allí agregá una rutina como esta:
Private Sub ComboBox1_Click()
If ComboBox1.Value = "dias" Then
ComboBox2.ListFillRange = "L2:L8"
ElseIf ComboBox1.Value = "meses" Then
ComboBox2.ListFillRange = "M2:M14"
End If
End Sub
