Jump to content

Mostrar, eliminar o copiar código QR en userform


Recommended Posts

Saludos Estimados miembros del foro, he tratado de generar un código QR usando solo macros para que se muestre en la hoja1, pero el que funciono fue uno publicado usando funciones.

Bien, me gustaría poder hacer que se vea en el objeto imagen  dispuesto en el userform adjunto, igualmente poder copiarlo y finalmente eliminar, para que hacer otro nuevo según requiera

Tengo el código para limpiar imágenes en la hoja pero per elimina todas las imágenes, solo quiero borrar la imagen de QR, pues voy a tener otra imagen que no es QR

Agradezco su gentil colaboración

Subo el archivo para que lo vean

 Aquí el archivo para descargar

Link to comment
Share on other sites

Posted (edited)

Excelente!! veo que funciona directamente con VBA tal que intentaba hacer...ahora se puede eliminar y no me elimina otras imágenes que tengo necesariamente en la hoja.

En el userform me gustaría poder copiar al código QR..🤔 pienso como poder hacerlo pero lo veo dificil pues normalmente cada imagen tomará nuevo contenido y por lo tanto nuevo nombre automático supongo...me es suficiente con poder subir al userform el que esta en C2 pues estamos usando la firma personal y lo que cambiaria es el texto.

Tal como crea el QR y muestra el contenido al escanear esta de maravilla,.. el userform es porque uno que estoy usando tengo otros datos necesarios...y me falta solo el la imagen del QR

Edited by Visor
Falto aclaración
Link to comment
Share on other sites

Estoy muy agradecido, ahora voy a procurar adaptar a lo que ya tengo.

El modo de crear el archivo QR y desde ahí subir el QR al userform es una opción para evitar las variaciones de los nombres que en la hoja de excel sucede...a menos que exista una forma de dejar un nombre fijo para la imagen de QR que se crea cada vez en la hoja, para poder subir desde ahí directamente.

A propósito en realidad solo era para el texto de una celda, es para una persona no varias.

Gracias por el código, con ello voy a seguir avanzando

 

Link to comment
Share on other sites

  • Crear macros Excel

  • Posts

    • Buenas tardes, expertos solicito una ayuda para concatenar dos columnas una de ellas es en cuanto a la fechas, lo que pasa es que la macro que tengo concatena muy bien, solo tengo un inconveniente con las fechas dicha columna (I) estas formateadas por ejemplo asi: Feb-20 pero al concatenar el resultado asi: O-2AA6220/09/2021, pero asi no quiero, me gustaria concatenar que salga asi: A-234RV44032 los 5 ultimos digitos son de la fecha, bueno asi me gustaria que quede, la macro que estoy usando es: Sub Concatenar() uFila = Range("H" & Cells.Rows.Count).End(xlUp).Row pFila = 1 For fila = pFila + 1 To uFila     Range("O" & fila) = Range("H" & fila) & Range("I" & fila) Next fila End Sub Por favor si me podria dar una ayuda estare muy agradecido. Adjunto el archivo Consolidado.xlsm
    • Con la grabadora Pero son demasiadas filas. Sub Macro1() Range("C3:I7").Select Selection.Copy Range("C12").Select ActiveSheet.Paste Application.CutCopyMode = False Selection.Copy Range("C21").Select ActiveSheet.Paste Application.CutCopyMode = False End Sub Hace tiempo que no entro en el foro y no veo la opcion de subir libro. Un Saludo.
    • Desconozco si por falta de aportación de datos, no me pueden ayudar  o es que no se puede desarrollar esta macro. Gracias.
    • Antoni muchas gracias, eso lo que esperaba. Consegui también estas lineas codigo. Sub Rellenar() Dim uf, fila As Integer uf = Sheets("Consolidar").Range("A" & Rows.Count).End(xlUp).Row fila = 2 While fila <= uf If Sheets("Consolidar").Cells(fila, 2) = Empty Then    Sheets("Consolidar").Cells(fila, 2) = "DIGITAL" End If fila = fila + 1 Wend End Sub
    • Range("B2:B" & ActiveSheet.UsedRange.Rows.Count) = "DIGITAL"  
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy