kitabı kapatırken yedekleme

[ssakman2]

merhaba forumu inceledim ama benim sorunuma çözüm olacak bir konu bulamadım.

benim sorunum (kasa defteri.xls) kitabını kapatırken başka bir klasöre mesala ( kasa yedek ) olarak içerisine tarih saat ve dakika olarak otamatik kaydetmesi.

ilgilenen arkadaşlara şimdiden teşekkürler.

 

[Terkanli]

Selam ssakman2,
Aşağıdaki kodu kopyala, VBA içindeki bir modüle yapıştır. kodda yedek isimli yeni bir dizin açılacak, bu dizine dosyaadı tarih ile dosya oluşturacak.

Kolay gelsin
Tansu

Sub Auto_Close()
yedek
End Sub


Sub Yedek()
sor = MsgBox("Şimdi Yedek Almak İstermisiniz?", vbYesNo + vbQuestion, "YEDEK")
If sor = vbNo Then Exit Sub
On Error GoTo ack
ChDir ThisWorkbook.Path & "\Yedek\"
If errornumber = 79 Then
ack: MkDir ThisWorkbook.Path & "\Yedek\"
End If
On Error GoTo hata
ActiveWorkbook.SaveCopyAs ThisWorkbook.Path _
& "\Yedek\" & ActiveWorkbook.Name & ("_") & Format(Now, "dd") & ("_") & Format(Now, "mm") & ("_") & Format(Now, "yy") & ".xls"
hata:
Exit Sub
End Sub

 

[ssakman2]

tansu bey verdiğiniz kod çalışıyor yanlız ben her yedek almada farklı kitap oluştursun istiyorum yedek adlı klasöre olabilirmi acaba
zannederim verdiğiniz kod yedekteki kitabın içine kaydediyor yani üzerine

 

[dEdE]

Merhaba,
Farklı bir yaklaşım. Her yedek almada farklı kitap oluşturur.
Yedekleyeceğiniz klasörü siz oluşturmalısınız.
Koddaki dosya yolunu kendinize göre değiştirmeyi unutmayınız.

Sub Auto_Close()
ActiveWorkbook.Save
Dosya_Adı = Format(Now(), "dd.mm.yyyy - hh.mm") & ".xls"
ActiveWorkbook.SaveAs Filename:="C:\Users\toshıba\Desktop\Kasa Yedek" & Application.PathSeparator & Dosya_Adı
Application.Quit
End Sub

 

[ssakman2]

mehaba
dede nin verdiğ kod tam aradığım kod teşekkür ederim ayrıca tansu arkadaşada teşekkürler.

 

[dEdE]

Rica ederim.
Güle güle kullanın.