Otomatik Kaydetme'nin "Bu Çalışma Kitabı"'nda çalıştırılması

[ERMAN SAYINALP]

Merhabalar,

Aşağıdaki "Otomatik ve Periyodik sürelerle Kaydetme" Kodlamasının Modül'de değil de, "Bu Çalışma Kitabı"'nda çalışmasını sağlayacak düzenleme konusunda yardımlarınızı rica ederim.

Sub auto_open()
Application.OnTime Now + TimeValue("00:05:00"), "Kayıt"
End Sub

Sub Kayıt()
ActiveWorkbook.Save
MsgBox "Kitap Kaydedildi"
Call auto_open
End Sub

 

[Korhan Ayhan]

Aşağıdaki kodları "BuÇalışmaKitabı" bölümüne uygulayın.

Sub Auto_Open()
    Application.OnTime Now + TimeValue("00:05:00"), "BuÇalışmaKitabı.Kayıt"
End Sub

Sub Kayıt()
    ActiveWorkbook.Save
    MsgBox "Kitap Kaydedildi"
    Call Auto_Open
End Sub

 

[ERMAN SAYINALP]

Olmadı !

Üstadım,
Öneriniz, Ne Modül'de ne de ThisWorkbook'ta çalışmadı !

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

Sub Auto_Open()
    Application.OnTime Now + TimeValue("00:05:00"), "[COLOR="Red"]ThisWorkBook[/COLOR].Kayıt"
End Sub

Sub Kayıt()
    ActiveWorkbook.Save
    MsgBox "Kitap Kaydedildi"
    Call Auto_Open
End Sub

 

[northcyprus]

Sayın hocam peki üzerinde açık bir userform olan ve sürekli çalışan bir çalışma kitabını her gece saat 03:00:00 da kayıt yaptırabilirmiyiz??? yani auto open de de olabilir açılış saati önemli degil ama saat 3 te kayıt olması gerekiyor. bu mümkün mü?