Otomatik Farklı Kaydet

[naz1f]

Merhaba üzerinde sürekli güncelleme yaptığım excel dosyasının her gün belirlediğim bir saatte yada gün sonunda otomatik olarak farklı kaydetmesini istiyorum.. Bu şekilde bir ayar var mı excel'de?*.. Yani her gün için ayrı bir excel dosyası olmasını istiyorum.. Üzerinde sürekli değişiklik yaptığımız için bir kaç gün önceye ait bilgileri göremiyorum.. Teşekkürler..

 

[Muzaffer Ali]

Merhaba.

Dosyanız her açtığınızda bir yedek kopya oluşturmak için aşağıdaki kodu "BuÇalışmaKitabı" adlı kod sayfasına kopyalayın.

Private Sub Workbook_Open()
    ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & Replace(Now, ":", ".") & ".xlsm"
End Sub

 

[naz1f]

Merhaba.. Her açtığımda değil de günde bir kere farklı kayıt yapmasını istiyorum.. Gün içerisinde çok fazla açıyorum çünkü bir sürü kayıt olur eğer bu kodu uygularsam..

Günde bir kere kayıt yapsa benim için daha iyi olur böyle bir kod var mı?*..

 

[Muzaffer Ali]

O zaman aşağıdaki kodu kullanın.
A1 hücresine günün tarihini yazar
Eğer A1 hücresindeki tarih bugüne eşit değilse kodlar çalışır.

Private Sub Workbook_Open()
    If Not Range("A1") = Date Then
        ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & Replace(Now, ":", ".") & ".xlsm"
        Range("A1") = Date
    End If
End Sub

 

[zaruri]

Alternatif olarak;
Bir düğme ile istediğinizde tarih ve saatli olarak
farklı kaydedebilirsiniz.




Sub FARKLI KAYDET()

ChDir "C:\Users\User\Yedekler"
zaman = Application.Text(Now(), "dd.mm.yyyy - hh.mm")
isim = "Borç Takibi " & zaman & ".xlsm"
ActiveWorkbook.SaveCopyAs isim

Application.Quit

End Sub