Bij afsluiten automatisch backup opslaan als pdf

[Roy3001]

Beste leden,

Wat ik graag zou willen is dat als ik het excelbestand (*.xlsm) afsluit dat dan automatisch een 'back-up' gemaakt wordt van het werkblad als pdf., deze pdf moet dan als bestandsnaam de tekst krijgen die in cel b2 staat. Oude c.q. eerdere pdf's met dezelfde naam dienen overschreven te worden. In dit voorbeeldje moet wat nu blauw gekleurd is op de pdf komen, dit heb ik al aangegeven bij afdrukbereik.

Ik heb al een beetje geknutseld met VBA, maar krijg het niet voor elkaar.

Wie kan mij helpen?

Alvast bedankt.

Roy

 

[edmoor]

Zo:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    FacName = ActiveSheet.Range("B2").Value
    Range("A1:X46").ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="C:\test\roy\" & FacName, _
    OpenAfterPublish:=True
End Sub

Maar dan wel in de ThisWorkbook sectie.

 

[Roy3001]

Perfect!!!!!
Hij werkt!

Bedankt.

 

[basblok]

Excelblad als pdf opslaan op website

Hallo Ed,

Ik zie dat jij voor een ander de goede link hebt gestuurd.
Wil je aub even naar mijn bestandje kijken, want ik krijg het bij mijn bestandje maar niet voor elkaar.

Het zou op de site knbbmiddenholland.nl geplaatst moeten worden.
Graag zou ik nadat het bestandje word afgesloten dus dat het als pdf op de site te zien is.
Wat doe ik toch verkeerd? Wil je mij aub even terzijde staan?

 

[VenA]

Waarom blijf je niet bij jouw eigen vraag @basblok? https://www.helpmij.nl/forum/showthread.php/954866-Excel-blad-op-website-plaatsen

Daarnaast hoor je niet in te breken in iemand anders draadje.