🟢 Formulario Para Buscar Información En Una BASE De DATOS, editarla y GUARDAR Los Cambios. VBA.

[@eddylara63]

De verdad que me gustaria darle 100 likes.... pero no puedo. Excelente su metodologia y claridad

[@lobosantana1973]

Mejor explicado no hay otro. Sin pausas innecesarias y bien llevado el video. ¡Muchas gracias!

[@guiseppe32]

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

[@sir_robert8901]

Excelente trabajo, y aún más la explicación de la programación.

[@ChechoE0917]

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!!

[@denismunguia6139]

Muchas gracias por compartir tu conocimiento. Me sirvió de mucho!!1

[@grijalvaescobedo158]

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 🇲🇽🤝👏👏👏🤝🤝

[@AprendamosExcel]

Muchas Gracias por tu apoyo no saber cómo motiva, que tengas un excelente dias.

[@pedromaureira7932]

Excelente video,tremendamente bien desarrollado,gracias profe.Solo tenemos que cargar el listbox despues de la búsqueda o de la edición.

[@AprendamosExcel]

Hola Pedro, de las dos formas debe funcionar

[@josepaz5697]

Me podría decir cómo hacer eso por favor??

[@MarcosPerla]

Hola!! gracias por el video muy completo!

[@locobeach1988]

Excelente tutorial.

[@PalabrasInspiradoras2024]

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.

[@brayanguitron7161]

Muy buen tutorial. Mi duda es, ¿Alguna guía para conocer las formas que aplicas? ó ¿Cómo conocer las formulas que existen?

[@matiaspaladino4819]

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 !!

[@obrasinvernizzi]

En el código en la parte Column Heads = true son los encabezados

[@RoRo_RuPe]

Tu apoyo al momento de ejecutar el macro se busca el registro lo identifica pero se oculta el formulario y se resalta este código en color amarillo Me.Lista.List(Y, 0) = Sheets("BDASOLNOR").Cells(Filas, 2).Value

[@wilfredomezamisaico6364]

Haga un video como marcar una logo y luego se sume los que estoy marcando en Excel con macros

[@danielchillemi4974]

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

[@rodrigojones8066]

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.

[@todpipemj]

Muchas gracias por compartir su conocimiento, tengo una pregunta, si quiero editar el ID ¿que debo hacer?

[@franciscolorente8697]

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.

[@AprendamosExcel]

Hola Francisco los listbox solo adminten un maximo de 10 columnas

[@hainerromero1108]

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.

[@garysempaikun961]

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?

[@deybysandino3452]

como mantener los encabezados del listbox después de ejecutar la busqueda ?

[@claudiovillavicencio5136]

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¿?

[@guillermomtz6859]

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

[@AprendamosExcel]

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.

[@crovercortezcienfuegos8920]

​@@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

[@marcosjesusbarcena7690]

Muchas gracias, cuando configuro el campo de editar o buscar desparecen los encabezados de la lista, sabran porque?

[@bcarrera2487]

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.

[@msbaujs]

muy bueno,pero me falta como controlar que la informacion ingresada sea correcta

[@alfredoislasgatica4864]

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.

[@AprendamosExcel]

Hola Alfredo en el codigo debe de decir end(xlup), tu colocaste un 1

[@Red.Inmobiliaria]

hola todo perfecto estube trabajando con este programa, pero de momento me sale este error se ha producido el error "91" en tiempo de ejecucion Variable de objeto o bloqueo Whih no establecido, me pueden ayudar a solucionarlo, por favor

[@jacksamuelisraelleonbetanc1028]

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.

[@anibalpederneraarratia8378]

Hola cuando edito un dato y le doy a guardar se pega en todas las columnas lo mismo y no cada dato de mi base

[@christopheralfaromunoz8567]

Hola muy buen video, pude avanzar sin problememas hasta el proceso de guargar, me arroja error 91 en la seleccion Lista = fila. Porqué seria?

[@ramiroj.3238]

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

[@AprendamosExcel]

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.

[@ramiroj.3238]

@@AprendamosExcel gracias ti por tus videos, voy a intentarlo.

[@TheArbles]

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??

[@juanmasias492]

Cuando se realiza la busqueda, se borran los nombres de las cabaceras del ListBox. Cómo harias para evitar borrar las cabeceras del ListBox

[@juliocuellar6406]

Me paso lo mismo

[@juanmasias492]

Si, por favor alguna respuesta que permita salvar ese error, por favor ya que me detenido en ese proceso para completar mi Userform de consultas. Gracias igual. Los leo

[@Jierban]

Cuando Me.Lista.RowSource = Clear, borras hasta los encabezados. Por si te sirve el apaño: Private Sub cbBuscar_Click() If Me.txtBuscar = "" Then MsgBox "Debe insertar algun dato en la barra de Buscar.", vbExclamation Me.txtBuscar.SetFocus Exit Sub End If Me.Lista.RowSource = Clear Me.Lista.ColumnHeads = False 'Quitar encabezados vacios Dim tablaC As ListObject Dim ultFila As Long Dim i As Long Set tablaC = hoja4.ListObjects("tbClientesBD") ultFila = tablaC.ListRows.Count ' Agrega los encabezados al ListBox pero en la fila 0, siempre visibles (pero sin formato) Me.Lista.AddItem "" For i = 1 To 6 Me.Lista.List(0, i - 1) = tablaC.HeaderRowRange.Cells(1, i).Value ' Coloca el nombre del encabezado en la fila 0 Next i 'Busca en la tabla For fila = 1 To ultFila If UCase(tablaC.ListRows(fila).Range.Cells(1, 2).Value) Like "*" & UCase(Me.txtBuscar.Value) & "*" Then Me.Lista.AddItem tablaC.ListRows(fila).Range.Cells(1, 2).Value Me.Lista.List(Lista.ListCount - 1, 0) = tablaC.ListRows(fila).Range.Cells(1, 1).Value Me.Lista.List(Lista.ListCount - 1, 1) = tablaC.ListRows(fila).Range.Cells(1, 2).Value Me.Lista.List(Lista.ListCount - 1, 2) = tablaC.ListRows(fila).Range.Cells(1, 3).Value Me.Lista.List(Lista.ListCount - 1, 3) = tablaC.ListRows(fila).Range.Cells(1, 4).Value Me.Lista.List(Lista.ListCount - 1, 4) = tablaC.ListRows(fila).Range.Cells(1, 5).Value Me.Lista.List(Lista.ListCount - 1, 5) = tablaC.ListRows(fila).Range.Cells(1, 6).Value End If Next fila Me.txtBuscar = Empty Me.txtBuscar.SetFocus End Sub

[@gustavojosesalazarsandoval92]

Vi que en este Formulario el Campo Fecha trae numeros y no la fecha como tal. Quisiera saber como hago para que se muestre la fecha como tal? Saludos

[@JR_686]

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)=

[@ChechoE0917]

Hola eso pasa, si no me equivoco, porque Excel solo tolera máximo 10 columnas en una ListBox

[@JHONJAIBERGALLEGOMORALES]

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?

[@RicardoMendez-zs6zv]

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?

[@ana-l3o5m]

Poner otro listbox con solo los encabezados

[@Jierban]

Cuando Me.Lista.RowSource = Clear, borras hasta los encabezados. Por si te sirve el apaño: Private Sub cbBuscar_Click() Me.Lista.RowSource = Clear Me.Lista.ColumnHeads = False 'Quitar encabezados vacios ' Agrega los encabezados al ListBox pero en la fila 0, siempre visibles (pero sin formato) Me.Lista.AddItem "" For i = 1 To 6 'Yo necesito 6 columnas Me.Lista.List(0, i - 1) = tablaC.HeaderRowRange.Cells(1, i).Value ' Coloca el nombre del encabezado en la fila 0 Next i

[@RafaelCobacho]

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!

[@Campero2012]

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.

[@AprendamosExcel]

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 [e-mail] para revisarlo y dar con el error que tienes

[@Campero2012]

@@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ú.

[@AprendamosExcel]

@@Campero2012 ya encontraste la solución perfecto muchas veces parece ser la versión del Excel.

[@Campero2012]

@@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.

[@AprendamosExcel]

@@Campero2012 coloca sheets ("productos_BD").select al inicio del codigo

[@jacksamuelisraelleonbetanc1028]

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.

[@mauriciorojas9443]

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

[@fufete]

brother pregunta rapida, como hago para que despues de buscar algo, siga manteniendo los titulos de la tabla?

[@AprendamosExcel]

Hola Eugenio para realizar eso debes colocar el nombre de el listbox y despues .columnheads = true. espero te sirva.

[@ailinnevega4740]

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

[@robsn6669]

Hola gracias por tu explicacion, pero la fecha de nacimiento no sale otra numeracion? como se cambia a la fecha de nacimiento? Saludos

[@danielagomez7283]

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.

[@csparedespaco]

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.

[@marcopacheco261]

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

[@josepaz5697]

Excelente formulario pero al editar me corre toda la macro y no me hace la edición q debo hacer 😔

[@palermo017]

ola estimado se podria ingresar un grafico estadistico en el formulario?

[@brianenrique9887]

como hace para no perder el formato de celda en el list box

[@EstefDiaz]

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.

[@wilmermunoz5561]

Agregué otra hoja al archivo y si me posiciono en ella guarda la información en ella y no en la BD

[@alonsoperez145]

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

[@ArturoJimenez-rx4re]

UltimaFila = Sheets("INVENTARIO").Cells(Rows.Count, "B").End(""x1""up).Row pusiste x1 en vez de xl

[@HenryCarranza-u5u]

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?

[@franciscoberenjeno3046]

COMO PUEDO PEGAR DESDE LA TABLA AUNA ETIQUETA TEXTO MUY LARGO, NO ME DA OPCION DE PEGAR. GRACIAS

[@juliocuellar6406]

Cuando le doy en buscar me sale error 9 en tiempo de ejecucio Ayuda porfa

[@jeanjimenez7000]

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

[@AprendamosExcel]

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

[@jeanjimenez7000]

@@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 .

[@rodrigofuenmont7397]

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

[@camaradaflyshop8265]

Cuando filtro el listbox se me cambia el formato de los importes numéricos, ¿Cómo lo puedo solucionar?

[@marcovidarte7456]

Lo malo es que no jala de una tabla dinámica, solo jala de diseño de tabla

[@henrrylopezleonardo2660]

DISCUPE , PUEDO LISTAR 15 COLUMNAS PERO NO PUEDO BUSCAR EN ESA LISTA LAS 15 COLUMNAS SOLO ME PERMITE BUSCAR 10 COLUMNAS, PORQUÉ .

[@AprendamosExcel]

Hola Henrry los listbox solo permiten un maximo de 10 columnas si deseas usar mas debes de usar dos listbox

[@rolandhurtado6749]

HOLA, ESTAS TRABAJANDO CON 9 COLUMNAS DE DATOS, CUANDO PASO A 10 O MAS ME BOTA ERROR 🤒

[@AprendamosExcel]

Hola Roland los list box solo permiten un máximo de 9 columnas no mas

[@superchicatron]

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

[@seb718]

demora mucho en guardar

[@JulioCesar-21-JC]

No me sirve!!

[@Mariauc5]

Me ha dado "se ha producido el error '-2147024809 (80070057)'" No entiendo qué salió mal :'(((((