
Sub ppp()
Static c
'
If Range("s1") = "go" Then
deltaT = "00:00:5" '<<< restart ogni 1 secondi; cambiare se necessario
Application.OnTime Now + TimeValue(deltaT), "ppp"
'If c > 2 Then
If Range("t1") > Range("u2") Then
Range("t1") = Range("u2")
End If
If Range("u2") > Range("u1") Then
Range("u1") = Range("u2")
End If
End If
c = c + 1
'
End Sub |
