¿Cómo aplico la macro guardar PDF?
Dante al aplicar el código solo para PDF, eliminando la linea de MACRO que me indicaste
Sub GuardarPDF()
'
' Guardar Macro
'
' Acceso directo: CTRL+m
'
Dim nombre As String, Ruta As String
Ruta = "C:\Users\Desktop\NFORMES\"
nombre = Range("B3").Value
Cells.Copy
Workbooks.Add
Range("a1").Select
ActiveSheet.Paste
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Ruta & nombre & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=True, OpenAfterPublish:=False
ActiveWindow. Close
Windows("planilla para generar archivo a guardar"). Activate
End Sub
Al ejecutarla, se me abre un libro de EXCEL nuevo y me pregunta si quiero guardarlo, como puedo hacer para que esto no aparezca.
Y otra cosa como puedo hacer para que el PDF que se genera tenga todas los formatos del EXCEl, por ejemplo que este de manera horizontal
1 respuesta
Va la macro actualizada para la hoja con formato
Sub Guardar()
' Guardar Macro
' Acceso directo: CTRL+h
'
Dim nombre As String, Ruta As String
Ruta = "C:\Users\Desktop\INFORMES\"
Ruta = "c:\trabajo\"
nombre = Range("B3").Value
ActiveSheet.Copy
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Ruta & nombre & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
ActiveWorkbook.Close False
Windows("ARCHIVO A GUARDAR").Activate
End Sub'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda
Te anexo la macro actualizada
Sub Guardar()
' Guardar Macro
' Acceso directo: CTRL+h
'
Dim nombre As String, Ruta As String
Ruta = "C:\Users\Desktop\INFORMES\"
nombre = Range("B3").Value
ActiveSheet.Copy
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Ruta & nombre & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
ActiveWorkbook.Close False
Windows("ARCHIVO A GUARDAR").Activate
End Sub'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda
Dante excelente tu aporte!
Estoy tratando de aplicar los mismos pasos para que cuando uso la macro para guardar en formato excel se guarde con el formato pero cuando escribo los códigos quedan en color ROJO
¿Me ayudas?
Utiliza tal cual mi macro, está probada y funcionando, de esa forma no tendrás problemas.
Dante lo que sucede es que la que me envías esta preparada para PDF y lo que necesito es formato EXCEL
Va con excel y pdf
Sub Guardar()
' Guardar Macro
' Acceso directo: CTRL+h
'
Dim nombre As String, Ruta As String
Ruta = "C:\Users\Desktop\INFORMES\"
nombre = Range("B3").Value
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=Ruta & nombre & ".xlsx"
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Ruta & nombre & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
ActiveWorkbook.Close False
Windows("ARCHIVO A GUARDAR").Activate
End SubSolamente quita la línea que no quieras
ActiveWorkbook.SaveAs Filename:=Ruta & nombre & ".xlsx"
o esta
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Ruta & nombre & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=False
'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda
