• 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.

Automatische backup maken

Status
Niet open voor verdere reacties.
K

kojan007

Gebruiker
Lid geworden
17 dec 2016
Berichten
21
Hallo,

Wie kan mijn helpen met een Marco om een back-up te maken als ik deze opslaan en de werkmap afsluit,
Ik wil graag dat de gegevens uit kolom AA3 t/m AA6 gebruiken achter de bestande naam die je opslaan voor de back-up in een andere bestandmap met de naam back-up,
Dan kan ik zie wie het als laatste heeft opgeslagen.

Ik hoop dat jullie weten wat ik bedoel.
 

Bijlagen

  • Map1.xlsm
    28,3 KB · Weergaven: 46
Laatst bewerkt:
Simpele code

Ik gebruik zelf altijd onderstaande. Ik heb in cel AA1 "=NU()" staan en in AB1 "= VANDAAG()" (van AB 1 maak ik mbv =dag(AB1)/=maand(AB1)/=jaar(AB1) dan een dagcode 20170821 (let op de 0 die je moet toevoegen)) en het resultaat staat dan in AF1. Bij onderstaande code staat die vooraan, maar de volgorde is uiteraard om te zetten

Code: 
mytime = Format(Range("AA1").Value, "hh.mm")
ActiveWorkbook.SaveAs Filename:="E:\project\appel\backup\" & Range("AF1") & " " & Range("AA5") & " " & mytime & " uur" & ".xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
 
dank je wel jklerks voor jou uitleg.
heb zelf al iets gevonden wat ik wil, maar nu nog alleen als ik de bestand afsluit dat hij deze backup maakt.
wie heeft hier een oplossing voor.

Code: 
 ActiveWorkbook.SaveAs Filename:= _
        Range("AA4").Value & "\Backup " & Range("AA3").Value & "" & "Map1" & Range("aa3").Value & " " & Range("aa6").Value & " " & Range("aa5").Value & ".xlsm" _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:="", _
        WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
 
Laatst bewerkt:
In ThisWorkbook

Code: 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
jouw code
End Sub
 
dankje wel bernard het is gelukt.
wie weet of die backup ook naar een bepaalde tijd of dag kan verwijderen.
 
Code: 
 Sub VerwijderBackUps()
strPath = "C:\Backup_\"
strFile = Dir(strPath)
Do While strFile <> ""
    If FileDateTime(strPath & strFile) < (Date - 2) Then
        Kill strPath & strFile
    End If
    strFile = Dir
Loop
End Sub

ik heb iets gevonden maar wil dit in 2 dagen en 4 uur hebben wie kan me helpen.
 
Code: 
Now - 52 / 24

52 = 48+4 uur
 
Waarom gebruik je niet ?

Code: 
Thisworkbook.savecopyas
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan