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
+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
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
+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
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 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
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.
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!!!
+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.
+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!
+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
+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...
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.
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.
+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
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!???
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.
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.
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: Whatsves@gmail.com
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í?
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.
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!
+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
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?
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
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?
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.
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
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?
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
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
+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.
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
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
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.
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?
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 :/
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
Excel_ente .... explicación. Detallado, paso a paso y echando código. me ha sido de mucha ayuda.
Gracias Fernando, espero puedas suscribirte para que puedas ver mas videos referentes a excel.
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
Adrian Araya gracias
muy didáctico, comprensible, sencillo, realmente un excelente tutorial. gracias
Excelente explicación, muchas gracias! es información muy valiosa! Saludos!
Excelente. Esto era lo que necesitaba. Lo voy a probar.
Muy util y preciso. Felicitaciones y gracias por la instrucción. Suscrito desde ya
Es tremendamente didáctico.
Muchísimas gracias.
Gracias
Muchas gracias, era justo lo que estaba buscando. Te seguiré de cerca ;)
Muchas Gracias es justo lo que necesitaba. Saludos
GENIOOOO!!!
Gracias
fue de mucha ayuda, muchas gracias!!!!!!!
Excelente Sand, el fin de semana subire mas videos.
Saludos
gracias el uno de los mejores, me sirvio mucho
Muy bien video, muy bien explicado, me ayudó mucho con mi proyecto, sigue así, Gracias ;)
Muy bueno, gracias, tenía semanas de estar buscando algo similar
+Lisbeth mora Que bueno que te haya servido. Saludos
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
+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
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
+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
Muchas Gracias master me ayudaste mucho de verdad saludos!!
Que bueno que te haya servido, espero puedas suscribirte para que puedas ver otros videos nuevos
Muchas Gracias, me sirvio mucho
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?
excelente el trabajo, me ayudo una barbaridad
gracias. espero seguir publicando mas.
Te amo!!!
:o Gracias por ver mis videos. Saludos
gracias fue muy productivo
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
Como lo hiciste pq tengo el mismo problema
@@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
muchas gracias maestro
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.
Excelente. Obrigado por compartilhar.
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!!!
+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.
+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!
+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
+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...
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.
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.
+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
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!???
Hola, gracias por compartir tus conocimientos,tengo una pregunta, como ingresas esta información en una hoja de datos? de antemano muchas gracias.
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.
excelente video, podrias subir el archivo no carga tu blog. Porfa men. Gracias
Estimado, el blog lo tengo activo. prueba de nuevo por favor
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.
muy buena y cual es la codificación para la opción guardar (para almacenar los datos en una nueva hoja ),
hola, no puedo entrar a ver el archivo
:(
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: Whatsves@gmail.com
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í?
Hola con dos listas si funciona. no estoy seguro si funciona con tres o mas
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.
Antes de poner for i debes declarar la variable i. De esta forma.
dim i as integer
De donde salió el código numérico que se acrecenta automáticamente.
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!
+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
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?
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
@@maihuire11 Exactamente!!1
Tremendo!!!
Muchísimas gracias
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?
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.
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
hola amigo. ¿porque no puedo ver el archivo completo? me aparece un problema cuando carga.
This website is temporarily unavailable, please try again later.
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?
Ya lo tengo solucionado!
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
como lo solucionaste?? yo tmb tengo el mismo error y nada....
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?
Utilizar Access. Aquí solo hago videos de excel, quizas mas adelante realice videos de access
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
+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
+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.
+Norberto Zúñiga González ok, espero que te salga bien tu codigo. Hasta luego
y guardar la informaciòn en otro libro diferente al que se esta utilizando?
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
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
luis miguel huaraca capcha cual es el error q te muestra?
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
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.
Deberias buscar la manera de obtener el nombre de la columna.
Gracias, no era la respuesta esperada pero agradezco tu tiempo.
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?
Roberto Céspedes misma duda!!!!, alguien que sepa porfavor ayuda
Roberto Céspedes si te entiendo estimado. voy a tratar de hacer un ejemplo sobre no repetir elementos al cargar a un combobox. saludos
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 :/
rmmniv91 tu crees?
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
Y como harías para insertar lo contenido del combobox en una hoja independientes.
+William Hanson No entendi muy bien tu pregunta.
que tenga un boton para capturar y que lo que capture se inserte en una nueva hoja gracias feliz navidad
Hola puedes ver el video que pongo en mi canal q trata sobre esi. th-cam.com/video/nPo2DxNFVwY/w-d-xo.html
Saludos
GRACIAS PERO QUE PUEDO HACER SI TENGO 300,000 PROVINCIAS SIN QUE SE DESBORDE
Es poco practico tener tantos valores en un combobox. Lo q podrias hacer es declarar tus variables como long en vez dr integer.
muchas gracias maestro