İstediğiniz Tarihte Otomatik Olarak Excel'in Yedek Almasını İstermisiniz ?

Merhaba,

Benim başıma geldiği için sizlerle paylaşıyorum.Önemli bir dosyanız var ve bu dosyayı üretim ekibi de sürekli kullanıyor.Ancak içinde formüller ve önemli datalar mevcut.Operatörün herhangi bir hatası veya dosyanın silinmesi gibi problemler onca emek çöpe gidiyor.Bunların önüne geçmek adına kendi excelime aşağıdaki macroyu ekledim.Ben istedim ki her 15 günde bir istediğim yere yedek alsın,Size daha önce paylaştığım dosyayı her açtığımızda yedek alma macrosunun biraz farklı versiyonu.

NOT:
Makronun çalışma mantığı mevcut ay’ın 15. Günü olduğunda excelde 15 yazacağından makro ile eşitlenecek ve makroyu çalıştırıp yedek alacaktır.

MAKRO:

1-Öncelikle 1 adet module ekleyip aşağıdaki makroyu içine ekliyoruz.

Sub YEDEK() Dim DosyaSistemi Set DosyaSistemi = CreateObject("Scripting.FileSystemObject") Dim Yedek_Dosya_Adı As String, Kayıt_Yeri As String yer = "\Veri Tabanı\YEDEK\" 'bu alana ilgili yedeği nereye alsın istiyorsak oradaki klasörün adres linkini yazıyoruz For i = 1 To Len(ThisWorkbook.Name) If Mid(ThisWorkbook.Name, i, 1) = "." Then Dosya = Mid(ThisWorkbook.Name, 1, i - 1) uzanti = Mid(ThisWorkbook.Name, i, Len(ThisWorkbook.Name)) End If Next Application.DisplayAlerts = False Yedek_Dosya_Adı = Dosya & Format(Now, " dd_mm_yyyy_hh_mm") & uzanti Kayıt_Yeri = yer & Yedek_Dosya_Adı On Error Resume Next If Dir(yer) = "" Then MkDir yer On Error Resume Next DosyaSistemi.CopyFile ThisWorkbook.FullName, Kayıt_Yeri ActiveWorkbook.Password = "" Application.DisplayAlerts = True End Sub

2-Sonra 1 module daha oluşturup aşağıdaki makroyu ekliyoruz.

Sub Auto_open() If Range("A3") = "15" And CellCheck = False Then ‘bu 15 kısıtını siz değiştirebilirsiniz. Call YEDEK End If End Sub

3-Son olarak 2.makrodaki A3 hücresine  aşağıdaki formülü ekliyoruz.
(A3 hücresi excelinizde herhangi bir yer olabilir bunu siz 
değiştirebilirsiniz.) 

=DAY(TODAY())