Jump to content
rafernan

ANSWERED Macro para guardar el excel en xls y pdf con nombre de 3 celdas del libro

Recommended Posts

Buenas tardes.

Quisiera que en archivo que adjuto, diseñar dos macros.

- por una parte guardar en .xlsx concatenando 3 celdas de la pestaña "datos calibración" CONCATENAR(C4;"_";B11;"_";B12)

- por una parte guardar en pdf concatenando 3 celdas de la pestaña "datos calibración" CONCATENAR(C4;"_";B11;"_";B12)Certificado macros.xlsx

 

Muchas gracias.

Share this post


Link to post
Share on other sites
Hace 18 horas, avalencia dijo:

Hola

Como para que comiences  a darte idea, primero dale una leída a esto:

Enlace

gracias Abrahan, he podido hacerlo en excel pero no he conseguido poder hacerlo con el nombre de las tres celdas. ¿cómo sería?

y hacer lo mismo para guardarlo en excel?

Muchas gracias por su ayuda.

Share this post


Link to post
Share on other sites

ya he conseguido guardar en pdf asociando las 3 celdas.

al intentarlo hacer que guarde excel, no me da error, pero se lo queda pensando y pensando y no guarda nada.

el texto que he puesto es (algo hago mal).

adjunto foto de mi excel

 

Sub IMPRIMIREXCEL()
'
' IMPRIMIREXCEL Macro
'
Sheets("datos calibración").Select
ActiveSheet.Copy
cadena = "C:\Users\raquel\Desktop\" & Range("c4") & "_" & Range("b11") & "_" & Range("b12") & ".xlsx"
'cadena = ThisWorkbook.Path & Application.PathSeparator & Range("c4")& Range("b11") & Range("b12") & ".xlsx"
ActiveWorkbook.SaveAs cadena, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False


End Sub

 

plantilla certi.JPG

Share this post


Link to post
Share on other sites


esto es lo último que he hecho

GUARDAR EXCEL:

Sub guardarexcel()


'
' guardarexcel Macro
'
Sheets("datos calibración").Select
ActiveSheet.Copy
cadena = "C:\Users\raquel\Desktop\" & Range("c4") & "_" & Range("b11") & "_" & Range("b12") & ".xlsx"
'cadena = ThisWorkbook.Path & Application.PathSeparator & Range("c4")& Range("b11") & Range("b12") & ".xlsx"
ActiveWorkbook.SaveAs cadena, FileFormat:= _
xlOpenXMLWorkbook, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

 

End Sub


y así si que me funciona.

el caso es que yo quiero que guarde al archivo en macro, .xlsm (para que cuando vuelva a ejacutar la macro, y cambien las céldas del título, pueda volver a utilizar el archivo),  pero si le pongo esta extensión deja de funcionar.

es decir, si hago esto, no funciona

Sub guardarexcel()


'
' guardarexcel Macro
'
Sheets("datos calibración").Select
ActiveSheet.Copy
cadena = "C:\Users\raquel\Desktop\" & Range("c4") & "_" & Range("b11") & "_" & Range("b12") & ".xlsm"
'cadena = ThisWorkbook.Path & Application.PathSeparator & Range("c4")& Range("b11") & Range("b12") & ".xlsx"
ActiveWorkbook.SaveAs cadena, FileFormat:= _
xlOpenXMLWorkbook, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

 

certificado guarda excel xlxm.xlsm

Share this post


Link to post
Share on other sites

Siempre es bueno dar los detalles desde el inicio. Mantén lo de "*.xlsm" pero cambia esto así:

FileFormat:= xlOpenXMLWorkbookMacroEnabled

PD: No he revisado otros detalles, por si acaso

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




×
×
  • Create New...

Important Information

Privacy Policy