Excel 2013 Macro-Cómo guardar un archivo con el nombre de una celda, en una carpeta en mi escritorio, en formato Excel y en pdf?
Excel 2013- Cómo guardar un archivo con el nombre de una celda, en una carpeta en mi escritorio, ¿en formato Excel ( ya que deben seguir modificando ese mismo excel semana tras semana) y en pdf ( así me queda una copia del archivo)?
¿Cómo hago una macro para esto? Tengo muy poco conocimientos de macros.
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro
Sub Guardar_Archivo()
'Por.Dante Amor
carpeta = "C:\trabajo\libros\" 'cambia por tu carpeta
nombre = Sheets("Hoja1").Range("D4") 'cambia hoja1 por el nombre de tu hoja y D4 por la celda
'guardar archivo como excel
ActiveWorkbook.SaveCopyAs carpeta & nombre & ".xlsm"
'guardar como pdf
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=carpeta & nombre & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
MsgBox "Archivo guardado como : " & nombre
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
