elsg
12-12-2013, 12:42 PM
Hellow
how to show a message only when the value of A1 is equal to A2?
Dim agora As Date
Sub Watch()
Sheets("Plan1").Range("A1").Value = Format(Time, "hh:mm:ss")
Call Atualiza
End Sub
Sub Atualiza()Myhour = Now + TimeValue("00:00:01")
Application.OnTime Myhour, "Watch"
If [A2].Value = [A2].Value Then
Call MyMenssage
End If
End Sub
Sub StopWatch()
Application.OnTime EarliestTime:=Myhour, Procedure:="Watch", Schedule:=False
End Sub
Sub MyMenssage()
MsgBox "Hellow"
End Sub
how to show a message only when the value of A1 is equal to A2?
Dim agora As Date
Sub Watch()
Sheets("Plan1").Range("A1").Value = Format(Time, "hh:mm:ss")
Call Atualiza
End Sub
Sub Atualiza()Myhour = Now + TimeValue("00:00:01")
Application.OnTime Myhour, "Watch"
If [A2].Value = [A2].Value Then
Call MyMenssage
End If
End Sub
Sub StopWatch()
Application.OnTime EarliestTime:=Myhour, Procedure:="Watch", Schedule:=False
End Sub
Sub MyMenssage()
MsgBox "Hellow"
End Sub