Můžu poslat příklad s použitím application.ontime, kdy se pouští pouze 1x a ne zamknutí by vadit nemělo, otestováno s příkladem, který po 10s přičte 1.
Dim ind As Boolean
Public Sub spust()
ind = True
Application.OnTime Now + 10 / 24 / 3600, "procedura"
End Sub
Public Sub zastav()
ind = False
End Sub
Public Sub procedura()
If ind = True Then
Cells(1, 1) = Cells(1, 1) + 1
Application.OnTime Now + 10 / 24 / 3600, "procedura"
End If
End Subcitovat
Dim ind As Boolean
Public Sub spust()
ind = True
Application.OnTime Now + 10 / 24 / 3600, "procedura"
End Sub
Public Sub zastav()
ind = False
End Sub
Public Sub procedura()
If ind = True Then
Cells(1, 1) = Cells(1, 1) + 1
Application.OnTime Now + 10 / 24 / 3600, "procedura"
End If
End Subcitovat