Como hacer listas dependientes en formulario excel

Cordial Saludo

Expertos tengo un formulario con 3 listas combobox: año, mes, día; con la primera no tengo problemas sin embargo quiero que al seleccionar el mes me traiga en el combobox de día, los días que correspondan a ese mes, y si es año bisiesto me traiga febrero con los 29 días.

Gracias por su ayuda

1 respuesta

Respuesta
2

Si estás cargando los meses con números del 1 al 12, utiliza lo siguiente para llenar los días

Private Sub ComboBox1_Change()
'Por.DAM
    ComboBox2 = ""
    ComboBox3 = ""
End Sub
Private Sub ComboBox2_Change()
'Por.DAM
    ComboBox3 = ""
    If ComboBox1 <> "" And ComboBox2 <> "" Then
        dia = Day(DateSerial(ComboBox1, ComboBox2 + 1, 1) - 1)
        For i = 1 To dia
            ComboBox3.AddItem i
        Next
    End If
End Sub
Private Sub UserForm_activate()
'Por.DAM
    'carga años
    For i = 2010 To 2020
        ComboBox1.AddItem i
    Next
    'carga meses
    For i = 1 To 12
        ComboBox2.AddItem i
    Next
End Sub

Si estás cargando los nombres de los meses, utiliza lo siguiente:

Private Sub ComboBox1_Change()
'Por.DAM
    ComboBox2 = ""
    ComboBox3 = ""
End Sub
Private Sub ComboBox2_Change()
'Por.DAM
    ComboBox3 = ""
    If ComboBox1 <> "" And ComboBox2 <> "" Then
        mes = ComboBox2.ListIndex + 1
        dia = Day(DateSerial(ComboBox1, mes + 1, 1) - 1)
        For i = 1 To dia
            ComboBox3.AddItem i
        Next
    End If
End Sub
Private Sub UserForm_activate()
'Por.DAM
    'carga años
    For i = 2010 To 2020
        ComboBox1.AddItem i
    Next
    'carga meses
    ComboBox2. AddItem "Enero"
    ComboBox2. AddItem "Febrero"
    ComboBox2. AddItem "Marzo"
    ComboBox2. AddItem "Abril"
    ComboBox2. AddItem "Mayo"
    ComboBox2. AddItem "Junio"
    ComboBox2. AddItem "Julio"
    ComboBox2. AddItem "Agosto"
    ComboBox2. AddItem "Septiembre"
    ComboBox2. AddItem "Octubre"
    ComboBox2. AddItem "Noviembre"
    ComboBox2. AddItem "Diciembre"
End Sub

Saludos.Dante Amor

No olvides valorar la respuesta.

La pregunta no admite más respuestas

Más respuestas relacionadas

Como guardar el valor de un textbox dependiendo de la selección de un combobox

Tengo un formulario y dentro de el tengo un textbox vacío y un combobox con varias opciones que toma de la fila 1. Se supone que en este formulario tengo que elegir una opción del combobox y en seguida agregarle una descripción, me gustaría saber...
2 respuestas

¿Como enlazar Combobox dependientes y unir con Textbox al finalizar filtro?

Soy bastante novato y estoy aprendiendo sobre este lenguaje. Tengo un formulario en cual tengo 6 combobox los cuales están enlazados entre sí, es decir, cuando selecciono algún valor en el primer combobox este condiciona el segundo y así...
1 respuesta

Filtrar datos de una base con combobox

Tengo una base que necesito filtrar mediante 3 combobox eliminando los datos repetidos en cada uno de los combobox, al momento de seleccionar el primer combobox1 debe filtrar los datos de la siguiente columna y agregarla al combobox2 y asi con el...
1 respuesta

En combobox vba excel 2007, mostrar datos no repetidos de una columna

Tengo una hoja de excel (Hoja1) con dos columnas de la siguiente manera: A B 1 DOMÉSTICOS PERROS 2 DOMÉSTICOS GATOS 3 domésticos canarios 4 no domésticos león 5 no domésticos cocodrilo Necesito colocar 2 combobox en un userform de manera que cuando...
1 respuesta

Cómo cargar un combobox2 de un formulario dependiendo del combobox1

Tengo el siguiente código para cargar los datos únicos en un combobox. Lo que ahora necesito es que al seleccionar un dato del combobox1, busque todas las marcas que de ese combobox y cargue el tipo de la columna de a un lado en el combobox2. Y...
1 respuesta

8 combobox dependientes enlazados

Estimados expertos tengo el sigiente problema quiero realizar una macro en donde tenga 8 combobox en los cuales quiero desplegar la siguiente informacion tengo el sgte codigo Public ufila As Integer Private Sub ComboBox1_Change() ComboBox2.Clear...
1 respuesta

Userform combobox dependiente

Tengo una hoja columna A, B, C, D, con títulos, necesito que al Código ubicación fecha cantidad BFDAC12 RACK1 10-10-2012 1 FGTED52 RACK2 11-10-2012 2 DFREW34 RACK3 12-10-2012 3 BFDAC12 RACK4 13-10-2012 4 DFREW34 RACK3 14-10-2012 1 FDAC12 RACK4...
1 respuesta

Manejo de cuadros combinados en Excel 2007?

Necesito hacer un formulario donde maneje 2 cuadros combinados uno relacionado del otro. Por ejemplo en un cuadro combinado tengo una lista de países, y quiero que al escoger el país, en el otro cuadro combinado salgan las ciudades pertenecientes al...
1 respuesta

Codigo VBA para realizar búsqueda de datos de una hoja de excel en un formulario, seleccionando de un combobox?

Todo expertos, mi duda es la siguiente: Tengo 1 hoja de excel con nombres de personas en la primera columna y en 11 columnas mas todos los datos correspondientes al nombre de la persona, he hecho una "Pagina inicio" que permite abrir un formulario en...
2 respuestas

VBA Excel, Base de Datos Dos ComboBox Dependientes Datos Repetidos

Disculpen mi ignorancia Tengo una base de datos como sigue: A B C 1 Tornillo 4.5 mm 0.05 2 Tornillo 5.5 mm 0.10 3 Tornillo 6.5 mm 0.15 4 Clavo 4.5 mm 0.04 5 Clavo 5.5 mm 0.08 6 Clavo 6.5 mm 0.12 En el cual quiero mostrar una ventana emergente...
1 respuesta