laskuri

ko. taulukon moduuliin...

Option Explicit

Private Sub Worksheet_Calculate()
If Range("E1") = 1 Then
Aloita
Else
Lopeta
End If
End Sub

moduuliin...

Option Explicit
Dim Ok As Boolean
Sub Aloita()
Ok = True
Application.OnTime Now() TimeValue("00:00:01"), "Ajastin"
End Sub
Sub Lopeta()
Ok = False
Worksheets("Sheet1").Range("F1").Value = 0
End Sub
Sub Ajastin()
If Ok Then
Worksheets("Sheet1").Range("F1").Value = Worksheets("Sheet1").Range("F1").Value 1
Application.OnTime Now() TimeValue("00:00:01"), "Ajastin"
End If
End Sub



KeepEXCELing
@Kunde

Kiitti vastauksesta!!
Täytyy illalla kokeilla vielä miten toimii.