Otomatik Kayıt Bir Dakikanın Altında Olsun

[bendiler]

Elektrik Kesintilerinden dolayı bayağı sıkıntıdayım
Otomatik Kayıt ı 1 dak.nın altına düşürmek mümkün mü?
Yani O anda girdiğim veri direk kaydedilsin
Nasıl Yapabilriz?
Tüm Sayfalarda Geçerli olacak şekilde bir eklenti ile veya başka bir yöntemle çözebilirmiyiz.
Teşekkürler....

 

[uzmanamele]

merhaba

Worksheet_Change altında her veri girişinde kaydet diye kod yazılabilir ama bu kullanışlı olmaz.

araçlar / seçenekler / kaydet / otomatik kurtarma zamanını 1 dakika olarak ayarlayın.

 

[hamitcan]

ThisWorkBook kısmına;

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnTime dTime, "MyMacro", , False
End Sub

Private Sub Workbook_Open()
  Application.OnTime Now + TimeValue("00:00:15"), "MyMacro"
End Sub

Module1 içine;

Public dTime As Date
Sub MyMacro()
    dTime = Now + TimeValue("00:00:15")
    Application.OnTime dTime, "MyMacro"
    ActiveWorkbook.Save
End Sub

yerleştirin.

Not: Kod, 15 saniyede bir kaydeder. Ayrıca dosya kapandığında makrolar devredışı kalır.
Kaynak: http://www.ozgrid.com/Excel/run-macro-on-time.htm

 

[bendiler]

sn uzmanamele teşekkürler zaten 1 dk ayarlı
sn hamitcan teşekkürler 1 sn yede olabilir yanlız bunu eklenti gibi otomatik çalıştırmamız mümkün mü? Böyle olursa tüm çalışma dosyalarında olacak

* girilen her veri direk otomatik kayıt olsun
Teşekkürler....

 

[hamitcan]

merhaba

Worksheet_Change altında her veri girişinde kaydet diye kod yazılabilir ama bu kullanışlı olmaz.

Ben de Süleyman bey'e katılıyorum. Ama ille de böyle olsun derseniz;

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    ThisWorkbook.Save
End Sub

şeklinde kullanabilirsiniz.

 

[bendiler]

Teşekkürler..