Her ayın sonunda otomatik Back-Up

[Kavinsky]

Tüm üstatlarıma selamlar.
Benim düzenli kaydettiğim bir dosyam var her ay sıfırlıyor ve yenisiyle başlıyor. Ama bazen unutuyorum ve veriler siliniyor birbirine giriyor.

Benim isteğim her ayın son günü saat 23:50 de dosyayı Z:\data\30_URETIM_ORTAK\01_ÜRETİM_RAPOR\ARŞİV yolunun içindeki mevcut yıl ile aynı isimde ve onun içindeki ve mevcut ay ile aynı isimde olan klasöre yedeklemesi ve ardından SIFIRLA isimli makroyu çalıştırması.
Böyle bir şey mümkün müdür acaba ?

 

[Korhan Ayhan]

Merhaba,

Bu işlemi dosya kapalıyken yapmayı planlıyorsanız 3. parti bir yazılım kullanmalısınız. Genelde şirketlerde dosya yedekleme işlemleri IT ekibi yapar. Sizde boyle bir ekip varsa onlardan destek alabilirsiniz. Kendi imkanlarınız dahilinde yapmayı planlıyorsanız dosya kapanışında çalışacak kodlar forumda paylaşıldı. Onları deneyebilirsiniz.

 

[Asri]

Bilgi işlem birimi var ise oradan destek alınabilir. Yok ise aşağıdaki ücretsiz programı tavsiye edebilirim.

CobianSoft - The home of Cobian Backup

www.cobiansoft.com

Servis olarak çalıştığı için arka planda yedek alacaktır. Sıfırlama işlemini ise açılan dosyada ayarlar sayfasındaki bir buton ile yaptırabilirsiniz.
Bu program ile ayda bir değil de her gün yedek alması sağlanabilir.
Sanırım 10 yıl önceydi tam hatırlamıyorum ama bir dönem kullanmıştım.

Bu da kullanım ayarları ve detayları.

Cobian Backup Gravity 11 Free ile Son Kullanıcı Sistemlerinin Yedeklenmesi ve Mail Bildirimi - ÇözümPark

Bildiğiniz gibi yedekleme işlemleri genellikle sunucular üzerinden yapılmaktadır. Ancak kritik olan son kullanıcı bilgisayarlarında yapılmayan yedeklemeler bizim için sorun teşkil etmektedir diskin bozulması, dosyanın silinmesi, kullanıcı bilgisayarın crypotlocker tarzı virüs saldırısına maruz...

www.cozumpark.com

 

[Kavinsky]

Peki zamanlama olarak IT bölümüne yaptırırım lakin,

Dosyayı Z:\data\30_URETIM_ORTAK\01_ÜRETİM_RAPOR\ARŞİV yolunun içindeki mevcut yıl ile aynı isimde ve onun içindeki ve mevcut ay ile aynı isimde olan klasöre yedeklemesi ve ardından SIFIRLA isimli makroyu çalıştırması.

şu konuda bir vba kodu mümkün müdür ?

 

[Korhan Ayhan]

Bahsettiğiniz yedekleme klasörleri hali hazırda var mı? Yoksa kod tarafından mı oluşturulacak?

 

[Korhan Ayhan]

Ben hazırladığım kodu paylaşayım. Siz kendinize göre uyarlarsınız.

Option Explicit

Sub Yedekle()
    Dim My_Folder As String
    
    If MsgBox("Dosyanın yedeğini almak istiyor musunuz?", vbInformation + vbYesNo + vbDefaultButton2) = vbNo Then
        MsgBox "İşlemi iptal ettiniz!", vbExclamation
        Exit Sub
    End If
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    My_Folder = "C:\Users\Desktop\Test\" & Format(Date, "yyyy") & "\" & Format(Date, "mmmm") & "\"

    If Dir(My_Folder, vbDirectory) = "" Then
        Shell ("cmd /c mkdir """ & My_Folder & """")
    End If

    ThisWorkbook.Save
    ThisWorkbook.Sheets.Copy
    
    ActiveWorkbook.SaveAs My_Folder & Format(Now, "dd.mm.yyyy hh_nn_ss") & " " & Replace(ThisWorkbook.Name, "xlsm", "xlsx"), 51
    ActiveWorkbook.Close
    
    Call SIFIRLA
    
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    
    MsgBox "Dosya aşağıdaki klasöre yedeklendi." & vbCrLf & vbCrLf & My_Folder, vbInformation
End Sub

 

[Kavinsky]

Değerli Hocam çok teşekkür ederim işimi gördü.