¿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

1 Respuesta

4.478.650 pts. Sancho, si los perros ladran ...

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 Sub

Solamente 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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas