Excel dosyası makroyla arşiv klasörüne nasıl yedeklenir?

[assenucler]

Değerli Dostlar;


Yıllık harcamaları tuttuğum bir Excel dosyam var. Yıllık işlem sayısı 1800 - 2000 arasında değişmektedir. Office 365 TR x64 sürümü kullanıyorum. Bazen nedenini anlamadığım kayıt düzeni ve yapısında bozulma olabilmekte, geçmişe dönerek düzeltme işlemleri yapmak ; hem sıkıcı, hem de yorucu olmaktadır.

Dosyam; masaüstünde C:\Users\aaa\Desktop\2020_HarcamalarıIzleme_Final.xlsx yolunda olup, dosyayı her hafta D:\YEDEK_EXCEL klasörüne aktararak arşivlemek istiyorum.

Yardımınızı rica edeceğim.

 

[zehfeysal]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set ds = CreateObject("Scripting.FileSystemObject")
ThisWorkbook.Save
If ds.FolderExists("D:\YEDEKLER") = False Then
ds.CreateFolder "D:\YEDEKLER"
End If
If ThisWorkbook.Path = "D:\YEDEKLER" Then Exit Sub
If MsgBox(" Soruyor ... Dosyanın yedeğini D:\Yedek\ Dizinine almak istiyor musunuz?", vbInformation + vbYesNo, "Durum") = vbYes Then
yol = "D:\YEDEKLER\" & Replace(Now, ":", "_") & "-" & ThisWorkbook.Name
ds.CopyFile ThisWorkbook.FullName, yol
End If
End Sub

 

[zehfeysal]

kendinize göre düzenleye bilirsiniz makroyu ilgili alana ekleyin

 

[assenucler]

Sayın @zehfeysal,

İlginiz ve kısa sürede yanıtınız için çok teşekkür ederim.
Sağ olun, var olun.

Saygılar,