Tres ComboBox Dependientes

Mi inquietud es sobre lo siguiente deseo hacer un archivo en excel el cual contiene tres combobox dependientes, en el primero seleccionar el Estado, el segundo seleccionar las Ciudades del Estado seleccionado y en el tercer los barrios de la ciudad seleccionada.
Mi archivo esta así en la Hoja1 están los tres Combobox, en la Hoja2 esta en la primera fila se encuentran los Estados y debajo en cada columna están las ciudades, en la Hoja3 en la primera fila están las ciudades y debajo en cada columna los barrios.
En primera estancia cree un userform y en el código inserte los siguiente
Private Sub UserForm_Initialize()
Hoja2.Select
Range("A1").Select
Do While ActiveCell <> Empty
ComboBox1.AddItem ActiveCell.Value
ActiveCell.Offset(0, 1).Select
Loop
End Sub
y el combobox1 lo siguiente
Private Sub ComboBox1_Change()
ComboBox2.Clear
Hoja2.Select
columna = ComboBox1.ListIndex + 1
Cells(2, columna).Select
Do While ActiveCell <> Empty
ComboBox2.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Pero no se como hacer para cargar los datos en el combox3, en lo que me puedas colaborar

1 respuesta

Respuesta
Pues igual que has hecho con el 2
Private Sub ComboBox2_Change()
ComboBox3.Clear
Hoja3.Select
columna = ComboBox2.ListIndex + 1
Cells(2, columna).Select
Do While ActiveCell <> Empty
ComboBox3.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Copiar datos a hojas desde formulario con 2 paginas

Tengo un UserForm que quiero utilizar como formulario, para introducir datos a dos hojas distintas (Hoja1 y Hoja2); de tal manera que los datos que introduzca en los distintos TextBox y ComboBox, de la "Page1" del UserForm se copien en la Hoja1; y...
1 respuesta

Llamar con un combobox datos de la cell B y en un textbox arrojar el código que esta en la cell a

Ya tengo los tres combobox funcionando, el ultimo combobox como por ejemplo selecciona un material y ese material le coloque un código como por ejemplo tabla 1" tiene el código TE-001. En el caso de la selección de algún material con el combobox de...
1 respuesta

Llenado de ComboBox

Dentro del formulario en la Hoja1 está el ComboBox, los datos en la hoja 2, en esta rutina ¿Como seria para que no saltara a la hoja donde están los datos(Hoja2) Private Sub UserForm_Initialize() [a2].Select Do While ActiveCell <> ""...
1 respuesta

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

Combobox sin repetir dato y con celdas vacías

Espero logres ayudarme si te es posible con esta duda, veras tengo un userform con 2 combobox uno para mostrarme las hojas de calculo y otro para mostrarme lo valores de las celdas de la columna "B" a partir del B3 sin repetir los valores..: ....
1 respuesta

Vincular dos combobox y un textbox después del segundo combo box

Antemano aclara soy principiante. Tengo un problema tengo dos combobox (codigos de productos) vinculados el primero del segundo y por otro lado tengo otro combobox ( dodigos de producto) vinculado con otros textbox (descripción del producto), Las dos...
1 respuesta

Llenar comboboxs sin espacios en blanco

He intentado arreglar el siguiente problema. Tengo valores en la Hoja2 desde la columna A. Dichos valores solo cubren algunas celdas de la columna. Además tengo un Combobox en la misma hoja, en el cual quiero que tome los valores de la columna A,...
1 respuesta

Optimizar macro

La verdad soy nuevo con las macros asi que no se mucho de códigos, pero quisiera poder optimizar el siguiente código., ya que, si realiza la tarea que necesito pero me parece que puede optimizarse; lo que más necesito es que cuando ya tengo muchos...
2 respuestas