• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Macro zodat bij opslaan ook een kopie wordt opgeslagen

Status
Niet open voor verdere reacties.

candyman1985

Gebruiker
Lid geworden
18 okt 2006
Berichten
81
Hey kenners.

Ik ben op zoek naar een macro die ervoor zorgt dat als een excel bestand wordt opgeslagen, ditzelfde bestand ook op een andere locatie wordt opgeslagen.

Wat moet ik dan bij de if neerzetten?
Ik weet al dat de formule om het bestand op te slaan volgende is
Code:
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & "backup" &\" & Range("G12") & " " & Range("B10") & ".xls"
 
Ik was te snel met vragen.

Zoeken naar de mogelijke opties binnen ThisWorkbook en andere zoektermen op dit forum bracht me tot het volgende:

Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & "backup" & "\" & "backup" & " " & Format(Now, "dd-mm-yyyy") & ".xls"
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan