hücreye girilen değerin her 7 saniyede bir değerinin 1 artmasını nasıl sağlayabilirim

[kralinitanimam]

Merhaba

Excel de bir hücreye girilen değerin her 7 saniyede bir değerinin 1 artmasını nasıl sağlayabilirim. daha doğrusu boyle bir şey mümkünmüdür.

Teşekkürler.

 

[Ömer]

Merhaba,

Kodları module kopyalayıp dosyayı kaydetip kapatın. Açtığınızda kodlar çalışmaya başlayacaktır.

Sub Auto_Open()
    Application.OnTime Now + TimeValue("00:00:07"), "Artis"
End Sub
 
Sub Artis()
    DoEvents
        Range("A1") = Range("A1") + 1
    Auto_Open
End Sub

 

[kralinitanimam]

işe yaradı. teşekkürler.