3 dakikada bir farklı kaydet...

[zeliha]

Arkadaşlar açık olan bir excel kitabını her 3 dakikada bir otomatik farklı kaydetmek istiyorum.Farklı kaydedilen her dosya adı o anki saat olacak.Örnek 1. dosya adı 11.51, 2. dosya adı 11.54 gibi...Formda aradım ama benim işime yarayacak bir örnek bulamadım.Lütfen yardım edin.Şimdiden teşekkürler.

 

[hamitcan]

Dosyanızı "C:\" dizini içine kopyalayın. "farklikaydet" makrosu içindeki yolu kendinize göre belirleyin.Yani nereye kaydetmek istediğinizi yazın.
Not:Kodları çalıştırmak için ya çalışma kitabınızı kapatıp açın yada "auto_open" makrosunu bir defa çalıştırın.

Sub auto_open()
Application.OnTime Now + TimeValue("00:03:00"), "farklikaydet"
End Sub
Sub farklikaydet()
ActiveWorkbook.SaveAs "C:\" & Format(Now, "hh.ss") & ".xls"
 auto_open
 Workbooks.Open "C:\ farklikaydet"
End Sub

 

[zeliha]

Teşekkürler...

Tam istediğim gibi, sağolun...