Dagplanning exporteren mbv VBA

[Hunuloeloe]

Hallo beste VBA experts,

Ik kreeg op mijn werk de vraag of het mogelijk is de dagplanning (zie bestand) met een druk op de knop te exporteren naar een andere locatie ( bijv. map Expeditie en dan map 2016).
Ik heb even het huidige bestand gepakt en die geanonimiseerd.

Wie o Wie kan mij helpen en mij gelijk vertellen wat die gedaan heeft zodat ik het in de toekomst zelf kan

Alvast hartelijk dank voor het meedenken/helpen
Bekijk bijlage dagplanning exporteren.xlsx
Groet,
Anthony

 

[VenA]

Bv zo

Sub VenA()
c00 = "D:\Temp\"
    Sheets("Dagplanning").Copy
    ActiveWorkbook.SaveAs c00 & "Dagplanning " & Format([b1], "yyyy-mm-dd") & ".xlsx", 51
    ActiveWindow.Close
End Sub

 

[Hunuloeloe]

Duidelijk maar moet ik deze nu in een module of in het workbook zetten?
want als ik op een knop druk moet hij die actie gaan ondernemen natuurlijk.

Ik heb het nog niet geprobeerd omdat ik het bestand ga opslaan op de bedrijfsserver en wil niet dat het spoorloos raakt als je snapt wat ik bedoel

 

[VenA]

Je kan de code in een module plaatsen of met een kleine aanpassing direct onder de knop.

c00 = "D:\Temp\"

bepaalt de locatie waar het bestand wordt opgeslagen.

 

[Hunuloeloe]

Dank

Hartelijk dank Vena. Dit is precies wat ik zocht