hücre değerinin saniye ile artması

[empati]

Merhaba arkadaşlar. bir hücre değerinin otomatik olarak saniye ile veya 2-3 saniyede 1 artmasını istiyorum. Mesela A1 hücresinin değerinin 1-80 arasında her saniyede 1 değer artırp 80e gelindiğinde tekrar 1den başlamasını istiyorum. bu mümkün mü?

 

[uzmanamele]

merhaba

bu işinizi görür mü?

Sub çalış()
On Error GoTo dip
Application.OnTime Now + TimeValue("00:00:01"), "say"
dip:
End Sub

Sub say()
[a1] = [a1] + 1
If [a1] > 10 Then [a1] = 0
Call çalış
End Sub

Private Sub Worksheet_Activate()
Call çalış
End Sub

 

[empati]

zannederim işimi görecek ama bunu makro olarak nasıl ekleyebileceğimi de yazarsanız. çünkü makro eklemek için ALT+F11 ile makro sayfası açtığım zaman boş sayfa çıkmıyor. önceden hazırladığım başka bir makro çıkıyor. onu değiştirmek zorunda kalıyorum . ilginiz için teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki boş müdülü nasıl eklemeniz gerektiğini gösteren resimli anlatım bulunmaktadır. İncelermisiniz.

Modül Ekleme (Resimli Anlatım)

 

[empati]

Hücre değerini Otomatik artırma.

Makroyu ekledim. Fakat çalıştıramadım. Ekte gönderdiğim dosyada ne istendiği ayrıntılı olarak izah ediliyor. İncelerseniz sevinirim.

 

[uzmanamele]

merhaba

ek dosya işinizi görür mü?

 

[empati]

döngüyü istediğim zaman durdurma.

Merhaba;
makro çalışıyor. Fakat çalıştırmaya başlayınca durmuyor. bir de neden olduğunu çözemedim biraz çalıştıktan sonra çok hızlı ilerliyor. İstediğim zamanda durdurup sonra tekrar devam ettirmek istiyorum,
BU MÜMKÜNMÜ?
dosya ektedir.