VLOOKUP with images in Excel using vba and macros @EXCELeINFO
HTML-код
- Опубликовано: 19 авг 2024
- Download the file | www.exceleinfo....
Subscribe | goo.gl/M5zNA8
Hello everyone. In this article and video we will see a very interesting example in which we will use the VLOOKUP function to return information from another Excel sheet, but we will go further, in addition to returning the data corresponding to the desired value, we will also return the corresponding image or photo to that record. I am sure that this example can be adapted to an interesting project and get the most out of it.
Using VLOOKUP to return data
Remember that the VLOOKUP function will help us to return information from another Excel sheet. Our searched value will be a 4-digit ID. The values to be returned are found in the sheet called Base. Up to this point I want to pay attention to the following, in the base sheet, in addition to having the data of the people, we will also store the name of the image corresponding to each record. The images must be in a folder called emoticons, and must be in the same location as the Excel file.
More examples | www.exceleinfo.com
More examples | blogs.itpro.es/...
Facebook Page | / exceleinfo
Get notificacions on Telegram | t.me/EXCELeINFO
Twitter | @EXCELeINFO
Twitter | @SergioACamposH
Download EXCELeINFO addin:
addin.exceleinf...
Hola amigo Sergio todos los dias asombrando con sus articulos, cada dia aprendiendo mas de Excel, de mi parte excelente y el video bien explicado.. saludos x venezuela
+Miguel Luna Me alegra que estés aprendiendo con los vídeos.
Instrucciones claras y super útiles. Gracias Sergio.
Gracias estado Sergio me sirvió estoy realizando un buscador con vba. 👏👍
Excelente!!!, es lo que estaba buscando, muy didáctico la explicación. Gracias Sergio.
Gracias por comentar Abel.
Extraordinario, aprendemos creatividad también. Gracias.
+Antonio8688 Así es Antonio.
Hola Sergio magnifico este tema interesante y bien explicado me gusta para aplicarlo de acuerdo a las necesidades de cada uno.sal2 pulgar arriba pendiente de mas,
+oscar santos Gracias Óscar.
Muchas gracias por el aporte, muy bien explicado, nuevamente gracias por compartir tus conocimientos! :)
Muchas gracias.
Super Bien Explicado. Muchas Gracias y Felicitaciones.
+Lazaro Reyes Gracias por comentar.
Esta muy bueno. Sin duda a muchos les será de gran utilidad!
Eso espero, llegar a mucha gente
Haces un trabajo increíble Sergio, mis felicitaciones!
+TeRRyk0rZz Agradezco tu comentario.
Excelente muchas gracias de verdad, solo que tuve problemas al hacer la macro y por mas que la corregía y la volvía hacer nunca me salió, al final opte por copiar el código del documento que creaste. Pero sin duda un excelente trabajo!
Hola. Con más calma revisa línea por línea si te faltó algo. Para que no te quedes con la duda.
Soy uu fan No 1, tienes uno formulario para por productos asi de explicadito, porque tengo mi formulario de compras pero quiero ver que producto estos vendiento y no dar uno erroneo
Y mi agradecimento por tan loable labor
Excelente aporte, voy a aplicarlo en mis trabajos
Me da gusto.
Excelente gracias
Muy bien hecho y explicado.., se agradece
+Jorge José Melgar Romero Yo agradezco tu comentario.
Felicidades sergio por el gran trabajo realizado es un buen apoyo para el aprendizaje en VBA. Saludos y muchas bendiciones.
Me funcionó perfecto, ahora me interesa como hacer q aparezcan 2 imagenes, no sólo una
Excelente! Tremenda explicacion, saludos!!
+Alexis Ramon Vargas Muchas gracias por tu comentario.
Excelente, utilisimo. Muchas gracias.
+Freddy Jesús Mazo Ramírez Me alegra que lo veas útil.
Muchas gracias!!! Funiono perfecto!!!
Una OBSERVACIÓN IMPORTANTE que quizás les sirva a muchos acerca de el error en el metodo 'userpicture' de objeto 'fillformat' ... Me dio por comparar el archivo de ejemplo que adjuntó Sergio Alejandro en la descripción con el archivo que hice yo en casa y DESCUBRÍ algo muy pero muy importante. El nombre de la imagen o foto en la tabla, TIENE QUE ir seguido por la extensión de formato .png .jpg .jpeg, es decir, si en la carpeta de imágenes tenés una imagen con el nombre foto1, en la tabla de datos en excel TIENE que llamarse foto1.png o foto1.jpg o foto1.jpeg
No soy experta en el tema, pero puede que a muchos les pase lo mismo, pasé toda una tarde modificando todo para que el error desapareciera y solo en la noche logré saber el por qué... Jeje :D ¡Salu2!
Muchas gracias Lizeth por el comentario. Estoy seguro que esta observación le servirá a muchos, ya que son cosas que en un principio pueden parece obvias, pero no lo son. Gracias por compartir tu experiencia
@@SergioAlejandroCampos Gracias a ti por ayudarnos y compartir tu conocimiento. ¡Saludos!
muchas gracias no lograba detectar mi error, habia logrado hacer que aparecieran dos imagenes diferentes con la misma búsqueda pero no habia caido en la cuenta de la extension, si a alguien le sirve simplemente completemente el nombre de la busqueda en otra celda con la funcion CONCATENAR.
Gracias fue grandioso
muy buen ejemplo!!
+Luis Moscoso Gracias
Buenaa noches Sergio, gracias por el aporte que das a la sociedad, estoy haciendo el ejemplo con fotos reales y aun no logro concretar la practica, solicito tu apoyo. Gracias
te dieron apoyo?
Tremendo video maestro!!
+Alex Ramos Canaval Gracias por tu comentario.
Eres el mejor me funciono tu macro muchas gracias te doy mi apoyo, quisiera que me ayudaras con una duda en la pestaña de excel donde tengo los datos para pegar las imágenes pero tengo que pegar varias como podría hacer, gracias saludos
Excelente
Genial Sergio
+Alvaro Rodríguez Lasso Gracias!
Sergio buen dia, como puedo hacer, tengo tres celdas para colocar el codigo y en la tarcera celda digito el codigo y me sale error y me envia al VBA, porfavor tu apoyo ya que quiero que cada vez que digite un codigo me salga una imagen distinta. Saludos y muy bueno tu ayuda con los qur estan aprendiendo.
Saludos.
Marco Aguilar
Hola Sergio, siempre agradecido por tus videos. Como seria el código para poner dos emoticones en la misma hoja. Saludos.
Excelnte video, pero si quiero clasificar carpetas dentro de otras carpetas como un directorio, ojala me puedas ayudar como cambiaría aquí en el código no se si este bien porqeu no me refleja la imagen. la celda W3 es el año y la X3 es la carpeta que contiene las imagenes
RutaImagen = RutaArchivo & "\imágenes\" & Sheets("Consulta").Range("W3").Value & "\" & Sheets("Consulta").Range("X3").Value & "\" & Sheets("Consulta").Range("B10").Value
Buenos dias Sergio. Gracias por los videos, muy interesantes. Acudo a usted para resolver un problema que no he podido solucionar. Tengo dos bases de datos. Una tiene trozos de vias ferroviairias (llamemoslos A) que van desde un punto kilometrico a otro (punto kilometrico de inicio del trozo y punto kilometrico del final del trozo). Esos trozos estan todos identificados con un codigo diferente. Dichos trozos pueden hacer parte parte de otros trozos (llamemoslos B) mas grandes que tambien tienen un codigo (pero diferentes a los anteriores). Es decir, en un trozo tipo B hay varios trozos tipo A. En la otra base de datos tengo un tipo de infraestructura (puente) que tiene un punto kilometrico especifico pero esa infraestructura esta atada a los trozos tipo B. Lo que busco es saber como puedo indicar a qué trozo tipo A cada puente pertenece partiendo de la base que tengo un punto kilometrico que debe esta entre los punto kilometricos de comienzo y fin de cada trozo tipo A y que hace parte del trozo tipo B. Espero haya podido ser claro en mi descripcion. Le agradezco enormemente si puede ayudarme.
Excelente aporte, muy bueno, muy claro y fácil de entender, tengo una consulta para una posible adaptación, ¿Es posible mostrar la imágen dentro de una celda directamente sin tener que usar el shapes rectángulo? gracias
Muy buen aporte, tu explicación es excelente pero hice paso a paso pero me queda una imagen y no se mueve, ojala puedas darme una ayuda, gracias
Amigo, me parece muy claro lo que explicas, yo creo que entiendo y creo que lo adapto a mi archivo y no me funciona, tengo una imagen para cuando el identificador no existe y esa es la imagen que me sale, le coloqué un msgbox de notificación y eso es lo que me sale, le doy vueltas y vueltas y no consigo donde me equivoqué
Hola Sergio, disculpa si recién veo o localizo tu video, como siempre excelente. Ahora yo tengo una consulta, se podrá hacer algo similar pero la imagen se rellene en celdas, y no en una forma?
Hola Sergio, En principio Felicitarte por los videos de enseñanza que subes, puedo decirte que soy tu fans No. 1.
He seguido al pie de la letra las instrucciones para realizar esta forma sin embargo me aparece el siguiente ERROR ....Error -2147024893(80070003) En tiempo de ejecucion
Error en el metodo "UserPicture" de objeto "FilFormat"
Si pudieras tener el tiempo de responder o alguno de tus seguidores que le haya sucedido lo mismo y quisiera compartir la respuesta
Saludos desde Toluca Mexico
hola bro pudiste solucionar ese error ?
Me parece buenisimo
+Mariano Garrido Gracias.
Excelente enseñanza maestro. Quería una macro que al mover mi carpeta a otro PC siguiera funcionado.
Una pregunta maestro.
Tengo la hoja con información de una persona, pero inserté dos formas para reflejar en una el frente de su cédula de identidad y el la otra forma el reverso del mismo documento, cómo hacerlo?
Muchas gracias y bendiciones.
Excelente tutorial muchas gracias por el aporte me sirvió bastante para mi trabajo, pero mi duda es..? Si lo deseo compartir el archivo con otro usuario las imágenes no se podrán cargar...? Creo que esta macro es para nivel local. Me refiero a que otro usuario puede visualizar las imágenes cuando use este archivo. Quedo atento a sus comentarios. Gracias
disculpa una pregunta. Si cambio la ubicación del archivo tanto de la hoja como de las fotos no serviría ??
hola, al generar la macro me sale un error que menciona: ERROR EN EL METODO "UserPicture" de objeto "FillFormat". Como puedo solucionar ese problema?
Que tal, el programa me funciona, el único inconveniente es que solo me reconoce la imagen que reconoce un error.
me podría ayudar con una solución.
De antemano muchas gracias.
Hola alguien sabe como se puede hacer esto en multiples cuadros de imagen. sin que falle el macro. o mas bien para poner imagenes diferentes en cada cuadro.
Hola podrías ayudarme con el error "Error en el metodo 'UserPicture' de objeto 'fillformat'"... aparece cuando uso imágenes en un formulario... no muestra imagen solo me da error
Estimado sabes cómo poder abrir esa misma planilla Excel en otro computador y con las imágenes ya incorporadas, sin necesidad de tener la carpeta imágenes creadas ???
Hola, es muy útil tu vídeo, pero quería saber que debo agregar para poder insertar dos imágenes más. en otro vídeo muestras como insertar imágenes en una celda y no en esta imagen "foto" que insertaste en el primer vídeo. Muchas gracias!
Cordial saludo desde Colombia, muchas gracias por tu video, de verdad que es uno de los mejores videos que he visto. Quisiera saber si es posible una macro donde se pueda insertar y ocultar varias imagenes en diferentes celdas de acuerdo a valores buscados con la formula buscarv. Ejemplo: Que aparezcan las fotografias de jugadores de futbol de acuerdo al equipo seleccionado. Mucha gracias.
Hola. Eso lo haces con este mismo archivo, pero en lugar de una imagen, insertas 11.
buenas noches agregamos las imágenes como dices pero el código no funciona solo me funciona para la primera imagen para las demás no las muestra
Gracias Sergio por el vídeo, muy didáctico, tengo una consulta en mi base de datos que tengo en la pestaña buscar tengo una búsqueda que incluye un ComboBox, vinculada a una celda que tiene una lista desplegable con los nombres de las personas en mi base de datos, el caso es que cuando utilizo la celda con la lista desplegable funciona bien la búsqueda de la imagen, pero cuando uso el ComboBox, no hace la búsqueda de la imagen, se queda en la ultima buscada con la lista despegable, me puedes orientar con este inconveniente, uso el ComboBox, porque la búsqueda es mas rápida por las iniciales del nombre, pero la hacer la búsqueda con el Combo Box no funciona la Macro, gracias de antemano por tu respuesta.
compa primero agradecerte por tus conocimientos y compartirlos con nosotros tengos dos pregunta:
1. Como inserto los nombres de mis imágenes a la hoja de calculo como lo tiene en archivo buscarv?
2. Como haría para crear un ID en el mismo formulario sin que me mande error ya que he tenido inconveniente y me manda este mensaje :se ha detectado un nombre ambiguo:WorkSheet_Selection_Change
Te agradezco mi amigo que Dios te siga Bendiciendo espero tu pronta repuesta
Buenas tardes Eduardo, usted pudo resolver ese problema?
Si es así, sería tan amable de compartir la solución.
tome su like buen hombre
Gracias :-)
SOLO una pregunta amigo, puedo realizar esto en diferentes recuadros dentro de la misma hoja? para tener varias busquedas de imagenes distintas gracias
Claro, solo agrega más imágenes y en la tabla donde está el nombre de la imagen agregas más columnas.
No se puede ligar a las imagenes y nombres ya existentes en esa columna?
Como la macro busca los datos y la imagen sobre una misma línea, por eso tendrías que añadir una columna más para otra imagen.
excelente, quiero poner varios id uno debajo de otro y que me muestre por cada id una imagen distinta, todo en una misma hoja,como seria la linea de la macro ???
Muy bueno el video, me gustaría saber si sería posible agrandar la imagen al hacer un click y con otro click volver a su tamaño.
Buenas noches, alguien sabe porque al momento de imprimir, no sale la imagen que se busca con la macro?
¿Cómo se puede corregir el error que se presenta al insertar imágenes con una relación de aspecto en la que la foto o imagen sea "más alta que ancha"?. En este y en los otros tutoriales de este canal las imágenes empleadas son "horizontales" y al parecer las macros corren bien solo con este tipo de relación. Agradecido de antemano
pudiste solucionar ese error ?
Hola Sergio excelente tu aporte. Me puedes ayudar con algo. Si dentro de la carpeta imagen tengo otras carpetas con imágenes. ¿Como seria la macro? Estoy usando un formulario con 2 combobox y 1 image1 lo que quiero es que dependiendo de un combobox valla a la carpeta seleccionada dentro de la carpeta imagen y me cargue la imagen. Gracias
Hola. Solo usa la diagonal para indicar una subcarpeta:
Carpeta\otra-carpets
@@SergioAlejandroCampos Hola. Así me coge una carpeta en especifico y lo que quiero es coger la imagen de cualquiera de las carpetas dentro de la carpeta imagen. Ej tengo 20 o mas carpetas dentro de la carpeta imagen con nombres diferentes. ¿Como hago? Gracias por responderme
como puedo realizar lo mismo que has realizado pero que salgan en el mismo formulario dos o varias fotos distintas a la vez
Un saludo gracias
Hola, otra pregunta, aplique esta fórmula y me va bien, hice cambios y todo bien muestra tus emoticones,pero no llego a ver mis fotos, intente cambiando el formato a jpg en la formula pero no puedo, donde esta mi error? Gracias
Hola Sergio,una pregunta,puedo hacer funcionar que en el id pueda buscar un codigo de barra usando una lectoray en la hoja base pueda colocar el codigo que leo con la lectora? seria genial si pudiera hacer algo de eso, gracias
Hola quisiera saber usando el archivo base descargado y modificando segun las imagenes q necesito me funciona. pero al guardar una copia del mismo ya no se ejecuta las imagenes. Como se puede cambiar el nombre del archivo y que siga funcionando la macro??
Hola Sergio, Excelente aportación, y te agradezco.
Me aparace un error del metodo 'UserPicture' de objeto 'FillFormat'
Pero no encuentro el error, alguna recomendacion donde buscar?
Gracias
muy buenos dias excelente video y explicacion pero no funciona se realiza lo mismo que tu tienes y el error que sale es error en el metodo userpicturede objeto fillformat seria bueno la explicacion de elo gracias
Hola. Ya probaste el archivo de ejemplo?
HOLA
MUY BUENAS TARDES ! FIJATE QUE ME ENCANTO TU EXPLICACIÓN Y LA FUNCIÓN, PERO NO SE SI SE PUEDA, ME GUSTARÍA QUE SE PUDIERA APLICAR EL CAMBIO DE LA FOTO EN LA MISMA HOJA PERO EN VARIAS OCASIONES, CREES QUE ESO PUEDA SER POSIBLE, GRACIAS POR TU ATENCIÓN !!
Hola. A qué te refieres con varias ocasiones?
Hola Sergio, me imagino que se refiere, a repetirlo en varios cuadros que es mi caso. La idea es imprimir la base de datos con fotos y en vez de repetir cada código, ver la forma de imprimir cada tarjeta de empleado de manera simultanea. Pudiera ser 3 a la vez por lo menos.
Hola Sergio, gracias por compartir tus conocimientos, tengo un problema al cambiar el Id se genera el mensaje Error del método "UserPicture" de objeto "FillFormat" me orientarías en como se soluciuona
+Flavio Avalos Hola. Te falta crear la carpeta llamada emoticones, la que uso en el ejemplo. Ya descargaste los archivos de ejemplo?
@@SergioAlejandroCampos Tengo el mismo error uso office 2019 en w10.
No creo que sea un problema de ruta el error aparece es esta linea: ActiveSheet.Shapes("Foto").Fill.UserPinture (RutaImagen)
Hola, he usado tus distintos tutoriales, y me han sido de ayuda, es mi intención agradecerte y contribuir con un pequeño aporte, en tu pagina esta donar, pero me muestra MXN y aquí quede perdido, a cuanto equivale 1 MXN.
Hola Luis, te agradezco infinito. Te cuento que 19 pesos mexicanos (MXN) equivalen a 1 USD.
Sergio, esa macro esta hecha para tener guardadas las imágenes en una carpeta, sin embargo cuando se cambia el nombre de la carpeta o se mueve el archivo excel a otra pc, no funcionaría, ¿Cómo hacer para que las imágenes queden guardadas en el archivo excel?
buenas noche maestro, como realizo la magro para que me aparezca varias fotografías al mismo tiempo, gracias por su gentileza
Hola Sergio, sabes como se puede hacer lo mismo pero con OpenCalc de LibreOffice????
Saludos amigo realice el ejercicio del video y las imágenes no se me muestran las tengo en jpghice tal cual como se explica en el video y no se me muestran por que será?
Como hago para que me traiga la imagen pero además, la imagen tenga asignado un hipervínculo?
Apoyo me sale este error
Se ha Producido el error ´-2147024893 (80070003)´en tiempo de ejecuccion
Error en el metodo ¨UserPicture´de objeto ´FillFormat´
Hola existe una forma de que sean multiples imagenes (ejemplo: vehiculo, conductor, logo)
imagen 3:43
marca error en ActiveSheet.Shapes("Foto").Fill.UserPicture
hola Sergio soy de Colombia y tengo un mac pero no me funciona la macro se ha producido error 70 en tiempo de ejecución, y luego sale en amarillo esta parte ActiveSheet.Shapes("Foto").Fill.UserPicture (RutaArchivo & "\emoticones
o-photo.png") como lo arreglo ayúdame gracias
Como se debería realizar que en lugar de ver una fotografia, nos abriese un archivo de word que por ejemplo su nombre estuviese igualmente en una celda?
Yo puedo realizar este ejercicio pero con fotos reales? Y en este caso las nombro manualmente (una por una). Gracias.
Siempre y cuando especifiques la extensión correcta de las imágenes, sí puedes ser fotos reales.
Gracias! :)
Hola Sergio, muy bueno el tutorial, me sera de mucha ayuda para la base de datos que estoy armando en el Excel. consultarte si me puede apoyar para incorporar macros en mi proyecto. Es posible que me proporciones tu email para enviarte mi archivo y explicarte lo que necesito tu ayuda. Gracias.
Hola, si tengo varios campos en los que quiero que aparezcan fotos diferentes, ¿cómo sería?
me interesa con archivos de diferentes tipos, como png, jpg, jpeg, giff, din, etc etc. gracias
Yo quiero mandar llamar 4 fotos pero el código no funciona solo agregando más como la del ejemplo, te rellena con la de errores. AYUDAAAA
amigo tendrás algún punto de venta con buscador de imágenes
¿Y si tampoco esta la imagen que se llama No-Photo? Lo más recomendable es poner invisible el cuadro de imagen.
Buena anotación
excelente, tengo una inquietud como hago para que tome archivos jpg e intentando y no me da
Solo cambia la extensión, en lugar de PNG puedes usar JPG o JPEG
SALUDOS SERGIO Y CON GUSTO TE SALUDO DESDE LA PAZ ,BCS, MÉXICO EN EL AUTO LLENADO DE LA FORMA ME DESPLIEGA UNA VENTANA QUE EXISTE UN ERROR DE -2147024894(80070002 ERROR EN EL MÉTODO DE Userpicture de objeto fillformat TE AGRADECERÍA ME PUDIERAS APOYAR
Buenos dias, lo he probado con win 10 y no funciona, hay solución o me he equivocado
Hola. Tengo la macro
Sub SavePDF()
On Error Resume Next
mPath = ThisWorkbook.Path & "\Catálogo\"
If Dir(mPath, vbDirectory) = "" Then MkDir mPath
ruta = mPath
inicio = Range("T9").Value
fin = Range("T11").Value
For i = inicio To fin
Range("K5").FormulaR1C1 = i
nombre = Range("K5") & "-" & Range("K7") & "-" & Range("K11")
archivo = ruta & nombre & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=archivo, Quality:=xlQualityStandard
Next
Range("K5") = ""
End Sub
Básicamente imprime en PDF de acuerdo a un rango que yo le coloco (del código 1 al 5 por ejemplo) y lo guarda archivo por archivo en una carpeta que ya definí tambien. Apliqué este código para la imagen (es un catálogo de productos) igual que como lo muestras en este video; sin embargo, al momento de ejecutar la macro de guardado no hace los cambios y no coloca la imagen, no sé si por el tiempo de ejecución o porque se ejecuta esta macro y no la otra. Podrías ayudarme a que jale la imagen cuando guarda y si es posible que cree un sólo archivo en PDF (del total de productos)? Sino, con que jale la imagen para guardar archivo por archivo sería suficiente.
Muchas gracias y disculpa la molestia.
No me funciona, y no se que puede ser...
=( no queda, me dice que tiene un error -2147024894 (80070002) Error en el método UserPicture de objeto FillFormat… será que me doy por vencida?
No, hiciste pruebas con el archivo y las imágenes de ejemplo
tengo el mismo problema :c
ActiveSheet.Shapes("Foto").Fill.UserPicture (RutaImagen) me dice q aca esta el error :/
@@manuelvalderrama5642 Me sale el mismo error
@@ilcheaaronparkcardenas4994 RutaImagen = .Value & ".jpg"
prueben con esto solo agregen la parte del tipo de imagen cocatenado despues del value; a mi me funciono. Saludos.
Hola. me sale un error ya revise varias beses y realice paso a paso el procedimiento, no me funciono
+Helvex By Designers Hola. Descargaste las imágenes de ejemplo y la carpeta tiene el nombre de Emoticones?
Si, en mi caso se llama "productos" , no se si la dimencio o el tamaño afecta
+Helvex By Designers El tamaño no debe afectar. El ejemplo descargado te funciona antes de cambiarle el nombre a la carpeta?
no puedo :( me aparece error 438 en tiempo de ejecución :(
Soporta 27 mil imagenes
Vale vrrrrrgaaa, no me sale