• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Katılım
28 Temmuz 2006
Mesajlar
260
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....
 
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.
 
ThisWorkBook kısmına;
Kod:
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;
Kod:
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
 
Son düzenleme:
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....
 
Son düzenleme:
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;
Kod:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    ThisWorkbook.Save
End Sub
şeklinde kullanabilirsiniz.
 
Geri
Üst