Application.OnTime

[mesudiye_052]

Selamlar

A1 hücresine butona basınca saniyeyi yazdırabiliyorum ama dur butonuna basınca
nasıl durdurmam gerekir

Sub calis()
Static i As Byte
    i = i + 1
    If i = 60 Then i = 1
    [A1] = i
    Application.OnTime Now + TimeValue("00:00:01"), "calis"
End Sub
Sub Dur()
On Error Resume Next
Application.OnTime Now + TimeValue("00:00:01"), "calis", , False
End Sub

Saygılarımla

 

[Ömer]

Merhaba,

Denedim; şuanki durumu ile, dur kodu çalışıyor.

 

[mesudiye_052]

Sayın Ömer
kusura bakmayın farklı şekillerde denedim en son bir düzeltme yapdım onu denememiştir
çalışıyor sağolun
İlginiz için teşekkürler

Saygılar