Macro para guardar hoja de excel a pdf

Expertos necesito nuevamente de sus ayuda. Tengo un libro de excel donde hay un programa en el cual hay varias hojas y un userform este me traslada datos a la hoja1 lo que quiero es que cuando traslade los datos me guarde una copia en pdf con el nombre que contiene la celda A1 y asi tener registrado los datos. La hoja siempre esta oculta y tiene 2 paginas en vertical. En espera de sus respuesta. Gracias

1 Respuesta

Respuesta
1

Agrega lo siguiente a tu código después de trasladar los datos:

'Por. Dante Amor
    ruta = ThisWorkbook.Path & "\"
    arch = Sheets("Hoja1").[A1]
    Sheets("Hoja1").ExportAsFixedFormat _
        Type:=xlTypePDF, Filename:=ruta & arch & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False

Saludos.Dante Amor

Recuerda valorar la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas