Como generar código qr en Excel

[@enriqueeescorpion]

HOLA si aun estas viendo este video tuyo esta genial parece simple pero e tenido un detalle espero me puedas ayudar en la macro sale este error en este codigo ___"Set QR = ActiveSheet.Pictures.Insert(Ruta)"

[@jmmolero2]

Tengo el mismo problema

[@INVENTRONICA]

Amigo modifica la URL asi: Link = "chart.apis.google.com/chart?cht=qr&chs=300x300&chl=" con esto solucionas

[@INVENTRONICA]

@@jmmolero2 Amigo modifica la URL asi: Link = "chart.apis.google.com/chart?cht=qr&chs=300x300&chl=" con esto solucionas

[@hectormontes123]

#If VBA7 And Win64 Then Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _ Alias "URLDownloadToFileA" ( _ ByVal pCaller As LongPtr, _ ByVal szURL As String, _ ByVal szFileName As String, _ ByVal dwReserved As LongPtr, _ ByVal lpfnCB As LongPtr _ ) As Long #Else #End If Sub CrearQRMasivo() Dim n&, i& LimpiarImagenes With wGenerador n = .Range("A" & Rows.Count).End(xlUp).Row For i = 4 To n CrearQRIndividual .Range("A" & i) Next End With End Sub Sub CrearQRIndividual(Valor As Range) Dim Link$, Ruta$, QR As Object Dim lado&, izqui&, nTop& 'Descargo el código QR If Valor.Value = Empty Then Exit Sub End If Link = "quickchart.io/qr?text=" & Valor.Value & "&chld=H|0" Ruta = ThisWorkbook.Path & "\chart.png" URLDownloadToFile 0, Link, Ruta, 0, 0 '----------------- 'Ingreso la imagen Set QR = ActiveSheet.Pictures.Insert(Ruta) Kill Ruta With wGenerador nTop = .Range("B" & Valor.Row).Top lado = .Range("B" & Valor.Row).Width izqui = .Range("B" & Valor.Row).Left With QR .Top = nTop .Width = lado .Left = izqui End With .Range("B" & Valor.Row).RowHeight = lado End With '----------------- End Sub Sub LimpiarImagenes() Dim imagen As Picture For Each imagen In ActiveSheet.Pictures imagen.Delete Next wGenerador.Range("A4", "A" & Rows.Count).RowHeight = wGenerador.Range("A1").RowHeight End Sub

[@almerbricenogarcia9882]

TE HAZ GANADO MIS RESPETOS POR TU TRABAJO Y PACIENCIA AL EXPLICAR... Y GANASTE UN SUSCRIPTOR MAS.. GRACIAS POR LA INFORMACIÓN

[@joseeduardo4076]

La semana que viene empezaremos hacer trabajos en Excel. Gracias por tus videos, tus tips y consejos que compartes con nosotros

[@jersi2566]

Hola Miguel Me suscribí ahorita, pero llevo tiempo viendo los vídeos, fundamentalmente sobre Excel, siempre lo he usado, pero desde hace unos meses que llevo viendo los tutoriales, es que realmente estoy comenzando a aprender Excel. En un vídeo que mostraba como hacer un formulario para llenar una base de datos, con Macros y VBA. Me gustaría, además de esos datos, saber el código para fechas y para poner el Tiempo, ejemplo: el Tiempo que realiza un deportista en sus diferentes eventos y la fecha en que lo realizó. Muchas Gracias por tus excelentes vídeos

[@marcoantoniovelazquez742]

excelente video y el complemento donde hacen referencia a como solucionar los errores estuvo genial... ya lo probe y funciona bastante bien. solo tengo una duda, hasta cuantos caracteres soporta el QR? me pueden comentar por favor

[@lasaventurasdel1036]

Felicidades me sirvió mucho si viene con error pero será por mi compu viejita con otros usuarios pude resolverlo muchas gracias y sigue así explicas muy bien éxito

[@60l0s0]

Que tal todos! me parece una excelente aportación del Tío solo que igual que muchos tengo el problema del error de compilación indicando que no se ha definido Sub o Function y no he podido resolverlo, ya compare incluso el codigo del video contra el que baje de la liga y no encuentro el error... TIO, ojala y me puedas ayudar. gracias y saludos a Todos!!

[@medranoautomotoresyneumati3004]

#If VBA7 And Win64 Then Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _ Alias "URLDownloadToFileA" ( _ ByVal pCaller As LongPtr, _ ByVal szURL As String, _ ByVal szFileName As String, _ ByVal dwReserved As LongPtr, _ ByVal lpfnCB As LongPtr _ ) As Long #Else #End If Sub CrearQRMasivo() Dim n&, i& LimpiarImagenes With wGenerador n = .Range("A" & Rows.Count).End(xlUp).Row For i = 4 To n CrearQRIndividual .Range("A" & i) Next End With End Sub Sub CrearQRIndividual(Valor As Range) Dim Link$, Ruta$, QR As Object Dim lado&, izqui&, nTop& 'Descargo el código QR If Valor.Value = Empty Then Exit Sub End If Link = "chart.apis.google.com/chart?cht=qr&chs=300x300&chl" & Valor.Value & "&chld=H|0" Ruta = ThisWorkbook.Path & "\chart.png" URLDownloadToFile 0, Link, Ruta, 0, 0 '----------------- 'Ingreso la imagen Set QR = ActiveSheet.Pictures.Insert(Ruta) Kill Ruta With wGenerador nTop = .Range("B" & Valor.Row).Top lado = .Range("B" & Valor.Row).Width izqui = .Range("B" & Valor.Row).Left With QR .Top = nTop .Width = lado .Left = izqui End With .Range("B" & Valor.Row).RowHeight = lado End With '----------------- End Sub Sub LimpiarImagenes() Dim imagen As Picture For Each imagen In ActiveSheet.Pictures imagen.Delete Next wGenerador.Range("A4", "A" & Rows.Count).RowHeight = wGenerador.Range("A1").RowHeight End Sub

[@iankarlosarosemena5071]

Hola , me gusto mucho el video de generar QR, y me gustaria saber como se puede habilitar para una base de datos mas grandes, ya sea lotes, fechas de expiración, entre otros.

[@Jaimadas]

Muchas gracias por el video, necesitaria un generador de QR como este... pero me interesaria que.... una vez entro en el QR que pudiese pinchar sobre un enlace que me lleve a google drive y poder seleccionar un archivo en concreto. Eso seria muy interesante. ¿Como podria hacerlo?

[@Momo-dl6dx]

Gracias por el video, me ayuda monton. Dos preguntas, necesito usar mas de dos celdas de informacion para generar mi QR code, donde agrego esta informacion. Y deseo anadir un tamano especifico al QR code. (1*1 cm) como hago esto? Mil gracias!

[@hectorsandoval9873]

Hola buenas tardes me gusto mucho tu video solo tengo una duda si quisiera seleccionar varias columnas para un solo codigo qr, se podria?????

[@RosmeryLizArotaipeQuispe]

Gracias tio tech, me ayudo C:

[@MolitaliaHuanuco]

Tio Tech eres un capo.

[@alejandrosaborido8188]

Buenas noches, tengo dos consultas, se pueden generar QR uno por hoja? y la otra es si se actualizan cuando hacemos cambios en las hojas? desde ya muchas gracias

[@frida959]

Si me funciono dude gracias, solo que seguí el procedimiento que estaba en el link donde descargas el código. Mucho ojo en eso. Gracias :)

[@franciscobalam5348]

disculpa veo que a ti te funcion a mi marca un error en URLDownloadToFile de la fila URLDownloadToFile 0, Enlace, Ruta, 0, 0 como lo solucionaste

[@pitetecnologia]

@@franciscobalam5348 IGUAL ME SALE ESTE ERROR AQUI URLDownloadToFile 0, Link, Ruta, 0, 0 ERROR DE COMPILACION COMO LO SOLUCIONASTE

[@hpplottersplotter5927]

Hola, Tio ya corregi el codigo y esta trabajando sin problemas, gracias por tu aporte y estoy en espera del siguiente video, saludos.......

[@AlexDuranayerve]

Pasame porfa el codigo corregido no puedo generar los Qr con el codfigo de la descripcion porq ne sale un error

[@cristinabolanos6636]

Si por favor, apóyanos, a mi me sale error en : Set QR = ActiveSheet.Pictures(Ruta)

[@maguuui123]

Muy buen video!!! Como podría hacer para que el codigo QR contenga una imagen?

[@milordargentina]

Formidable tio. me va a ser muy util para un inventario. gracias

[@elkineduardorojaspena3993]

No mas con este vídeo te conozco y eres muy bueno para excel gracias por compartir el conocimiento

[@xAmazing]

Pueden probar con el codigo que modifique un poco, ya me funciono: Tambien modifique las filas de donde obtenia los datos y a la fila donde colocaba el qr. #If VBA7 And Win64 Then Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _ Alias "URLDownloadToFileA" ( _ ByVal pCaller As LongPtr, _ ByVal szURL As String, _ ByVal szFileName As String, _ ByVal dwReserved As LongPtr, _ ByVal lpfnCB As LongPtr _ ) As Long #Else #End If Sub CrearQRMasivo() Dim n&, i& LimpiarImagenes With wGenerador n = .Range("F" & Rows.Count).End(xlUp).Row For i = 2 To n CrearQRIndividual .Range("F" & i) Next End With End Sub Sub CrearQRIndividual(Valor As Range) Dim Link$, Ruta$, QR As Object Dim lado&, izqui&, nTop& 'Descargo el código QR If Valor.Value = Empty Then Exit Sub End If Link = "chart.googleapis.com/chart?cht=qr&chs=500x500&chl=" & Valor.Value Ruta = ThisWorkbook.Path & "\chart.png" URLDownloadToFile 0, Link, Ruta, 0, 0 '----------------- 'Ingreso la imagen Set QR = ActiveSheet.Pictures.Insert(Ruta) Kill Ruta With wGenerador nTop = .Range("G" & Valor.Row).Top lado = .Range("G" & Valor.Row).Width izqui = .Range("G" & Valor.Row).Left With QR .Top = nTop .Width = lado .Left = izqui End With .Range("G" & Valor.Row).RowHeight = lado End With '----------------- End Sub Sub LimpiarImagenes() Dim imagen As Picture For Each imagen In ActiveSheet.Pictures imagen.Delete Next wGenerador.Range("F2", "F" & Rows.Count).RowHeight = wGenerador.Range("A1").RowHeight End Sub

[@baba_hiphip]

Me salvaste la vida, muchísimas gracias 🤙

[@tatianagonzalez3127]

GRACIAS, ME FUNCIONO!

[@brendaacosta1473]

Me envía un error en el apartado del Sub CrearQRIndividual (Valor As Range) me dice que no se ha definido sub o function

[@u.e.m.juandediosguanche]

Buenos días Miguel Excelente tus vídeos en el caso de que queramos tomar datos de varias celdas por Ejemplo en una columna esta los nombres en otras los apellidos en otra el grado se puede configurar en el archivo que dejaste en el link tendríamos que colocar la cadena de donde están los datos o hay una manera mas sencilla de hacer gracias.

[@EnriqueFlores-x5h]

gracias por el aporte

[@gilbertgonzalez3088]

Hola, tengo la siguiente pregunta. Es posible generar el codigo QR con diferentes campos? En el video solo muestra un dato que seria el Nombre pero que pasa si deseo generarlo con Nombre y fecha de nacimiento. DEbo tener todos esos campos o datos en una misma celda? Gracias

[@eusse1000]

Gracias, excelentísimo video. Quisiera preguntar, si se puede exportar el código QR generado y en que formato seria?. la exportación seria para Photoshop. Agradecería la respuesta. Saludos

[@storkperu1731]

Tio Tech. de verdad sos lo maximo con tus conocimiento, una duda, como podríamos hacer para COPIAR ese código qr a una hoja nueva talvez con la función buscarv pero la idea es que quiero generar una tarjeta de idetntificación. y que aparezca el codigo QR

[@danezaisabelmejia4358]

Muchas gracias por tus videos nos ayudan mucho en el trabajo. Te escribo para que me puedas ayudar, tengo que transcribir muchas facturas de manera manual a excel, ahora me baje una aplicación en mi celular para escanear los códigos QR que tienen las facturas, mi pregunta es como puedo esta información proporcionada por el escaneo Qr convertir a excel? Nose si se puede hacer eso.

[@luisaruedav8082]

Interesante , alguien ha podido hacer esto posible?

[@lalobiker796]

@@luisaruedav8082 Sí, yo lo hice

[@eduardorafaeltrujillocoron9596]

Muy bueno muchas gracias

[@thebroki6684]

MUCHAS GRACIAS MASTER!!!!!!

[@yalvarezd]

gracias!, funcionó perfecto!

[@eddiekaka1452]

Excelente.. Si imprimo el codigo *qr* generado ¿Como puedo hacer para leerlo con la web cam y q genere un caracter especial ejemplo *✅* junto a la celda q contiene el texto relacionado al *qr* ? Gracias

[@natalyromerodeantonio479]

Hola quisiera que esté qr me sirviera para un inventario de un negocio de calzado en vez de usar el código de barras que recomendación me das para que la pistola de código de barras los lea.... Y los facture ....

[@benitezbenitez]

hola se puede generar un codigo qr con varias columnas? porq alli generar el codigo qr con la columna A, pero me gustaria saber si tengo informacion en B , C , D podria hacer un codigo qr con la informacion que hay en dichas columnas?

[@armandotuviaje7188]

Impresionante, muchas Gracias!

[@joshuayt649]

Gracias por el video justo este estava buscando

Veo que todos han tenido el mismo problema y yo no soy la excepción, pero gracias por el aporte!!

[@brunoferreya8704]

Hola, ¡gracias por este material! ¿Cómo hago para que los QR no se actualicen todos, cada vez que agrego una nueva celda de nombre?

[@juliocesargavanchobarrient4772]

Estimado tio TECH deberias ayudar a tu comunidad con el error en el codigo que NO FUNCIONA, la ruta es para buscar la imagen CHART.PNG Ud. la tiene o en todo caso que imagen es??. Gracias por responder TIO TECH

[@Pedro-ij4bu]

Solucionaste el inconveniente? A mi también me aparece

[@johnporras7840]

Que buen video algo más que aprendo gracias tío tech

[@augustomaximo4891]

siempre innovando, gracias....

[@LuisAlvarez-zq3nd]

Tio tech usted es un crack

[@luisrojas6075]

Para quienes tienen el error 1004 en el código hay que cambiar Set QR = ActiveSheet.Pictures.Insert(Ruta). Hay que colocar Set QR = ActiveSheet.Pictures.Insert(Link) y borrar “Kill Ruta”

[@INVENTRONICA]

Amigo modifica la URL asi: Link = "chart.apis.google.com/chart?cht=qr&chs=300x300&chl=" con esto solucionas

[@hectormontes123]

#If VBA7 And Win64 Then Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _ Alias "URLDownloadToFileA" ( _ ByVal pCaller As LongPtr, _ ByVal szURL As String, _ ByVal szFileName As String, _ ByVal dwReserved As LongPtr, _ ByVal lpfnCB As LongPtr _ ) As Long #Else #End If Sub CrearQRMasivo() Dim n&, i& LimpiarImagenes With wGenerador n = .Range("A" & Rows.Count).End(xlUp).Row For i = 4 To n CrearQRIndividual .Range("A" & i) Next End With End Sub Sub CrearQRIndividual(Valor As Range) Dim Link$, Ruta$, QR As Object Dim lado&, izqui&, nTop& 'Descargo el código QR If Valor.Value = Empty Then Exit Sub End If Link = "quickchart.io/qr?text=" & Valor.Value & "&chld=H|0" Ruta = ThisWorkbook.Path & "\chart.png" URLDownloadToFile 0, Link, Ruta, 0, 0 '----------------- 'Ingreso la imagen Set QR = ActiveSheet.Pictures.Insert(Ruta) Kill Ruta With wGenerador nTop = .Range("B" & Valor.Row).Top lado = .Range("B" & Valor.Row).Width izqui = .Range("B" & Valor.Row).Left With QR .Top = nTop .Width = lado .Left = izqui End With .Range("B" & Valor.Row).RowHeight = lado End With '----------------- End Sub Sub LimpiarImagenes() Dim imagen As Picture For Each imagen In ActiveSheet.Pictures imagen.Delete Next wGenerador.Range("A4", "A" & Rows.Count).RowHeight = wGenerador.Range("A1").RowHeight End Sub

[@milordargentina]

una consulta, si tengo 6 o mas columnas que deseo generar el QR, donde modifico la macro? Ej columna A nombre, Columna B direccion, columna C mail, etc, etc. Gracias

[@brunotorresguillen2841]

Hola. Gracias por la información. Podrías indicarme por qué al correr la macro se produce el error 1004 en tiempo de ejecución? Indica que no es posible obtener la propiedad Insert de la clase Pictures. "Set QR = ActiveSheet.Pictures.Insert(Ruta)"

[@agustinemiliotorresdiaz466]

bro pudiste solucionarlo?

[@analistait]

@@agustinemiliotorresdiaz466 Tengo ese mismo problema

[@tatianagonzalez3127]

@@agustinemiliotorresdiaz466 TENGO EL MISMO PROBLEMA, ALGUIEN SABE COMO SOLUCIONARLO

[@agustinemiliotorresdiaz466]

@@tatianagonzalez3127 sii

[@agustinemiliotorresdiaz466]

@@tatianagonzalez3127 en un comentario más abajo alguien puso que edito la macro y le funcionaba, y realmente funciona jajaja

[@julioc.arguelles9619]

Hola, Oye está muy bien esto pero yo necesito generar un codigo QR a partir de un formato que abarca toda una hoja de Excel, es decir, ya tengo un formato que abarca toda una hoja tamaño carta, y requiero generar un Código QR para que cuando sea leído se abra el mismo formato con todo y los datos con los que fué llenado, no sé si me explique bien, de antemano muchas gracias.

[@luisalbertorodriguez7321]

Hola tío, muchas gracias funciona genial Solo tengo una duda , puedo hacer que el código QR , tenga contraseña o que ciertos usuarios lo tengan ?

[@dr.sandravaliente]

Gracias. Pregunta cómo generar un control de entradas y salidas de empleados con registro diario?

[@escuadrondeleones9712]

Una consulta si copio el código QR que se genero en un Word va a seguir funcionando?

[@joseluischalco1957]

Hola queria saber si se puede ralizar en el excel de office 2016, por que la celda me toma como valor

[@elaventureroperuano8455]

Puedes hacer de Apis actualizadas al 2024?

[@AiniKoudelka]

Me funciono, muchas gracias

[@jairantonioariasbecerra5930]

gracias por tus concejos y recomendaciones

[@azut3031]

Hola me aparece al final se esperaba: fin de la instrucción. Cómo lo puedo corregir. Gracias muy interesante

[@millaextra5433]

Estoy igual.

[@santiagofuentes724]

consulta: el programa solo sirve para windows?

[@marcosarenascuaxilotl6960]

Hola Miguel (Tío)... con este código se puede generar los qr en una macbook?

[@briancristhianaponte1742]

hola.... el mismo pero con boton dentro de un form para creacion de forma masiva?

[@nezmultiservicios7773]

Muchas gracias por el tuto, lamento informar que me aparecio error y decidi hacerlo por otro medio

[@Pachon0812]

Excelente video! Pudiera usar la macro para una URL de one drive y que descargue un documento pdf?

[@luiseduardocedillo4953]

Buenas tardes, como puedo generar QR masivos con mas de una celda de informacion? en columna A nombre y comluna B Apellido? Saludos y gracias!

[@kameka255]

Buenas noches, presenta errores, nos ayudaría mucho uno actualizado donde no tengas observaciones. Gracias por tu aporte!

[@jjcadette]

te felicito

[@ricardovelazquez4455]

Genial el video ¿Se puede hacer una lista desplegable para sólo mostrar un QR?

[@SoyGeovannyJimenez]

UTILIZA FILTROS EN LOS NOMBRES ASI TE FILTRA DE MANERA INDIVIDUAL CON TODOS LOS DETALLLES DEL SELECCIONADO

[@albertzaldivar6595]

HOLA MUCHAS GRACIAS!! SOLO QUE ME DA UN ERROR: 👉 Set QR = ActiveSheet.Pictures.Insert(Ruta)

[@donpascu]

se pueden generar de ligas de internet, es correcto?

[@luisrogeliorodriguezmendoz6776]

Pregunta hay que borrar o agregar algo al código?????

[@carlosolvera3286]

Buenas tardes Miguel, gusto en saludarte, te agradezco mucho el apoyo, me aparece el error "1004", pero te soy sincero y no sé como corregirlo, me podrás ayudar a resolver, de antemano gracias!

[@reinaldocasas4362]

me pasa lo mismo

[@fabiovelez1]

Cómo estás, genial el tutorial, gracias por el aporte, seguí todos los pasos pero al final me sale otro error, ser QR = activesheet.pictures.insert(ruta)

[@arturodejesusmaliachibanue2443]

ve el comentario de Pedro Molina aqui en estas preguntas y respuestas, yo lo sigui y me resulto bien

[@logisticaoperaciones4127]

Buen día, muchas gracias por tu vídeo es de gran ayuda, pero en la creación de mi código QR en la información inclui la fecha pero al leer el código aparece en número, me podrías asesorar que le debo modificar, muchas gracias

[@martinboari5345]

Muy bueno. Muchas gracias. Consulta, el código vence en algún momento ?

[@cesarquispe8629]

si quiero que genere links de paginas basta que en la fila de los "nombres" ponga el link?

[@improvingtelefonica4695]

El video esta muy bien explicado, lamentablemente el link al generador del código no funciona ¿hay alguna alternativa?

[@analauraaldamaleal5132]

hola, un codigo qr se puede duplicar? es decir si yo lo genero y asigno a un numero telefonico, como lo respaldo o me aseguro que nadie mas tenga exacatmente el mismo

[@franciscomoreno8284]

Si lo k kiero k genere es los datos combinados de toda una fila???

[@TheAmarchant]

Debes usar la función concatenar y hacer una cadena a la que luego harás referencia.

[@marxcossiopariona3895]

GRACIAS . SI PUDERA PONER 1O LIKES LO HARIA

[@diegogamerjuega]

hola me marca error aqui Set QR = ActiveSheet.Pictures.Insert(Ruta)

[@carlosalbertomenaflores4758]

IGUALMENTE

[@danyderie6236]

Buen día, esta macro sirve para Office 2007?

[@AiniKoudelka]

Tendrás de códigos de barras normales?

[@juanjoseasturiano755]

Ante todo darte las gracias por compartir tus conocimientos y tiempo. He seguido el vídeo con todas sus indicaciones y después de copiar el código en el módulo y hacer las oportunas modificaciones me aparece el siguiente error. #If VBA7 And Win32 Then desde esta línea --> Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _ Alias "URLDownloadToFileA" ( _ ByVal pCaller As LongPtr, _ ByVal szURL As String, _ ByVal szFileName As String, _ ByVal dwReserved As LongPtr, _ ByVal lpfnCB As LongPtr _ y hasta esta, todo --> ) As Long está en rojo #Else

[@clandelpie2505]

Puedo poner una imagen dentro del codigo?

[@Pablo-fk5bd]

Hola tío tech generador QR me serviría para poder hacer mi lista de precios de restaurante así en excel ....? Algo virtual si......?

[@midianraquelarresperez4375]

hola, muchas gracias por la informacion, ya lei comentarios y edite lo que se tenia que editar pero.,... me manda error 1004 Set QR = ActiveSheet.Pictures.Insert(Ruta) Me podrias ayduar con ese error, ya tengo rato intentando solucionarlo Gracias, quedo atenta

[@niemyer19]

excelente video, perotengo problemas con el modulo en el apartado "ingreso la imagen" no se como sulucionarlo

[@NOALNOM]

Excelente gracias por compartir! ¿Se podría generar el código QR pero a partir de "sumar" varios campos de texto? Gracias y saludos!

[@lupitachaidez7018]

Hola, tal vez te sirva la función CONCATENAR para que puedas unir varias columnas de texto alfanumérico

[@javiereperezc]

Para unir varia columnas, colócate en una columna limpia = TOMA COLUMNA (&) TOMA SEGUNDA COLUMNA. SI quieres generar espacios &" "&

[@raulcastrojimenez3581]

buenas tardes me podrían ayudar me aprese un error Ingreso de la Imagen y Kill Ruta me aparece en amarillo que puedo hacer para ya poder generar mis QR

[@Ivanno610]

Ya resolvi el error Set QR = ActiveSheet.Pictures.Insert(Ruta)

[@carlosordonez467]

dime como lo has hechoo porfaa

[@TheMastaReal]

Será que puedo hacer un código que direccione a mi página de facebook?

[@dariocaycho114]

Si es posible

[@eoce1977]

Gracias por el video, queria saber por que me da error en el Set QR = ActiveSheet.Pictures.Insert(Ruta), No se Puede Obtener la propiedad Insert de la clase Picture, Gracias de Antemano.

[@jesusgodinez9891]

Tengo el mismo error. Supiste solucionarlo?

[@oswaldogranados4554]

el error te da por que no se bajo ninguna image en la ruta donde se encuentra el libro de excel guardado y el codigo esta incompleto hay una linea que dice Link = "chart.apis.google.com/chart?ch..." & Valor.Value & "&chld=H|0" y tiene que ser sustituido por Link = "chart.apis.google.com/chart?cht=qr&chs=500x500&chl=" & Valor.Value & "&chld=H|0" para que te genere el código con una api de Google y baje una imagen en la misma ruta donde tienes ubicado el libro de excel

[@alifabian4444]

Buen dia...obtiviste respuesta a ese error tbm a mi me lo marca

[@INVENTRONICA]

Amigo modifica la URL asi: Link = "chart.apis.google.com/chart?cht=qr&chs=300x300&chl=" con esto solucionas

[@edgarcorona5641]

Hola buenas tardes, pudieron resolver este tema?

[@ruiz2487]

Puedo generar un solo código qr para una lista? Ejemplo una lista de códigos de barra

[@AngelGonzalez-cf9yp]

Muy bueno y facil de usar. Pero como podria generar con tu codigo el sacn para una WIFI? Muchas gracias

[@JesusAbrahamCabrera-mn5qy]

Buen dia excelente tutorial, pero me marca error en esta linea Set QR = ActiveSheet.Pictures.Insert(Ruta)

[@josepalma6173]

Hola, muchas gracias por la información. Tengo una consulta, me marca un error en el "URLDownloadToFile", cómo lo podría solucionar?

[@PonyLatino]

Hay forma de que los QR se guarden en el pc de forma automática ?con el nombre tomado de una celda ?

[@MOSTACHIOBOY]

Buenas tardes Miguel, estoy comenzando a usar cada dia mas el excel, seguramente me hace mucha practica para dominar algunos conceptos. Estoy tratando de generar codigos QR, y siguiendo al pie de la letra tus tutorial, me manda un error que transcribo Erro de complilacion Una clausula #Elself,#Else o #endlf debe estar precedida de una clausula #If, que significa?

[@victordiaz2199]

Hola, genial video pero me surge una duda, si quisiera tomar los valores desde B3 a K3 y en J3 generar el codigo QR pero que este este en otra hoja como lo podria hacer?

[@miicelltechnosv7395]

Saludos, no se si logró hacerlo. Pero entiendo el mismo problema que necesito para generar el QR. Creo lo ideal es cambiar el codigo y el desplazamiento por lectura en las columnas como lo hace con las filas. Eso seria ir sumando los datos al generador de QR. Ya que si leemos más y vemos mas ejemplos de otros que hacen generador de QR's para excel, se basan más en recolectar el registro completo o en partes de la BD's creada en la hoja de trabajo, igualmente puede ser combinada de otros datos de otras hojas, como lo menciona.

[@cecprasca]

Hola Miguel... Soy suscriptor de tu canal y me parece excelente tu expmicación... He realizado cuidadosamente los pasos para generar QR... Pero me apareció primero un error que solucioné guardando el archivo directo en mi pc y no en la nube... Y ahora el error que me acusa es "kill ruta".. Ai si ya no sé que es, puedes ayudarme, por favor y gracias...

[@nairoandrescuadradolara5445]

Lo solucionaste?

[@MrCparedesb]

lo solucionaste?

[@manuelenriquedelgadolatorr3429]

Buen día Gracias por su orientación. Al ejecutar el código aparece el siguiente error "No se puede obtener la propiedad Insert de la clase Picture", cómo lo puedo corregir?. Gracias

[@diegofelipehernandezmunoz6104]

Hola, como lo resolviste? me ayudas. muchas gracias

[@edwinsolorzano5314]

Hola buenas tardes ... al ejecurar la macro el depuerador arroja un error en la liena: Set QR = ActiveSheet.Pictures.Insert(Ruta), que debo hacer

[@manuelalfredo69]

Buen día, amigo. Me dice este error "Error de compilación. Se esperaba: fin de la instrucción".

[@MARIOARDILAGARZON]

me aparece lo mismo, ya solucionaste?? cuentame como lo soluionaste

[@manuelalfredo69]

@@MARIOARDILAGARZON Buenas tardes, Mario. Al final conseguí otra manera aquí en KZbin que me sirvió, pero tengo que buscar el link y pasártelo.

[@manuelalfredo69]

@@MARIOARDILAGARZON Este es el link y está bien explicado kzbin.info/www/bejne/kJ3RXmelmrCon5o

[@ferneyrestrepo3457]

Buen día miguel Estoy teniendo problema al generar el código QR en esta linea del código Set QR = ActiveSheet.Pictures.Insert(Ruta)

[@marcpsgutierrez8845]

Muy buenos videos estoy aprendiendo con ellos!! tengo un inconveniente hice exactamente lo que decis en el video y me arroja un error al generar el QR, me dice "Error de compilacion" "No se ha definido Sub o Function" al aceptar me resalta en amarillo.. Sub CrearQRIndividual(Valor As Range) Que puedo hacer para solucionarlo? del codigo no toque absolutamente nada

[@sabrinasaltos8844]

Y también tengo el mismo problema

[@ExcelforAccountants]

@@sabrinasaltos8844 Y YO!!!!