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.



×
×
  • Create New...

Important Information

Privacy Policy