AutoSave

[pelin5353]

Merhaba,

Mevcut olan dosyamin hergun saat 16:00'da asagiki dosyaya kaydedilmesi mumkun mu?

C:\user\GROUP\SAL\AAA\Backups\C&E Program.xls

Kisayolu verilen dosya yedek olacak. Veya alternatif bir cozum de olabilir.

 

[hamitcan]

Aşağıdaki şekilde dener misiniz ?

Sub auto_open()
Application.OnTime Now + TimeValue("16:00:00") - Now, "Yedek"
End Sub

Sub Yedek()
    ActiveWorkbook.SaveCopyAs "C:\user\GROUP\SAL\AAA\Backups\C&E Program.xls"
    MsgBox "Dosyanız kaydedildi"
End Sub

 

[conari]

Belgenin devamlı açık olması gerektiğini hatırlatalım..

 

[pelin5353]

Peki ayni dosya ustune save yerine, farkli isimlerle hergun save as aldirmamiz mumkun mu? C&E_1 -C&E_2 gibi

 

[hamitcan]

Mümkün. Nasıl birşey istiyorsunuz?

 

[hamitcan]

A1 hücresindeki değeri sayaç olarak kullandım.

Sub Yedek()
    [A1] = [A1] + 1
    ActiveWorkbook.SaveCopyAs "C:\user\GROUP\SAL\AAA\Backups\C&E" & [A1] & "Program.xls"
    MsgBox "dosyanız kaydedildi"
    ActiveWorkbook.Save
End Sub