Zaman sayacı hatası

[unur]

Arkadaşlar böyle bir kod var, her üç saniyede AD2 hücresindeki rakamı 1 artırarak yazıcıya çıktı gönderiyor taki AE2 ye eşit olana kadar.
Proplemim örneğin AD2 hücresi 10 oluncaya kadar yazdırdım. Daha sonra 25 ile 35 arasını yazdırmak istiyorum. Ama butona tıkladığımda kaldığı yerden devam ediyor.

İstediğim AD2 hücresine kaç yazdımsa o sayıdan itibaren saydırmasını istiyorum.

Teşekkürler.

Sub arttir()
If Range("AE2").Text = Range("AD2").Text Then
Else
RunWhen = Now + TimeSerial(0, 0, 3)
Application.OnTime RunWhen, "arttir", , True
Static x
x = x + 1
Range("AD2").Value = x
Sheets("AYRILIŞ KATILIŞ BİLDİRİMİ").PrintOut
End If

End Sub

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub arttir()
 
    If Range("AE2").Text <> Range("AD2").Text Then
        RunWhen = Now + TimeSerial(0, 0, 3)
        Application.OnTime RunWhen, "arttir", , True
        Sheets("AYRILIŞ KATILIŞ BİLDİRİMİ").PrintOut
        Range("AD2").Value = Range("AD2").Value + 1
    End If
    
End Sub

.