Excel - Como hacer un formulario de busqueda inteligente en Excel VBA (Macros)

[@ElTíoTech]

🚀🚀Curso 100% Gratis de Programación de Macros VBA Excel Aquí 🔽 70 Horas eltiotech.com/curso-completo-vba-macros-excel/

[@Gamila-g6e]

ya pude! ya pude! ya pude! GRACIAS TIO TECH. HE IDO APRENDIENDO POCO A POCO. QUE INTERESANTE, PRODUCTIVO Y DIVERTIDO ME PARECE TODO ESTO. FELICIDADES POR TU TALENTO PARA ENSEÑAR.

[@agustinclavellino412]

Seguí los pasos para crear el botón, reemplacé algunas variables que me hacía falta definir con otros valores, agregué algunas etiquetas para mejorarlo visualmente y que se viera un poco más ordenado, me funcionó, muchas gracias!

[@Sr-hq7cu]

Felicidades, sencillamente increíble sencillo, al grano

[@ramoniniguez8970]

Gracias totales Miguel. Adapté este código para buscar en 12 hojas y me funciona de maravilla. Agradecido por tu enseñanza. Un abrazo desde Salta, Argentina.

[@ralphreiro7]

Alguna posibilidad que compartas cómo lo adaptaste para buscar info de otras hojas?

[@jonathanvalleosorio3219]

PODRIA COMPARTIR COMO LO HIZO?

[@jufran_87]

Excelente aporte y mejor aún la explicación, mil gracias

[@gabrielfernandez1187]

Hola Gente, dejo un comentario por si alguno se tropieza con el mismo problema que yo, mas alla de que todo el código este igual y solo reemplazar el nombre de la Hoja de referencia (en el video llamada Hoja1), al tipear en el TextBox (TEXTO) salia el error 424, despues de renegar 1 dia completo y reescribir todo mil veces, me doy cuenta que por mas que nosotros cambiemos el nombre de la Hoja en el archivo excel, en el VBA Proyect la hoja se sigue llamando "Hoja1" seguido entre parentesis por el nombre que nosotros hayamos elegido llamarlo, pero llamandose Hoja1 en fin, motivo por el cual al colocar cualquier otro nombre el código marca error. Espero haber sido claro y que sea util para alguien mas. abrazo. Y mil gracias al creador por el gran aporte, es excelente

[@cyberxjto]

lei tu apreciacion es cierto .... hagan esto gente hagan anti clik en la hoja d excel que quieren trabajar y hvayan a codigo se abrira el vba yveran el verdadero nombre de la hoja

[@FernandoCamargoRobayo]

Buenas tardes muy buena explicación, pero seria bueno que colocara los comandos escritos en la descripción y así se evita la equivocación a los no manejamos VBA. Gracias

[@rofdiaz]

Felicitaciones por la excelente didáctica para enseñar a elaborar formularios. Es un inicio muy prometedor que tengo. Muchas gracias.

[@karinalopez5753]

Gracias he aprendido mucho de excel gracias a tu paciencia de explicar y saber que siempre le he tenido miedo a Excel ahora no! Eres genial

[@javiertorres5497]

Lo primero, GRACIAS POR TU TIEMPO, muy buen recurso, bien explicado, sencillo y fácil de comprender. El recurso es muy bueno. Felicitaciones por tu trabajo y mi agradecimiento.

[@nsomeyopg]

Excelente el método de enseñanza, de verdad, de lo mejor...

[@xiomaral.zamorac.9423]

MUCHAS GRACIAS, muy bien explicado

[@leitorodriguez]

Hola Tio Tech, la verdad que explicas muy bien y no son tan largas tus programaciones. Ahora estoy haciendo algo muy parecido por búsqueda pero quiero que lo condiciones una celda que yo elija. Puse por dos listbox pero demora mucho en la búsqueda son alrededor de 30.000 articulos. Desde ya muchas gracias.

[@salas690]

Muchas gracias por el vídeo, me sirvió bastante, solo que tuve que agregar un poco mas de información para que me pudiera ejecutar a la perfección, creía que no funcionaba pero me hacía falta código Private Sub buscartienda_Change() NumeroDatos = Worksheets("Tabla").Range("A" & Rows.Count).End(xlUp).Row Worksheets("Tabla").AutoFilterMode = False Me.listabusca = Clear Me.listabusca.RowSource = Clear y = 0 For fila = 2 To NumeroDatos descrip = Worksheets("Tabla").Cells(fila, 1).Value If UCase(descrip) Like "*" & UCase(Me.buscartienda.Value) & "*" Then Me.listabusca.AddItem Me.listabusca.List(y, 0) = Worksheets("Tabla").Cells(fila, 1).Value Me.listabusca.List(y, 1) = Worksheets("Tabla").Cells(fila, 2).Value y = y + 1 End If Next End Sub

[@jorgeluiscotaratebellido8898]

GRACIAS TIOO, LO MAXIMO PROGRAMACION EN EXCEL

[@egoscuro]

para la referencia "NumeroDatos = Hoja3.Range("B" & Rows.Count).End(xlUp).Row" no me funcionaba hasta escribirla correctamente de la siguiente manera: "NumeroDatos = Sheets("Hoja3").Range("B" & Rows.Count).End(xlUp).Row " de pronto debe ser porque es excel 2016

[@centroeducativopatria568]

Gracia amigo me has salvado estabas en lo correcto, muchas gracias

[@babelmartin4258]

eres un genio

[@B4chater0]

Thank you

[@lineoff2008]

gracias por el dato, asi si me sirvio, sera por la version de excel?

[@paupocita]

Gracias!!! A mi tampoco me funcionaba pero con esto todo bien!

[@guillermomartinez9049]

Gracias bro me salvaste en mi clase de Informática Avanzada

[@xzrmmftrlll]

SOS UN GENIO, LO HACES VER MUY FACIL.

[@juman86garvil]

me da gusto porque tienes paciencia para explicar tus vídeos, sin importar lo que demore, sigue así amigo. felicidades por tu canal.

[@posealberto]

Exelente video y muy bien esplicado sigue asi muchas gracias..

[@josuefernandodelatorrre.1090]

Que tal tío tech, ayudanos para poder agregar mas de 10 columnas en el buscador, te lo agradeceriamos bastante. LIKE SI QUIEREN QUE TIO TECHE NOS AYUDE CON ESTE PROBLEMA !! :D

[@0180-s1x]

YA LO SOLUCIONASTE MAN

[@josuefernandodelatorrre.1090]

no aun no la resuelvo :(

[@javiervega6510]

No sé si has encontrado solución, pero lo que yo hice fue copiar la siguiente parte del código hacia abajo: Me.Lista.List(y, 0) = Hoja1.Cells(fila, 1).Value "Cambiando los valores de las columnas" Si al ejecutar y escribir algo (palabra) en el cuadro de texto no aparece nada en el listbox, entonces tienes que revisar tu codigo en la siguiente parte: descrip = Hoja1.Cells(fila, 2).Value El 2 indica la columna que quieres que se muestre. Si en esa columna tú tienes numeros, entonces tienes que buscar (al ejecutar tu userform) con numeros. Si quieres buscar con palabras, entonces busca en tu tabla de excel en que columna están las palabras; luego, reemplaza el numero 2 que está dentro del paréntesis por el numero de la columna donde tú tienes las palabras.

[@ettygiselltejadavalle6593]

Hola que pusiste para lograr mas de 10 columnas?

[@ettygiselltejadavalle6593]

@Orlando Vallejos Azocar muchas gracias 😁

[@adayrduransaldana5102]

excelente vídeo me ayudo mucho para mi proyecto de mi escuela, de verdad muchas gracias

[@presupuestos-bolivia]

excelente explicacion .. muy util... gracias tio

[@pedropinatemoreno4054]

MUY BUENO HERMANO TREMENDA HERRAMIENTA. SIGA ADELANTE

[@DANYJOEL8]

Muchas gracias Tio Tech, me ayudo bastante el ejemplo y tus codigos!

[@nachoglez6179]

Excelente vídeo Tio Tech, ojala puedas mejorar solo la calidad del vídeo porque no se logran ver bien algunos códigos.

[@orlandogomez1189]

He visto otros videos para hacer algo parecido pero era muy rebuscado tu video es mil veces mas practico y bien explicado muchas gracias y por favor segui haciendo el mismo perfil de video y esta muy bueno que te des el tiempo para explayarte

[@sevenbeat3234]

Para todos los que tuvimos problemas en la primera parte les tengo una opcion que me ha servido. Coloque lo siguiente: Private Sub BUSCARR_change() Dim fila As Integer Hoja7.AutofilterMode= false Me.ListBox1 =Clear Me.ListBox1.RowSource = Clear Y=0 For fila = 2 to 2000 Descrip = Hoja7.Cells(fila, 1). Value Y= Y+1 End If Next End Sub ESPERO LES AYUDE A MI ME HA SERVIDO EXCELENTE!!!! SALUDOS Y GRACIAS POR ESTE SUPER VIDEO!!!

[@milenashuna3323]

MUY BUENA LA EXPLICACION. GRACIAS

[@franciscoflores8486]

EXCELENTE TU APORTE ME FUNCIONA MUY BIEN...GRACIAS HAZ LA TERCERA PARTE......POR FA

[@williamsperez5455]

Gracias, me ayudaste aunque me salieron algunos errores pero pude resolver leyendo los comentarios, gracias

[@miguelc2888]

Muchas gracias colega. me ha venido de lujo. Muchas gracias amigo.

[@Hugobeltran7195]

hola tio tech muy buenos tus videos. los pongo a prueva y corren bien. me gustaria que algun dia hagas un tutorial de busqueda pero con varias hojas. sigue asi muchos exitos

[@aseisoas]

Muy bueno me sirvió de mucho

[@palomamedinatargarona572]

Muchas gracias

[@daguero2012]

Excelente, Felicitaciones + Like Saludos desde Chile. 07-05-2018

[@juana.m.r7972]

Muchas gracias por tus enseñanzas ssludos

[@fredyyela6870]

hola excelente vídeo pero deberías de dejar los códigos en la descripción ya que algunos códigos no los e podido copiar ni subiendo la resolución del vídeo a lo máximo

[@rodrigoalonsoparravicini937]

Excelente video tío

[@alexanderarias7384]

excelente ya hice el ejercicio del tutorial suyo completo de 32 min son solucion algunos problemillas gracias aunque no he encontrado el de añadir las columnas que quiera con Rowsource

[@erikacabezas126]

Mil Gracias.... Tio Tech, me ayuda bastante este tuto pero falta el video en el que seleccionaremos haciendo doble click. Porfavor subelo para completar nuestro aprendizaje con usted.

[@rubenquirosnaranjo]

Vengo a dejar mi agradecimiento en forma de like y comentario. Muchas gracias en serio. Muy buen turorial

[@carle.2070]

Excelente Tio Tech, he aprendido muchísimo de mis errores y de los tuyos tambien XDXD

[@emilianoandreurbinazavala43]

Para aquellos que tengan el error 424 object required: Aqui esta la solucion: verifica que el nombre de la hoja sea el exacto en "Productoss" si son idénticos los nombres y aun tienes el error, intenta: NumeroDatos = Sheets("Produtoss").Range("A" & Rows.Count).End(xlUp).Row

[@emilianoandreurbinazavala43]

De nada, para eso estamos :)

[@oktincho]

gracias crack!!

[@zuaco1]

Hice el cambio y en lugar del error 424 ahora me dice "Error 9" "Subindice fuera del intervalo". Me ayudas please 🙏

[@jhonb8211]

Saludos Tío Tech! Gracias por compartir esos conocimientos q son de full ayuda. Disculpa, cuál es el siguiente vídeo que continúa el tema?

[@DanielBarraValenzuela]

Buen video, bien explicado. Me gustaría saber como hacer la misma búsqueda pero a una tabla alojada en un libro distinto y después copiar esa coincidencia en una hoja del libro actual (donde se ejecuta la macro). Espero me puedas ayudar con esta duda. Muchas gracias.

[@felixzamorano4245]

Capisimo bro Tio Tech, mis respetos por tus codigos, el ultimo vio xfa

[@RicardoRamirez-tx3th]

excelente video

[@daromg3149]

Gracias :3 convine tu código con el mio y quedo pero buenaaaaaaaaardo

[@naunjordangalindosespinoza6842]

Buen video, te agradezco por compartir tus conocimientos, estaré esperando el tercer video

[@mario198333]

Gracias! que gran ayuda me has dado

[@academia-intec]

Te pasaste macho!!!! Muy bueno y clarito (que es lo importante), muchos like!!!!

[@shushan3834]

Gracias!!!

[@wilbercaballero-cellompleo9496]

Excelente, saludos desde Nicaragua. Me funciona excelente.

[@miguelangelrodriguezchavez4246]

TIO TECH PARA QUE SEA MAS RÁPIDO COLOCALE ZOOM CUANDO ESTE RELLENADO EL CUADRO PARA PODER COMPARAR LOS CÓDIGOS X HAY PARTES K NO SE NOTAN CLARAMENTE LOS CÓDIGOS YA QUE LA MAYORÍA NO ESTÁN FAMILIARIZADOS CON ESTOS CÓDIGOS GRACIAS Y BUEN VÍDEO

[@DAGOBERTOMURGUEITIO]

excelente video, falto incluir en la descripción el formato de moneda

[@ice573]

Gracias buen aporte, faltaria la tercera parte donde se selecciona, gracias!

[@sateliteterritorial4906]

Mi like esta dado y mi suscripción más que necesaria.

[@shoelias008]

Excelente tuto !!! Muchas Gracias !!! Podrias explicar el método RowSource ? Gracias nuevamente !!!

[@miguelportillo2714]

muy buen tutorial, gracias Tio tech, todo bien

[@marianavazquezcervantes6791]

Me has salvado!! Te doy las gracias, TIO TECH :)

[@rodolfogrillo3659]

muchas gracias por el aporte!!! Excelente

[@ElTíoTech]

Saludos rodolfo.

[@correcciondata5779]

Gracias... Excelente tutorial

[@CERB91]

Saludos, he visto que muchos tienen problemas con el error 424 prueben usando esta sintaxis, a mi me funciono a la perfección. Private Sub texto_Change() NumeroDatos = ThisWorkbook.Sheets("Hoja1").Cells(Rows.Count, 1).End(xlUp).Row ThisWorkbook.Sheets("Hoja1").AutoFilterMode = False Me.lista = Clear Me.lista.RowSource = Clear y = 0 For fila = 2 To NumeroDatos desc = ThisWorkbook.Sheets("Hoja1").Cells(fila, 1).Value If UCase(desc) Like "*" & UCase(Me.texto.Value) & "*" Then Me.lista.AddItem Me.lista.List(y, 0) = ThisWorkbook.Sheets("Hoja1").Cells(fila, 1).Value Me.lista.List(y, 1) = ThisWorkbook.Sheets("Hoja1").Cells(fila, 2).Value Me.lista.List(y, 2) = ThisWorkbook.Sheets("Hoja1").Cells(fila, 3).Value Me.lista.List(y, 3) = ThisWorkbook.Sheets("Hoja1").Cells(fila, 4).Value Me.lista.List(y, 4) = ThisWorkbook.Sheets("Hoja1").Cells(fila, 5).Value Me.lista.List(y, 5) = ThisWorkbook.Sheets("Hoja1").Cells(fila, 6).Value Me.lista.List(y, 6) = ThisWorkbook.Sheets("Hoja1").Cells(fila, 7).Value Me.lista.List(y, 7) = ThisWorkbook.Sheets("Hoja1").Cells(fila, 8).Value y = y + 1 End If Next End Sub

[@anitaponcio5883]

Gracias me sirvio mucho

[@genesisoller3927]

@@anitaponcio5883 NO ENTIENDO DONDE ESTAS LA SOLUCION AMIGA... PUEDE EXPLICARME DONDE ESTA EL CAMBIO

[@josevictor269]

COMO VEO EL PRIMER VÍDEO GRACIAS SOS UN GRANDE

[@djbambicho]

de mucha ayuda!

[@ACaro-ux2ts]

Hola tio Tech, magnífico: Como hacer un formulario de búsqueda inteligente , Lo he utilizado y funciona excelente poco código y eficaz. ¿Se podría mejorar su apariencia para que se vea la línea de encabezados? si se tiene más de una columna creo sería de gran utilidad. Gracias

[@sateliteterritorial4906]

EXCELENTE VÍDEO! Me gusto la forma acelerada de explicar.....creo deberías hacer todos tus tutoriales así.......en caliente todo. Al menos para mi es de lo mejor porque las explicaciones lentas aburren y mejor cambio a otro vídeo aunque no sea del tema buscado XD

[@oskitarpro]

MUCHISIMAS GRACIAS POR EL TUTO...

[@MrFargarate]

Excelente! suscrito! Gracias!!

[@sateliteterritorial4906]

Estoy a la espera del tercer vídeo de esta saga.....jejejeje Me intereso lo último, para realizar un copiado de lo seleccionado en la lista desplegable y estaría genial que en ese tutorial se genere una lista para imprimir o se manden los datos a un formato de word o del mismo excel para posterior Imprimirlo.

[@sebastiansalazars6164]

Por favor, podrías en tus ejemplos de programación con VBA declarar las Variables y además incluir el "Option Expiicit". Muchas gracias por tu ayuda.

[@wilsommontec390]

Excelente Tutorial

[@angelitaw1583]

Muchisimas Gracias!

[@nicozepp10]

Hola, Tio Tech. He visto los videos de la primer y segunda parte de este tema, son Exelentes. Era toda la informacion que necesitaba para mi proyecto. Te queria preguntar cual es el video que correponde a la 3° Parte ?, para poder seleccionar datos de la ListBox y mandarlos a la celde deseada. Muchas gracias

[@CristianLopez-cf1xl]

Excelente video.... solo falta la ultima parte, alguien que me ayude por favor

[@edinsonsanchez8915]

TIO TECH una pregunta como se podría aplicar un filtro sobre el filtro que ya realizamos con la primer caja de texto es decir buscar dentro de los resultados de la primera busqueda por ejemplo si tuvieras varios items chocolate pero con distinto código, tus videos son lo mejor muchas gracias por tu aporte

[@gerardoefrainpolancoesquiv2782]

TIO TECH, GRACIAS POR COMPARTIR ME AYUDAS MUCHO. DISCULPA AUN NO TIENES EL TUTORIAL QUE LE SIGUE??

[@carlosarturoariasgarcia7479]

Gracias por el conocimiento. Por favor mejorar la resolución de los videos o acercar al momento de escribir los códigos, o en su defecto mencionarlos para entender mejor y mas rápido

[@segundocardosodobarganes4604]

Mi primer interés es Crear un Registro de Productos con sus precios e IMÁGENES, así como Un buscador que me permita buscar el Código, a través del Nombre del producto y Viceversa. Muchas gracias.

[@AlvaraCOP]

Segundo Cardoso Dobarganes lo del buscador q solicitas es otro ejemplo mas elaborado. Si tienes dudas puntuales, tratare de ayudarte.

[@eduardoromero5767]

Muy buen video, la explicación es muy clara, yo quiero cruzar información de dos archivos diferentes que contienen varias columnas (desde A hasta BC), de ese cruce llenar un tercer archivo que se va llenar con información procedente de ambos archivos, ¿me puedes ayudar?

[@PCSPEED-iy6nz]

TIO TECH PODRIAS HACER ZOOM NO SE VE LO QUE ESTAS ESCRIBIENDO ES COMO QUE NO DES TUTORIAL ESPERO ME ENTIENDAS

[@emilianoandreurbinazavala43]

Buen tutorial, solo recomiendo mejorar la resolucion o calidad de video pero aparte de eso, todo fue excellente

[@isaiasdaniel8224]

Si le subd la calidad a 720 se ve todo super bien

[@franciscozeballoszopilote]

hola tio tech, quisiera filtrar un cliente de un listox, seleccionando datos de un combo que toma datos de una tabla y a su vez de un rango de fechas y mostrar el valor recaudado,,,se puede hacer? muchas gracias, aprendo mucho con tus videos

[@carlosgrillo4132]

Las clases del tio tech son buenas, pero sugerencias 1. Quizas hablar mas despacio, se supone que estamos aprendiendo excel. 2 hacer zoom porque asi se ponga en pantalla completa no se ve muy bien los codigos y cualquier letra mal puesta va a hacer que no sirva la formula..

[@alansa7930]

Excelente buen dato

[@juanmanuelgarciagalviz2312]

Cómo hacer un formulario de búsqueda inteligente en Excel VBA (Macros), pero para varias hojas con una cantidad diferente de fila y, el mismo numero de columnas.

[@AlexRodriguez-by6hw]

Excelente, solo que estaría bueno que pongas zoom a lo que escribes.

[@tudosobrequalquerconbianki74]

wow por ti quiero ser contable ya y trabajar en esto tio tech! el codigo para que muestre el valor de pesos?

[@caroaliaga8990]

Buen tutorial! Pero Como hago para que el valor seleccionado en el Listbox me vaya a una celda de excel?

[@luis_ffernando]

Hola, has podido averiguar como ir al valor seleccionado en el list box?? Estoy con el mismo problema!!!

[@caloma83]

Hola Caro ! Esta respuesta la da en un video del 25-Ene-2018 llamado Excel - Como crear factura automática con búsquedas inteligentes y reportes PDF Excel 2016

[@LuisARizo-de7kn]

Miguel, Buenas tardes, excelente aporte, de hecho me ayudaste mucho (con la primera mitad de lo que busco hacer) de hecho estoy muy interesado en buscador inteligente con el método rowsource, por que de hecho mi listbox efectivamente tiene mas de 10 columnas, lo he buscado por todos lados, pero tu eres el único que encuentro ha tocado el tema tal cual, busque en tu pagina y no encontré la tercera parte, sera que no la vi? o no la has subido? te agradezco mucho tus aportes y espero tener noticias pronto, saludos...

[@renatobarragan1185]

Buen aporte de mucha utilidad. Tengo una consulta como puedo establecer bien la posición de las colummas para que los datos se muestren correctamente en el listbox. Muchas gracias

[@alejandrobruno2471]

Ante todo gracias Tio Tech por el tutorial!! En mi caso, me arroja el error 424 en tiempo de ejecución; al optar por la acción de depurar, resalta en el codigo la linea "NumeroDatos = CONTACTOS.Range("A" & Rows.Count).End(xlUp).Row" ("contactos es el nombre de la hoja de mi libro Excel). Utilizo Excel 2016, lo cual desconozco si tendrá alguna injerencia. Ojala puedas ayudarme. Muchas gracias.

[@lacochinonarock]

Yo estoy igual. Me hace referencia a que esta mal el nombre de la hoja. Pusiste resolver?

[@nicolasraina1516]

Buenas noches Alejandro, probá cambiando CONTACTOS.Range("A" & Rows.Count).End(xlUp).Row" por Sheets("El nombre de tu hoja donde está ubicada la tabla").Range("A" & Rows.Count).End(xlUp).Row". Ej, si tu hoja donde está la tabla se llama "CONTACTOS", el código quedaría: Sheets("CONTACTOS").Range("A" & Rows.Count).End(xlUp).Row"

[@GamesAndAnimeYoung]

Tampoco me funciona utilizo la versión 2007 genera el mismo error

[@MrFargarate]

Hola Miguel!! Te sigo!! Consulta por favor, cual es el link para ver tu video donde con Double Click luego de una Búsqueda, desde el el listbox se puede ingresar o ver los datos en el formulario?? o cargarlos en el mismo para poder visualizarlos y al futuro editarlos??? Muchas Gracias por todo tu esfuerzo y aportes!! Espero pronto tu respuesta. Abrazo!!

[@josegregoriovillarreal1876]

Saludos desde Venezuela muy buen clase en especial la forma como explica muy buena y específica, a raiz de esto he visto varios vídeos en la cual he practicado con sus tutoriales, en esta oportunidad, tengo una duda que quisiera me ayudara con ella yo tengo un listbox y quisiera rellenar el mismo con informacion de varias hojas en las cuales contienen tablas me gustaria que ese listbox apareciera toda la informacion de las diversas hojas... espero su respuesta

[@JMAnguiano]

ME PODRIAS PASAR EL LINK DE LA TERCERA PARTE POR FAVOR NO LO ENCUENTRO, FELICITACIONES POR TANTOS VIDEOS ERES UN CRAC

[@soyjorge2010]

Buen día, si me resultó gracias por el video, pero una recomendación sería bueno que le haga un mejor acercamiento ya que es dificil poder ver lo que escribe, muchas gracias y suerte

[@comercialjhon8615]

muy buen aporte, pero y la tercera parte

[@carlosquirogabacaquirogaba3458]

Gracias @tiotech por tus conocimientos, una consulta y como hacer para insertar lo datos filtrados en la celda activa o la última de la tabla??