Comboboxs dependientes en una hoja de excel
Tengo en una hoja de excel la Columna A perteneciente al Distribuidor1 con la siguiente informacion;
Distribuidor1
Departamento1
Departamento2
Etc
En la otra columna se encuentra el Distribuidor2, con el departamento 3, Departamento4, etc. Y así sucesivamente. Lo que quiero hacer es que en un ComboBox muestre a los distribuidores y en el ComboBox muestre los departamentos del distribuidor que seleccione. He buscado formas pero solamente me ha fucionado haciendo un formulario pero lo que quiero es que salga en la misma hoja y no en una ventana emergente.
3 Respuestas
Yo encontré un artículo que tal vez pueda servirte
http://exceltotal.com/como-cargar-datos-un-combobox-en-excel/
Ese es el link, suerte con eso
Si en tu hoja tienes combobox de controles activex, utiliza la siguiente macro
Private Sub ComboBox1_Change() 'Por.Dante Amor ComboBox2.Clear If ComboBox1.ListIndex = -1 Then Exit Sub c = ComboBox1.ListIndex + 1 For i = 2 To Cells(Rows.Count, c).End(xlUp).Row ComboBox2.AddItem Cells(i, c) Next End Sub Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'Por.Dante Amor ComboBox1.Clear For i = 1 To Cells(1, Columns.Count).End(xlToLeft).Column ComboBox1.AddItem Cells(1, i) Next End Sub
Tu información debe estar en esta forma
Muchas gracias Dante, muy agradecido por tu ayuda, pero tengo un problema, no se como se ingresa el código, corrígeme si estoy haciendo mal algo:
Abro excel (.xlms) y copio mis columnas
En la pestaña Developer/Insert(Combobox ActiveX) y pongo los dos combobox en la misma hoja (¿puedo hacerlo en una hoja diferente?)
Lo que yo hago es que le doy doble click al combobox1 y pego el código que me diste, pero después no se que hacer.
Muchas gracias por tu ayuda
Saludos cordiales,
Fernando
Envíame tu archivo con tus combos tal y como los necesitas y le adapto el código.
Gracias Dante, te acabo de enviar el correo
Saludos
Fernando
Así quedan las macros para cargar en otra hoja
Private Sub ComboBox1_Change()
'Por.Dante Amor
ComboBox2.Clear
If ComboBox1.ListIndex = -1 Then Exit Sub
c = ComboBox1.ListIndex + 1
Set h = Sheets("datos")
For i = 2 To h.Cells(Rows.Count, c).End(xlUp).Row
ComboBox2.AddItem h.Cells(i, c)
Next
End Sub
Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Por.Dante Amor
ComboBox1.Clear
Set h = Sheets("datos")
For i = 1 To h.Cells(1, Columns.Count).End(xlToLeft).Column
ComboBox1.AddItem h.Cells(1, i)
Next
End Sub
