Çalışan Makroyu Durduracak Başka Bir Makro

[gncy82]

selamlar;
Aşağıdaki gibi bir makrom var; 10dk'bir otomatik kaydetme işlemi yaptırıyorum.
Bu makroyu tıklayınca durduracak başka makro ihtiyacım var, bir türlü olmadı.
exit,stop,kill vs. denedim... teşekkürler.
--------------------------------------------------------------------------

Sub Kaydet10dk()
Application.OnTime Now + TimeValue("00:10:00"), "Kayıt10"
End Sub

Sub Kayıt10()
ActiveWorkbook.Save
MsgBox "10 dk Süre Geçti ve Kitap Kaydedildi"
Call Kaydet10dk
End Sub
--------------------------------------------------------------------------

 

[halit3]

dosyanı gönderde düzeltelim herhalde açılışta bu makroyu çolıştırıyor bir daha durmuyor

 

[gncy82]

dosyanı gönderde düzeltelim herhalde açılışta bu makroyu çolıştırıyor bir daha durmuyor

otomatik açılmıyor, ben çalıştırıyorum..

sadece istediğim Sub Kaydet10dk() bunu butona tıklayınca durdurmak.. kod da döngü var istediğimde yedek aldırmayı duraklatmak isitiyorum.

 

[zafer]

Merhaba

Sub zamankapat()
Application.OnTime Now + TimeValue("00:10:00"), "Kaydet10dk", Schedule:=False
end sub

 

[gncy82]

Merhaba

Sub zamankapat()
Application.OnTime Now + TimeValue("00:10:00"), "Kaydet10dk", Schedule:=False
end sub

hata aldım malesef..
Run-time error '1004':
Method 'OnTime' of object'_Application'failed

 

[uzmanamele]

merhaba
bu kodu dener misiniz

Sub Düğme2_Tıklat()
End
End Sub

 

[gncy82]

merhaba
bu kodu dener misiniz

Sub Düğme2_Tıklat()
End
End Sub

o an çalışan başka makrolarım var bu tümünü stoplamasın?

 

[leumruk]

Sub Kaydet10dk()
If [a1]=* Then Exit Sub
Application.OnTime Now + TimeValue("00:10:00"), "Kayıt10"
End Sub

A1 hücresine * yazdığınızda makro durur.

 

[gncy82]

Sub Kaydet10dk()
If [a1]=* Then Exit Sub
Application.OnTime Now + TimeValue("00:10:00"), "Kayıt10"
End Sub

A1 hücresine * yazdığınızda makro durur.

malesef sayfanın özgünlüğünü bozmamalı.. sadece butona tıklayınca stop'lamı..

 

[halit3]

birde bunu deneermisiniz


Sub Kaydet10dk()
Application.OnTime Now + TimeValue("00:10:00"), "Kayıt10"
End Sub

Sub Kayıt10()
soru = MsgBox("10 dk Süre Geçti kayıt yapmak istiyormusunuz." & vbCrLf & "uyarı?", vbYesNo)
If soru = vbYes Then
ActiveWorkbook.Save
Call Kaydet10dk
End If
End Sub