Enlazar multiples combobox en excel vba

Puedes encontrar el archivo final en mi blog
exceltutos.blog...
En este ejemplo te muestro como enlazar 3 combobox entre si, para que puedan tener relación. Se trata de un formulario llamado Ubigeo Perú (Ubicación geográfica de Perú) que contiene 3 combobox, Departamento, Provincia y Distrito.
Al seleccionar en el combobox de departamento se cargan todas las provincias que pertenecen al departamento elegido, luego se deberá seleccionar una provincia y se mostraran todos los distritos enlazados a la provincia elegida.
Esto ha sido programado usando visual basic para aplicaciones en excel (vba) y funciona correctamente en todas las versiones de excel.

[@fernandovarhenvidal]

Excelente explicación, muchas gracias! es información muy valiosa! Saludos!

[@lautarourieluri4600]

muy didáctico, comprensible, sencillo, realmente un excelente tutorial. gracias

Excelente. Esto era lo que necesitaba. Lo voy a probar.

[@csanpin]

Muchas Gracias es justo lo que necesitaba. Saludos

[@DrCorr]

Muy util y preciso. Felicitaciones y gracias por la instrucción. Suscrito desde ya

[@fernandobarrios5828]

Excel_ente .... explicación. Detallado, paso a paso y echando código. me ha sido de mucha ayuda.

[@maihuire11]

Gracias Fernando, espero puedas suscribirte para que puedas ver mas videos referentes a excel.

[@vbatotal3743]

Muchas gracias, era justo lo que estaba buscando. Te seguiré de cerca ;)

[@Antonio8688]

Excelente. ¿Cómo se debe hacer con los combobox incrustados en una hoja de Excel cargando los datos desde otra hoja, sin utilizar un UserForm?

[@jorgepenamedrano40]

Es tremendamente didáctico. Muchísimas gracias.

[@maihuire11]

Gracias

[@amircalienes6811]

Muy bien video, muy bien explicado, me ayudó mucho con mi proyecto, sigue así, Gracias ;)

[@proyectopapaya]

Muy buena explicación me costo un poco crear las tablas con el país de Costa Rica pero he logrado crear una con todos los barrios del país

[@maihuire11]

Adrian Araya gracias

[@SandRguez]

fue de mucha ayuda, muchas gracias!!!!!!!

[@maihuire11]

Excelente Sand, el fin de semana subire mas videos. Saludos

[@manryisabelflorez5854]

gracias el uno de los mejores, me sirvio mucho

[@juanbautistacorral6172]

Muchas Gracias master me ayudaste mucho de verdad saludos!!

[@maihuire11]

Que bueno que te haya servido, espero puedas suscribirte para que puedas ver otros videos nuevos

[@EdgarHernandez-jd3nx]

GENIOOOO!!!

[@maihuire11]

Gracias

[@raelavilesbonilla7651]

En primer lugar agradecerte por tu enseñanza y felicitarte. Quiero hacerle una consulta, segui todos los pasos; para adecuarlo a mi formulario de ingreso de datos, pero no me sale sale el distrito. me puedes dar una solución.

[@gustavoguerragalvez1105]

gracias fue muy productivo

[@juanjoserivera6365]

Hola buen Día, me sirvió mucho, lo explicas de una manera muy clara, sólo tuve un problema, cuando ejecuto el macros, forzosamente tenía que estar visualizando la hoja de excel donde tengo las provincias.Si me cambio de hoja, los combobox no me funcionan. Saludos Lo resolví activando la hoja de provincias desde el principio sin mostrarla. Te agradezco mucho

[@vdle92]

Como lo hiciste pq tengo el mismo problema

[@monkieforest]

@@vdle92 Amigo yo tambien tenia el mismo problema y lo resolvi activando la hoja al momento de iniciar el formulario. Private Sub UserForm_Initialize() ActiveWorkbook.Sheets("hoja donde estan las provincias").Activate

[@lisucr]

Muy bueno, gracias, tenía semanas de estar buscando algo similar

[@freddymaihuirechavez4358]

+Lisbeth mora Que bueno que te haya servido. Saludos

[@lisucr]

Sin embargo tengo un problema, me estaba funcionando super bien, y cuando le quise dar formato a otras celdas ahora no me carga la tercera opcion Private Sub naturaleza_organizacion_Change() Indicenaturaleza_organizacion = naturaleza_organizacion.ListIndex + 1 Dim j As Integer lista_organizaciones.Clear With Sheets("Ente") For j = 2 To Range("A" & Rows.Count).End(xlUp).Row If .Cells(j, 1).Value = IndiceCombobox1 And Cells(j, 2).Value = Indicenaturaleza_organizacion Then lista_organizaciones.AddItem .Cells(j, 3).Value End If Next j End With

[@maihuire11]

+Lisbeth mora Hola por lo que veo te falta ponerle el punto en algunas lineas por ejemplo siempre antes de Range debe ir un punto y antes de Cells, fijate y agregale el punto. Saludos

[@lisucr]

Gracias, no he tenido ning+ún problema con el vcombo box, sin embargo tengo un problema con el formato fecha, que es cuando le doy insertar, deberían aparecerme dos fechas una de ingreso y la otra de la posible respuesta, pero cu ando le doy ingresar la infomración se me descuadra el formato fecha y se me pone en formato número, tendría que cambiarlo manualmente y eso arruina la funcionalidad del formulario, la orden que le di a el boton de ingresar fecha fue este Private Sub insertar_fecha_Click() 'Inserta fecha Range("A10").Value = Date Range("H10").Value = Date + 22 End Sub Y en el boton ingresar la informacion pongo esto Private Sub boton_ingresar_Click() Selection.EntireRow.Insert Sheets("Base de datos y Formulario").Cells(11, 5) = naturaleza_organizacion Sheets("Base de datos y Formulario").Cells(11, 6) = lista_organizaciones consecutivo_doc = Empty Cuadro_insertar_resumen = Empty Conjunto_documentos = Empty naturaleza_organizacion = Empty lista_organizaciones = Empty ComboBox1 = Empty cuadro_fecha = Empty Selection.Copy Range("H11").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False

[@maihuire11]

+Lisbeth mora Eso no tiene que ver mucho con el combobox, pero igual te paso la ayuda. Como tu problema es el formato de fecha, deberias poner el siguiente codigo: Range("A10").NumberFormat = "m/d/yyyy" Range("H10").NumberFormat = "m/d/yyyy" Despues fe este codigo 'Inserta fecha Range("A10").Value = Date Range("H10").Value = Date + 22 Saludos

[@JesusArcila]

excelente el trabajo, me ayudo una barbaridad

[@maihuire11]

gracias. espero seguir publicando mas.

[@emirlyesmeraldadiazduque3808]

Muchas Gracias, me sirvio mucho

[@JDavidAlarconMartinez1789]

Amigo una pregunta. Ayúdame por favor ¿Como haces para que en la hoja de cálculo se te muestren así las listas cada vez que cambias o cuando seleccionas. Gracias.

[@alexanderarias7384]

muchas gracias maestro

[@paulocezardesouza32]

Excelente. Obrigado por compartilhar.

[@alvarolillo1874]

Hola, he repetido el procedimiento para una Userform con 4 combobox y cuando programo el tercer combobox adicionando una variable k, al ejecutar y filtrar el tercer combobox me aparece el mensaje "Error de compilación se esperaba Function o una variable". Me puedes dar una mano por favor.

[@josuepacheco2957]

Te amo!!!

[@maihuire11]

:o Gracias por ver mis videos. Saludos

[@manuelmelgarejo2406]

Buenas, excelente informacion, el primer combobox funciona a la perfeccion, pero al seleccionar una opcion en ese combobox da el error "ERROR DE COMPILACION: NO SE HA DEFINIDO LA VARIABLE", y en el procedimiento hace referencia a la instruccion "for i", pudieras por favor ayudarme con la solucion, super muchas gracias.

[@maihuire11]

Antes de poner for i debes declarar la variable i. De esta forma. dim i as integer

[@jorgepenamedrano40]

Tengo un problema. Funciona perfectamente hasta un momento. Los elementos de la tercera hoja, situados en la columna 4, que corresponde con DISTRITO en el vídeo, sólo aparecen hasta la fila 45. ¿Cómo se puede resolver?

[@maihuire11]

Hola Jorge: Probablemente el error sea que no este obteniendo datos de la ultima hoja, para que te asegures de eso modifica el siguiente código en cboProv_Change() for j=2 to .range("A" & rows.count).end(xlup).row if .cells(j,1).value=IndiceDepa and .cells(j,2).value=IndiceProv then cbodis.additem .cells(j,4).value endif next j Lo que le he agregado ha sido el punto antes de cells para que quede .cells Lo mismo también deberías hacer con los del código de CboDepa_change() Saludos y que tengas buen dia

[@jorgepenamedrano40]

@@maihuire11 Exactamente!!1 Tremendo!!! Muchísimas gracias

[@ronaldcalisaya3977]

muy buena y cual es la codificación para la opción guardar (para almacenar los datos en una nueva hoja ),

[@EstefaniaBernalMu]

Bunea snoches una pregunta solo se puede hacer asi es decir decir desde un datos>Validación de datos uno puede hacer una lista no hay manera de validar y relaizar esto mismo desde allí?

[@maihuire11]

Hola con dos listas si funciona. no estoy seguro si funciona con tres o mas

[@50toledo]

Hola, gracias por compartir tus conocimientos,tengo una pregunta, como ingresas esta información en una hoja de datos? de antemano muchas gracias.

[@maihuire11]

Para este ejemplo lo hice manualmente descargandolo de una web. Pero si quieres ingresar tu informacion a traves de una macro puedes revisar en mi canal.

[@virgiulloac]

SAludos, tengo un formulario, como hago para que cuando introduzco un nuevo valor (numero), se inserte en la hoja de excell como un valor numerico que puede usar en formulas, puesto que se me carga como texto? Otra pregunta, necesito hacer un buscar en un formulario, el problema es que la lista que deseo buscar se va a ir haciendo mas grande, cada vez que ingrese otro usuario (en el formulario), entocnes seria que cada vez que ingreses un usuario este pueda ser usado en una lista de bucar dentro del formulario , sin necesidad de modificar nada.

[@maihuire11]

+virgilio ulloa Hola, te doy masomenos una idea. Para el primer punto primero el formato de la celda deberia estar en numerico o general, luego al momento de insertarlo en una hoja de excel podrias hacerlo de estas maneras: range("A1").value=val(txtnumero.text) o tambien range("A1").value=cint(txtnumero.text), pero primero verifica el formato de celda como te explique anteriormente. Por el segundo punto supongamos que tu informacion esta en el rango A2:C10, pero luego tu informacion sigue creciendo asi que mas adelante seria A2:A15, y asi cada vez creciendo mas. entonces deberias ponerlo de la siguiente manera. declara una variable cualquiera: CantFilas=Range("A" & rows.count).end(xlup).row entonces en ve de poner A2:C10, deberias cambiarlo por "A2:C" & CantFilas. Obviamente deberias utilizar la informacion correcta. Saludos

[@virgiulloac]

Gracias!! Lo de texto a numero aun no me funciona muy bien pero ahi voy ahi voy! Y lo otro de la lista si me funciono muy bien, solo que hay un pequeño detallle, por ejemplo cuando utilizo un formulario para agregar nuevos clientes puede que el mismo cleinte haga diferetes compras cambaindo solamente la fecha, entonces a la hora de hacer el "rows.count" me tira todos los clientes independientemente de si estan 1 o mas veces, se podra hacer de que me tire solo el nombre del cliente a pesar que este tenga varias compras!???

[@ramondavidortizaguirre8796]

De donde salió el código numérico que se acrecenta automáticamente.

[@ceciliamichelle4198]

hola que tal el codigo esta muy bien pero tengo un problema no me marca error pero al momento de seleccionar una opcion en combobox1 no me aparece en combobox2 ninguna opcion a seleccionar, aveces si pero no siempre a que se debera?

[@maihuire11]

Hola, es mi error. Para solucionarlos debes entrar modificar donde dice cells por .cells Eso quiere decir que le pongas un punto antes de la palabra cells para que asi pueda funcionar.

[@severiens2]

Hola viejo muy buenos videos! Te hago un pregunta estoy haciendo un programa de turnos y en un combo list puse los horarios predeterminados que se tienen que cargar, lo que me esta faltando es un código que haga que cuando despliego la lista verifique si ya fue dado un turno con ese horario y si es así deshabilite esa opción. Espero haberme explicado bien. Muchas gracias!!!

[@maihuire11]

+Gonzalo Severiens Hola, dices que tienes horarios en un combobox y cuando lo seleccionas donde verificas si ese horario ya fue dado? No entiendo muy bien esa parte.

[@severiens2]

+Cursoslab Claro quizás me falto poner que al apretar el botón guardar este se guarda en la planilla de excel fecha, hora, apellido, observaciones, yo quiero q al desplegar el cuadro combinado que tiene dentro todos los horarios, en ese mismo momento verifique si en la planilla de excel en la columna horarios, si ese horario ya fue dado y si fue dado que deshabilite ese horario para que no se pueda repetir... muchas gracias!

[@maihuire11]

+Gonzalo Severiens Me imagino que ese combobox esta dentro de un formulario. Supongo que cuando seleccionas un horario y este ya se encuentra dentro de tu hoja de excel se deberia desabilitar el boton guardar para que no exista duplicado. Ahi te mando algo que pueda ayudarte. 'Programar dentro del evento change del combobox 'Suponiendo que el dato de horario se encuentra en la columna F cFilas = Range("A" & Rows.Count).End(xlUp).Row For i = 2 To cFilas If Range("F" & i).Value = cboHorario.Value Then MsgBox "El horario ya existe" botonGrabar.Enabled = False Else botonGrabar.Enabled = False End If Next i End Sub Saludos

[@severiens2]

+Cursoslab excelente viejito solo que no quiero que lo haga cuando voy a guardar sino que al desplegar la lista del cuadro combinado ahi mismo compruebe que horarios fueron dados y los que ya fueron dados no deje hacer click, por ejemplo cada horario se agrega con el código Me.txtHora.AddItem "8:20" y si este horario ya esta puesto en la columna C precisamente que el "8:20" quede bloqueado como en gris mas clarito sin poder marcarse. Desde ya un millón de gracias El código que se me imagina pero tiene error de sintaxis es txtHora = Format(txtHora.Value, "h:mm;@") If Me.txtHora "8:20" = Sheet1.Columns("C:C").Value Then Me.txtHora "8:20".Locked = True y así con todos los horarios que quiera cargar...

[@raelavilesbonilla7651]

por si acaso te envio lo que hice: Private Sub txt_prov_Change() IndiceProv = txt_prov.ListIndex + 1 Dim j As Integer txt_dist.Clear With Sheets("DISTRITO") For j = 2 To .Range("A" & Rows.Count).End(xlUp).Row If .Cells(j, 1).Value = IndiceDepa And .Cells(j, 2).Value = IndiceProv Then txt_dist.AddItem .Cells(j, 4).Value End If Next j End With End Sub

[@abdicallesreyes3291]

hola, no puedo entrar a ver el archivo :(

[@RaSeC2705]

Buen vídeos! es lo que necesitaba. Pero como haría si quiero poner mas datos en la hoja departamento? porque le agregué más datos y no me salía los datos que agregué en el combobox. GRACIAS!

[@maihuire11]

+César Carmona Hola y gracias por ver el video, en cuanto a tu pregunta no te muestran en tu combobox los datos que agregas por que solo carga los datos hasta la fila B26. Para eso tienes que modificar este codigo me.cboDepa.RowSource="Departamento!B2:B26" y en vez de B26 debes poner el nombre de la ultima fila con datos. Saludos

[@EleazarCrucesOchoa]

Hola Cursoslab, necesito tu ayuda: Quiero que esta definición de rango=> Range(Cells(2, i), Cells(UltFila, i)) ....me sirva como RowSource UltFila = Cells(Rows.Count, 1).End(xlUp).Row UltCol = Cells(1, Columns.Count).End(xlToLeft).Column For i = 1 To UltCol ComboBox1.RowSource = Range(Cells(2, i), Cells(UltFila, i)) Next ------------------------------------------------------------------------- Al Usarlo de esta manera el rango funciona=> Range(Cells(2, i), Cells(UltFila, i)).Select Quisiera que me ayudes con esto, gracias anticipadas.

[@maihuire11]

Deberias buscar la manera de obtener el nombre de la columna.

[@EleazarCrucesOchoa]

Gracias, no era la respuesta esperada pero agradezco tu tiempo.

[@robertocesp]

Me surge una pregunta, mi lista puede repetir valores, porque son unidades y productos, entonces por ejemplo en una tabla pueden haber varias unidades iguales y varios productos, por ejemplo: Unidad Producto Cliente etc Galones Agua Rest abc 15 Litros Agua Rest efc 18 Gramos Empanizador Rest abc 155 Galones Alcohol Farmacia 10 Galones Agua Farmacia 15 Litros Agua Rest efc 45 Como hacer para que el combo no muestre 3 veces la palabra galones o 2 veces la palabra Litros, deseo que si se selecciona galones solo se muetre una vez agua y una vez alcohol, no una por cada una, e igual con el cliente, si un cliente solicitó 2 veces galones de agua que no salga su nombre dos veces. Cómo podría realizarlo?

[@symphonydelfloyd]

Roberto Céspedes misma duda!!!!, alguien que sepa porfavor ayuda

[@maihuire11]

Roberto Céspedes si te entiendo estimado. voy a tratar de hacer un ejemplo sobre no repetir elementos al cargar a un combobox. saludos

[@symphonydelfloyd]

sobre no repetir elementos al cargar un combobox hay varias respuestas en internet, pero hacer eso en el ejemplo de enlazar multiples combobox es donde se complica la macro :/

[@maihuire11]

rmmniv91 tu crees?

[@symphonydelfloyd]

bueno mi nivel en macros es normal, no experto la verdad, no se si mi opinión sea muy valida, pero almenos Roberto Céspedes tenía la misma duda. Si podrias ayudarnos con eso estaría muy agradecido, enserio. Saludos

[@andreijuandedios1080]

hola amigo. ¿porque no puedo ver el archivo completo? me aparece un problema cuando carga.

[@andreijuandedios1080]

This website is temporarily unavailable, please try again later.

[@luismiguelhuaracacapcha5827]

DISCULPE E PROBADO SU EJEMPLO Y TENGO UN PROBLEMA EN EL COMBOBOX 3 YA QUE SOLO ME ARROJA VALORES PARA UNA PRIMERA OPCION DEL COMBOBOX2

[@maihuire11]

luis miguel huaraca capcha cual es el error q te muestra?

[@florenciamura656]

Me pasa exactamente lo mismo, si eligo la primera opción de mi combobox1 puedo ver sin problemas todo el resto. Pero si elijo cualquiera de las restantes, el combobox 2 me las muestra bien, pero el 3 no muestra ningún dato. Cómo podría solucionarlo? Gracias

[@juanbautistacorral6172]

Tengo una consulta nada mas sabes que me lee bien el primer combox y el segundo pero el tercero me lee solo una parte de la base de datos sabes como podria arreglarlo?

[@juanbautistacorral6172]

Ya lo tengo solucionado!

[@maihuire11]

Si estas usando el mismo codigo que uso en el video el problema podria estar en obtener la ultima fila de la hoja donde obtienes datos. Por ejemplo en el video yo tomo informacion de la hoja distritos y el codigo esta de la siguiente manera: with sheets("Distrito") for j=2 to .range("A" & rows.count).end(xlUp).row end with No olvides de colocar el punto al inicio de range. Tambien existe un error que cometi, deberias poner punto antes del codigo cells Espero que te haya ayudado. Saludos

[@fokerstone]

como lo solucionaste?? yo tmb tengo el mismo error y nada....

[@beto1733]

Que tal, excelente explicación, solo que al momento de compilar en la parte donde marcó error y agregaron Dim i as integer, despues me marca error con x1Up, me dice que no está declarado. Este es el codigo del evento change, de antemano gracias. Private Sub ComboBoxArea_Change() IndiceArea = ComboBoxArea.ListIndex + 1 Dim i As Integer With Sheets("Proceso") For i = 2 To .Range("A" & Rows.Count).End(x1Up).Row If Cells(i, 1).Value = IndiceArea Then ComboBox.AddItem Cells(i, 3).Value End If Next i End With End Sub

[@maihuire11]

+Norberto Zúñiga González Hola, no te deberia mostrar error en dim i as integer, y por el otro error se escribe xlUp. Saludos

[@beto1733]

+Cursoslab así es, mi error fue 1 por l. Gracias, estoy en espera que el equipo defina los siguientes subgrupos de la matriz de datos. En total usaré alrededor de 5 o 6 combo box relacionados, espero poder hacer que salgan bien. Saludos.

[@maihuire11]

+Norberto Zúñiga González ok, espero que te salga bien tu codigo. Hasta luego

[@jorgefernandoacostabarrios2997]

y guardar la informaciòn en otro libro diferente al que se esta utilizando?

[@maihuire11]

Guardar información desde un libro de excel a otro libro o a una base de datos en access si se puede. Voy a darme tiempo para realizarlo y publicar el video. Que tengas buen dia

[@jorgefernandoacostabarrios2997]

Hola! podrías hacer un tutorial referente a hacer una base de datos utilizando la aplicación Acces y guardar data en la base de datos?

[@maihuire11]

Utilizar Access. Aquí solo hago videos de excel, quizas mas adelante realice videos de access

[@orba1858]

GRACIAS PERO QUE PUEDO HACER SI TENGO 300,000 PROVINCIAS SIN QUE SE DESBORDE

[@maihuire11]

Es poco practico tener tantos valores en un combobox. Lo q podrias hacer es declarar tus variables como long en vez dr integer.

[@omarvargas8363]

Felicitaciones Profesor, Usted tiene la facultad de ilustrar en forma clara y pedagógica procesos muy complejos!. En aras de mejorar el muy útil macro, sugiero complementarlo con que las listas enlazadas puedan en forma intuitiva setear los elementos seleccionados en la medida que se escriban letras de la palabra requerida. Así cuando la lista enlazada es muy larga, no hay que desplegar toda la relación, sino que facilita mucho la búsqueda, enriqueciendo la versatilidad de su macro. Estoy muy interesado en ello y si usted me puede hacer el honor de contactarme a mi mail, podemos concertar el desarrollo. De nuevo muchísimas gracias y consideraciones. mail: [e-mail]

[@HARMONICPATTERNS.]

Y como harías para insertar lo contenido del combobox en una hoja independientes.

[@maihuire11]

+William Hanson No entendi muy bien tu pregunta.

[@HARMONICPATTERNS.]

que tenga un boton para capturar y que lo que capture se inserte en una nueva hoja gracias feliz navidad

[@maihuire11]

Hola puedes ver el video que pongo en mi canal q trata sobre esi. kzbin.info/www/bejne/pIHSY3eug6uJrbs Saludos

[@hectjoak]

excelente video, podrias subir el archivo no carga tu blog. Porfa men. Gracias

[@maihuire11]

Estimado, el blog lo tengo activo. prueba de nuevo por favor

[@alexanderarias7384]

muchas gracias maestro