Como generar código qr en Excel 

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

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)

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

#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

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

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

Interesante , alguien ha podido hacer esto posible?

@@luisaruedav8082 Sí, yo lo hice

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 &" "&

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

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

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

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.

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.

Solucionaste el inconveniente? A mi también me aparece

ayudaa a mi igual me sale ese error

Estoy igual.

me pasa lo mismo