🟢 Formulario Para Buscar Información En Una BASE De DATOS, editarla y GUARDAR Los Cambios. VBA.
HTML-код
- Опубликовано: 11 сен 2024
- #aprendamosexcel #excel #formulario #vba
¡Hola! Soy un programador de VBA en Excel y estoy aquí para ayudarte a automatizar tareas y mejorar tus hojas de cálculo. Ofrezco soluciones personalizadas a precios flexibles, desde $50 a $100 dólares, según la complejidad del trabajo. Contáctame para simplificar tus flujos de trabajo en Excel. ¡Hagamos que Excel trabaje para ti!
Escribir a: aexcel989@gmail.com
Whatsapp: 57 3016727958
Formulario para buscar información en bases grandes y editarla.
Aprendamos Excel.
Solicitar Archivo al Siguiente Correo: aexcel989@gmail.com
Excelente trabajo, y aún más la explicación de la programación.
De verdad que me gustaria darle 100 likes.... pero no puedo. Excelente su metodologia y claridad
Mejor explicado no hay otro. Sin pausas innecesarias y bien llevado el video. ¡Muchas gracias!
Es triste que las LISTBOX solo admitan como máximo 10 columnas jaja pero mi equipo de proyecto y yo te agradecemos muchísimo por el tutorial 10/10!!
Muy buen tutorial.
Mi duda es, ¿Alguna guía para conocer las formas que aplicas? ó ¿Cómo conocer las formulas que existen?
estoy muy contento que das la mejor explicación de VBA e visto varios videos sos el mejor, ruego un formulario de flujo de caja chica vba resaltando el total del saldo focus
Excelente este formulario de pelos me gustó y lo aplicaré ING soy fanático al excel y. valoro todo lo que nos compartes abrazos amigo y muchas bendiciones a tu canal 🇲🇽🤝👏👏👏🤝🤝
Muchas Gracias por tu apoyo no saber cómo motiva, que tengas un excelente dias.
Excelente video,tremendamente bien desarrollado,gracias profe.Solo tenemos que cargar el listbox despues de la búsqueda o de la edición.
Hola Pedro, de las dos formas debe funcionar
Me podría decir cómo hacer eso por favor??
Muchas gracias por compartir tu conocimiento. Me sirvió de mucho!!1
Wuaaao tengo tiempo buscando algo así, en el trabajo tengo una tabla de 24 columna y tiene 2782 registros, aunque me muevo rápido con las teclas, estaba buscando exactamente algo así para colocar el código del cliente y que me muestre los datos y que pueda actualizar, necesito es que me muestre solo los campos que requiero modificar, tendré que ir colocando las columnas y filas respectivas, ya que seria muy largo visualizarlo y mostrarlo en el listview, pero es exactamente lo que necesito eso me ahorraría un tiempo enorme, ya que iría directo al registro que necesito y me muestre los campos que voy a modificar( fecha y estatus) en vez de ir recorriendo columnas tras columna para modificarlas. Gracias por el aporte, espero que logre hacerlo como quiero, ya que tu explicación y aclaratoria de cada linea es muy amena y clara.
Excelente colaboración, aporte e instrucción con lujo de detalle, muy entendible. La verdad veo tus videos y son fantásticos. Por otro lado, espero puedas apoyarme, me encantaría saber ¿cómo agregar más campos de búsqueda que no fuera solo la columna 2 (Filas, 2) y que también buscara columna 3 (Filas, 3)? [Cómo tu ejemplo que también busque fechas]. Estoy aplicando tu video y ejemplo en un Formulario que tenga como referencia dos campos de búsqueda para ampliar la misma y no sea solo un campo (1 columna).
Hola!! gracias por el video
muy completo!
Que tal maestro buenas noches, si quisiera que en lugar de cambiar un texto de la base de datos con el boton guardar, cambiara el color de la celda, ¿que codigo podria utilizar? me ayudarias? felicitaciones por el tremendo video, gracias.
Excelente tutorial.
Todo bien hasta que llego a esta fila:
Me.Lista.List(y, 10) = Sheets("BD").Cells(Filas, 12).Value
Tengo 50 ("Me.Lista.List(y, 50)") y es como sin no pudiera pasar de 9.
Si solo dejo 9 lineas "Me.Lista.List(y, 9) = Sheets("BD").Cells(Filas, 11).Value" Esta sería la última, Funciona.
Es como si en algún lado el Textlist estuviera limitado a 9
Gracias por tu tiempo y enseñanzas.
Hola Francisco los listbox solo adminten un maximo de 10 columnas
Hola, excelente video! Muy didáctico. Especialmente para mi que no tengo formación al respecto. Una consulta: Al intentar probar de buscar un elemento me informa de un error '9'. Subindice fuera de intervalo. ¿tiene esto solución? MUCHAS GRACIAS
buenas noches, excelente video una consulta como puedo hacer para que las columnas con la info en el listbox se pueda ampliar un poco mas.
Se puede hacer que la búsqueda no solo sea el nombre, es decir tmb se pueda encontrar el registro también con datos como dirección, correo pero no de uno solo, sino combinados?
Que gran video, me ayudo mucho a terminar mi sistema de gestion de clientes y cobros de mi gimnasio. Solo una consulta y veo que lo han mencionado, cuando filtras el valor buscado se pierden los encabezados de la lista, hay alguna forma de volver a colocarlos ?? Muchas gracias y saludos desde Argentina !!
En el código en la parte Column Heads = true son los encabezados
Hola me gustó mucho tu formulario que lo quise implementar, pero no se que hice mal que sólo el nombre se cambia y no los demas campos.
Muchas gracias por compartir su conocimiento, tengo una pregunta, si quiero editar el ID
¿que debo hacer?
Hola intento ajustar el código para gestionar la información de mi base de datos pero me genera error. He consultado y tal parece la falla radica en que el control lista me permite mostrar como máximo 10 columnas entonces cuando ejecuto el código de buscar eso es lo que me muestra y mi base de datos tiene 22 columnas por lo tanto me aparece la infamación incompleta. Hay forma de solucionar esto?
Excelente!!!! muchas gracias por compartir!! 👏👏👏 CONSULAT¿?🤔 si solo quiero cambiar una dato por ejemplo el correo y lo demás no, como haría para que no se alteren los otros datos¿?
Deseo saber mas. Por ejemplo: los datos Buscados deseo imprimir solo el contenido y no el formulario completo. Y otra pregunta. Deseo buscar y que me salgan todos los datos relacionados con toso lo que estoy buscando. Por favor su respuesta.
Muchas gracias, cuando configuro el campo de editar o buscar desparecen los encabezados de la lista, sabran porque?
Hola muy buen video, pude avanzar sin problememas hasta el proceso de guargar, me arroja error 91 en la seleccion
Lista = fila. Porqué seria?
Haga un video como marcar una logo y luego se sume los que estoy marcando en Excel con macros
excelente video, me ayudo muchisimo,
solo tengo una consulta estetica, cuando le das buscar y aparecen los valores buscados en el listbox, se pierde las cabeceras de las columnas de los datos, hay alguna forma que se eliminen todos los datos que no son buscados y se mantengan las cabeceras??
Hola! Sería posible hacer que en el list box, se muestren solo las columnas mostradas y no las ocultas? Es que tengo una hoja con muchas columnas, y solo me interesan algunas, por lo que no sé si podría hacerse eso, que en el cuadro de lista solo aparezcan las columnas mostradas. Gracias!
Gracias por el aporte. He aplicado tu sintaxis para una formulario esta a un 90 % pero no puedo terminar porque al ejecutar el boton de buscar me arroja la siguiente linea en amarIllo.
UltimaFila = Sheets("BD").Cells(Rows.Count, "C").End(x1Up).Row
Y arroja el error 1004. podrás apoyarnme?? Saludos.
Hola Alfredo en el codigo debe de decir end(xlup), tu colocaste un 1
Excelente tu programa me ayudó demasiado. solo tengo una duda, cuando doy un valor en BUSCAR que no existe en la tabla queda en blanco y tengo q cerrarlo y abrirlo para que vuelva a verse la tabla
Hola Guillermo para evitar esto debes colocar otro botón que te actualice la tabla o integrar esta acción en un botón ya existente del formulario.
@@AprendamosExcelhola buen día, podrías ayudar con un video broth ya que tengo un proyecto que voy a realizar al estilo base de datos reniec
Y como funciona el buscador con las listas desplegables. Aquí Ud no lo hizo. Deseo ese mismo buscador pero a la vez imprimir los datos que he buscado.
Me sale error, en el minuto 28, me sale un cuadro de error de compilación No e ha deficinido sub o function :/ y lo he hecho dos veces igual a l que creaste, respetando todo.
Buena tarde Amigo y gracias x sus aportes, Una pregunta tengo, mi proyecto tiene 30 columnas y La ListBox me muestra todas las columnas de la hoja de datos pero cuando le doy al botón buscar me arroja error 380 y me muestra solo 10 filas en el momento de depurar 😢 dice al poner el cursos sobre la fila en el código, Me. Lista. List(y, 10)=
Hola eso pasa, si no me equivoco, porque Excel solo tolera máximo 10 columnas en una ListBox
Un detalle que no puedo solucionar es que en el cuadro de texto de Fecha de Alta, en la hoja de Excel esta con formato fecha, pero al buscarlo aparece en formato de numero y no de fecha, como se puede arreglar eso. Soy principiante.
Hola... Voy en la primera parte, ya cree todos los campos, son alrededor de 325 cada uno con su respuesta, pero al ejecutar el formulario solo se ven los primeros campos, por favor ayuda como ver el formulario completo. Gracias, quedó muy atenta
Muchas gracias por compartir tu conocimiento y de manera tan sencilla.
Me gustaria hacerte o hacerles una pregunta de la ultima parte
ValorBuscado = Me.TextID
Set Fila = Sheets("Traking").Range("B:B").Find(ValorBuscado, Lookat:=xlWhole)
Linea = Fila.Row
Range("C" & Linea).Value = Me.textName.Value (hasta aca funciona bien)
Range("D" & Linea).Value = Me.textCategory.Value
Cuando pongo la segunda, solo me deja editar la primera y no las siguientes que pongo.
Alguien me podria ayudar porfavor con este error.
Hola gracias por tu explicacion, pero la fecha de nacimiento no sale otra numeracion? como se cambia a la fecha de nacimiento? Saludos
brother pregunta rapida, como hago para que despues de buscar algo, siga manteniendo los titulos de la tabla?
Hola Eugenio para realizar eso debes colocar el nombre de el listbox y despues .columnheads = true. espero te sirva.
Buen día, al mostrar los datos con el botón Editar el formato de fecha se cambia a numérico ,cómo puedo solucionar eso?
Excelente formulario pero al editar me corre toda la macro y no me hace la edición q debo hacer 😔
Que versión de office recomiendas para que las macros no fallen? ya que las actuales a veces borrar toda la macro y no se puede trabajar
Hola Ramiro intenta eso por favor Haga clic en la pestaña Archivo y en Opciones. Haga clic en Centro de confianza y, después, en Configuración del Centro de confianza. Haga clic en Configuraciónmacros y, a continuación, active la casilla Habilitar Excel macros 4.0 cuando las macros de VBA estén habilitadas.
@@AprendamosExcel gracias ti por tus videos, voy a intentarlo.
me da error en la linea de codigo "Linea = Fila.Row" error 91 (variable de objeto o bloque with no establecido), como puedo solucionarlo????, saludos
hola, me resultó todo, para mi trabajo, pero tengo un problema:
me deja las fecha en formato mm-dd-yyyy desde los dias 1 al 12 del mes y del 13 en adelante queda en formato dd-mm-yyyy, no se como dejarla en formato dd-mm-yyyy.
espero me puedas ayudar para resolverlo, saludos
COMO PUEDO PEGAR DESDE LA TABLA AUNA ETIQUETA TEXTO MUY LARGO, NO ME DA OPCION DE PEGAR. GRACIAS
como hace para no perder el formato de celda en el list box
Agregué otra hoja al archivo y si me posiciono en ella guarda la información en ella y no en la BD
ola estimado se podria ingresar un grafico estadistico en el formulario?
Hola, buen día.
Quisiera saber si hay la posibilidad de poner una instrucción que al momento de hacer una búsqueda de un dato de la lista, no se borren los encabezados?
Poner otro listbox con solo los encabezados
Estimado, primero que nada agradecido por estos videos. Decir que soy un iniciado en este tema de las Macros. Actualmente me aventure en la confección de un Formulario en BVA, destinado para el ingreso de Vehiculos a Taller. Los Datos a Ingresar:
Fecha (Texbox),
Patente(TextBox),
Marca (ComboBox),
Modelo(ComboBox(dependiente de la Marca)),
Medio de Pago (Combobox),
Total $(TextBox).
Ahora bien, la cuestion es que al ingresar y guardar, se me cierra la Hoja con la que estoy trabajando. Lo solucione despues de varios cambios, con una solución parche, esto es, a la linea de comando para los ComboBox anulandolos con tilde al inicio de la instruccion para esos dos.
Me.FECHA.Value = Empty
Me.PATENTE.Value = Empty
'ME.MARCA.Value = Empty
'Me.MODELO.Value = Empty
Me.PAGO.Value = Empty
Es posible me puedas orientar donde esta el error , o se debe a que el comando o instruccion para estas 2 Combox es diferente?
Desde ya Agradecido,
Mauricio
hola buenas tardes... (aprendamos excel), cree toda tu rutina en un proyecto. Todo muy bien y gracias por tus aportaciones.
Perooo, en la sub para guardar los datos ya modificados de acuerdo al registro que se seleccione, al darle guardar para que guarde los cambios, estos no se guardan en la base de datos... ¿porque? si está todo igual al tuyo, claro con mis respectivos campos y variables.
hola como esta me alegra que hallas realizado el proceso, es muy raro que no te allá funcionado, te voy a ayudar por favor envíame tu archivo al siguiente correo aexcel989@gmail.com para revisarlo y dar con el error que tienes
@@AprendamosExcel Hola, ya encontré el error. en mi libro tengo: Hoja1(Menu), Hoja2(proveedor), hoja3(clientes), Hoja4(Nota de venta), Hoja5(hoja1), Hoja6(Notas_BD) y Hoja7(productos_BD); y en la Hoja2(proveedor) tengo un menú desde la cual atraves de una opcion ejecuto tu rutina "para buscar y editar datos". Los datos que quiero modificar estan en la hoja7(productos_BD)... El listBox si me muestra dichos datos de la hoja7, pero los datos modificados me los guarda en la hoja2(proveedor) que es donde tengo el menú.
@@Campero2012 ya encontraste la solución perfecto muchas veces parece ser la versión del Excel.
@@AprendamosExcel hola buenos dias; Te digo que encontré el error pero no la solución.. porque no se como decirle que los cambios los guarde en la hoja7("productos_BD") que es mi base de datos... El listbox si los lee de ahí pero los cambios me los guarda en la hoja2("proveedor") que es de donde se corre la rutina.
@@Campero2012 coloca sheets ("productos_BD").select al inicio del codigo
Cuando filtro el listbox se me cambia el formato de los importes numéricos, ¿Cómo lo puedo solucionar?
DISCUPE , PUEDO LISTAR 15 COLUMNAS PERO NO PUEDO BUSCAR EN ESA LISTA LAS 15 COLUMNAS SOLO ME PERMITE BUSCAR 10 COLUMNAS, PORQUÉ .
Hola Henrry los listbox solo permiten un maximo de 10 columnas si deseas usar mas debes de usar dos listbox
hola que tal cuando estuve editando el boten de buscar me salio un error de compilacion a que se debo esto me ayudaria mucho , gracias
Hola Jean, si gustas puedes utilizar este link para descargar el archivo y comparar el código con el tuyo
mega.nz/file/e4FVHTTI#OUnqkvmat9WAfmrmpu66HfBIu6L48UkQG1Tm0PRr12M
@@AprendamosExcel muchas gracias fuiste de gran ayuda en verdad haces tutoriales muy buenos ademas que le añades una buena explicación , ya pude resolverlo . Me surgio una duda como puedo hacer para que el boton del formulario aparezca en una hoja distinta intente ponerlo en otro y cuando intento editar no edita la base de datos que esta en una hoja anterior de excel .
HOLA, ESTAS TRABAJANDO CON 9 COLUMNAS DE DATOS, CUANDO PASO A 10 O MAS ME BOTA ERROR 🤒
Hola Roland los list box solo permiten un máximo de 9 columnas no mas
Quede parado en LA función buscar...cuando tienes que hacer el filtro de busqueda...la macro nunca quiso avanzar...
UltimaFila = Sheets("INVENTARIO").Cells(Rows.Count, "B").End(x1up).Row
Siempre me arrojó error...la hoja es correcta
UltimaFila = Sheets("INVENTARIO").Cells(Rows.Count, "B").End(""x1""up).Row pusiste x1 en vez de xl
demora mucho en guardar
se me hace muy complicado mejor ctrl+b lo busco y lo edito y me quito tanta pendejada de formularios. Porque no enseñas una macro que busque y edite rapidamente amigo SIN FORMULARIOS
Me ha dado "se ha producido el error '-2147024809 (80070057)'" No entiendo qué salió mal :'(((((