Como generar código qr en Excel
ฝัง
- เผยแพร่เมื่อ 24 ก.พ. 2020
- Aprende a crear un código QR en Excel fácil y rápido. genera códigos Qr en Excel 2021.
#CódigoQR #QR #ExcelQR
✅ Descarga el código:
eltiotech.com/codigos-qr-en-e...
📢 Suscríbete a mi otro canal:
bit.ly/MiguelVela
💌 Únete a nuestro canal de Telegram:
t.me/eltiotech (chat, noticias y más)
🤗 Visita nuestras redes sociales:
Sitio web: www.tiotech.net
www.eltiotech.com
Facebook: / eltiotechoficial
Instagram: / luismiguelvelavela
🟩 Grupo de ayuda Excel:
/ excelayudas
🟦 Grupo de ayuda Word:
/ 2954410744838915
La semana que viene empezaremos hacer trabajos en Excel. Gracias por tus videos, tus tips y consejos que compartes con nosotros
TE HAZ GANADO MIS RESPETOS POR TU TRABAJO Y PACIENCIA AL EXPLICAR... Y GANASTE UN SUSCRIPTOR MAS.. GRACIAS POR LA INFORMACIÓN
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
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
Que buen video algo más que aprendo gracias tío tech
gracias por tus concejos y recomendaciones
gracias!, funcionó perfecto!
Gracias por el video justo este estava buscando
Formidable tio. me va a ser muy util para un inventario. gracias
Tio tech usted es un crack
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
Me funciono, muchas gracias
siempre innovando, gracias....
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.
MUCHAS GRACIAS MASTER!!!!!!
Impresionante, muchas Gracias!
Tio Tech eres un capo.
Muy bueno muchas gracias
No mas con este vídeo te conozco y eres muy bueno para excel gracias por compartir el conocimiento
Veo que todos han tenido el mismo problema y yo no soy la excepción, pero gracias por el aporte!!
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.
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
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?
Muy buen video!!! Como podría hacer para que el codigo QR contenga una imagen?
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 ?
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!
Hola, Tio ya corregi el codigo y esta trabajando sin problemas, gracias por tu aporte y estoy en espera del siguiente video, saludos.......
Pasame porfa el codigo corregido no puedo generar los Qr con el codfigo de la descripcion porq ne sale un error
Si por favor, apóyanos, a mi me sale error en :
Set QR = ActiveSheet.Pictures(Ruta)
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
Hola buenas tardes me gusto mucho tu video solo tengo una duda si quisiera seleccionar varias columnas para un solo codigo qr, se podria?????
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
te felicito
Muy bueno. Muchas gracias. Consulta, el código vence en algún momento ?
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
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
Excelente video! Pudiera usar la macro para una URL de one drive y que descargue un documento pdf?
Gracias tio tech, me ayudo C:
Genial;
Genial el video ¿Se puede hacer una lista desplegable para sólo mostrar un QR?
UTILIZA FILTROS EN LOS NOMBRES ASI TE FILTRA DE MANERA INDIVIDUAL CON TODOS LOS DETALLLES DEL SELECCIONADO
Hola, me gusto tu video, pero al correrlo me arroja un error al correr macro
este es el error
'Ingreso la imagen
Set QR = ActiveSheet.Pictures.Insert(Ruta) como puedo solucionarlo estoy usando office 2021
Amigo modifica la URL asi: Link = "chart.apis.google.com/chart?cht=qr&chs=300x300&chl=" con esto solucionas
Cómo lo solucionaste?
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)"
Tengo el mismo problema
Amigo modifica la URL asi: Link = "chart.apis.google.com/chart?cht=qr&chs=300x300&chl=" con esto solucionas
@@jmmolero2 Amigo modifica la URL asi: Link = "chart.apis.google.com/chart?cht=qr&chs=300x300&chl=" con esto solucionas
#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
Hola Miguel (Tío)... con este código se puede generar los qr en una macbook?
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?
Deberías poner en tu video los errores que te reclaman y el código fuente en descarga así como en la narración. gracias.
Gracias. Pregunta cómo generar un control de entradas y salidas de empleados con registro diario?
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 :)
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
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.
Interesante , alguien ha podido hacer esto posible?
@@luisaruedav8082 Sí, yo lo hice
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!!
#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
Excelente gracias por compartir! ¿Se podría generar el código QR pero a partir de "sumar" varios campos de texto? Gracias y saludos!
Hola, tal vez te sirva la función CONCATENAR para que puedas unir varias columnas de texto alfanumérico
Para unir varia columnas, colócate en una columna limpia = TOMA COLUMNA (&) TOMA SEGUNDA COLUMNA.
SI quieres generar espacios &" "&
Hola tío tech generador QR me serviría para poder hacer mi lista de precios de restaurante así en excel ....? Algo virtual si......?
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
Man, por favor deja Link para donaciones. Paypal por ejemplo.
fijate que el mismo error que a otros amigos me aparece, ya sustituí la línea que escribes y mi ordenador si está conectada a INTERNET pero sigue apareciendo el mismo error, nos podrías colaborar muy amable, saludos,
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)
ve el comentario de Pedro Molina aqui en estas preguntas y respuestas, yo lo sigui y me resulto bien
Muy bueno y facil de usar. Pero como podria generar con tu codigo el sacn para una WIFI?
Muchas gracias
una pregunta, despues de generar el qr, ¿como se pasaría a word? yo ya tengo una plantilla pero tengo que copiarlo y pegarlo manual
❤❤❤
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?
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.
Una consulta si copio el código QR que se genero en un Word va a seguir funcionando?
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
Buenos días
si quiero que me haga el código de varias columnas, es decir de un listado, el código de producto y la descripción del mismo. ¿Cómo pongo más de 1 rango a tomar datos?
GRacias de antemano
Hagan Un proyecto real de manejo de inventarios o lo que quieras pero que sea completo y profesional
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 ....
Buenas noches, presenta errores, nos ayudaría mucho uno actualizado donde no tengas observaciones. Gracias por tu aporte!
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
Saludos. como se podría agregar más datos o más columnas al código. En la corrida, el código qr generado solo tiene datos de una sola celda, como se puede agregar más datos?
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!
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?
Hola buenas tardes...a partir de aqui se puede generar una base de datos??..para un servicio tecnico??
El video esta muy bien explicado, lamentablemente el link al generador del código no funciona ¿hay alguna alternativa?
hola me marca error aqui Set QR = ActiveSheet.Pictures.Insert(Ruta)
IGUALMENTE
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)"
bro pudiste solucionarlo?
@@agustinemiliotorresdiaz466 Tengo ese mismo problema
@@agustinemiliotorresdiaz466 TENGO EL MISMO PROBLEMA, ALGUIEN SABE COMO SOLUCIONARLO
@@tatianagonzalez3127 sii
@@tatianagonzalez3127 en un comentario más abajo alguien puso que edito la macro y le funcionaba, y realmente funciona jajaja
hola.... el mismo pero con boton dentro de un form para creacion de forma masiva?
Hola, muy buen video, pero al final me manda un codigo de error 400. sabras como puedo resolverlo, gracias
Puedo generar un solo código qr para una lista? Ejemplo una lista de códigos de barra
Hay forma de que los QR se guarden en el pc de forma automática ?con el nombre tomado de una celda ?
puedo leer el codigo con un celular y que me muestre la informacion en excel ?? se puede lograr algo asi ?
Tendrás de códigos de barras normales?
Hay alguna manera de crear un archivo en el cual se recolecte por medio de codigo qr firmas para un archivo en exel en el cual registre la hora en la que se recolecto la firma?
Y si quiero que el QR tenga más información, por ejemplo el nombre de una persona que en excel esté separado en cada celda ¿basta con seleccionar la celda A2:C3? mi logica me indica que sería NOMBE + AP. PATERNO + AP. MATERNO....es correcto? yo preciso que el nombre esté separado del apellido, ya que usaré los datos en word y haré combinar correspondencia y usaré el código QR para autentificar que la Constancia que estoy haciendo, le pertenece a esa persona en específico
Hola me aparece al final se esperaba: fin de la instrucción.
Cómo lo puedo corregir.
Gracias muy interesante
Estoy igual.
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
Hola buenas tardes ... al ejecurar la macro el depuerador arroja un error en la liena: Set QR = ActiveSheet.Pictures.Insert(Ruta), que debo hacer
Miguel Vela, ayudame a generar los archivos png o jpg para que al cerrar y abrir la aplicacion no borre el chart.png que se genera para el codigo QR, en este punto de tu macro se borra la ruta:
'Ingreso la imagen
Set QR = ActiveSheet.Pictures.Insert(Ruta)
Kill Ruta
With wGenerator
Necesito guardar todos los archivos de los codigos QR generados:
Ruta = ThisWorkbook.Path & "\chart.JPG"
Se que se tiene que usar un FOR, que agregue un subindice al archivo chart.jpg
De antemano gracias por el aporte y tu ayuda.
ME SALE EN DEPURAR ESTO: 'Ingreso la imagen
Set QR = ActiveSheet.Pictures.Insert(Ruta)
pausa el video en esa parte donde aparece el codigo arriba hay un link fijate que este igual que en el video, escribelo tal cual del video en el codigo descargado esta incompleto. cuando lo escribas completo te jalara el codigo qr
Se puede usar en office 2010?
Hola Miguel.Quisiera saber si se puede configurar para que al momento de escanearlo me dirija a una página de internet en específico.???
Creo que puedes colocar el URL de la pagina en la celda donde iría el código y en automático se generaría el QR para esa pagina en especifico.
Hola, Al generar el codigo me aparece lo siguiente:
Error de compilación: Se esperaba: fin de la instrucción; que tengo que realizar para que se corrija este error?
Hola, me pasa lo mismo y destaca la palabra (DIGOS), me vendria muy bien poder solucionarlo.
Hugo, me llegó a pasar igual pero era tema de un espacio que sobraba ne la propia línea o entre renglones, ojalá sea tu caso y lo puedas resolver.
hola buenas tardes muchísimas gracias por tu trabajo, pero no he podido generar los QR me sale un error que dice Error de compilación: El objeto With debe ser de un tipo definido por el usuario, Object o Variant alguien me podría ayudar por favor
Buenas tardes, necesito bajar el codigo QR, para macro, para generar codigo QR en excel automatico, serian tan gentiles de indicar como debo proceder. Gracias
Cómo puedo hacer para generar el código QR a partir de más columnas?
Saludos Amigo Miguel vela el Tio. Te deje un mensaje en el video que suviste antes de este.....tengo problema espero tu respuesta
Buen día, esta macro sirve para Office 2007?
Puedes hacer de Apis actualizadas al 2024?
Buenos dias, excelentes videos, soy un seguidor fiel, trabajando los QR desde excel me sale el siguiente error " Set QR = ActiveSheet.Pictures.Insert(Ruta)l, por favor agradezco tu ayuda, mil gracias, felicitaciones.
ayudaa a mi igual me sale ese error
Hola! Me sale un error de compilación El objeto With debe ser un tipo definido por el usuario, Objet o Variant
Sub CrearQRMasivo()
Dim n&, i&
LimpiarImagenes
With wGenerador
Gracias por el video!
Hola queria saber si se puede ralizar en el excel de office 2016, por que la celda me toma como valor
Hola, muchas gracias por la información.
Tengo una consulta, me marca un error en el "URLDownloadToFile", cómo lo podría solucionar?
Hola que tal, tiene un limite de uso el QR?
se pueden generar de ligas de internet, es correcto?