Hello! Help to understand what the problem is or tell me how to implement it correctly. It is necessary to display messages after the passage of a certain time from the specified in the cell.
For example: enter 11:30 in cell A1, after 30 minutes from the specified time (ie at 12) messages appear, after an hour from the specified time (12:30) another message, etc.
In programming for Excel and VBA is not strong, but I was able to build such a primitive macro, which is the output of the message, though it appears every time 2 times, but I can not understand how to make the message appear only 1 time.
Sub Напоминание() ' Сочетание для запуска: Ctrl+Shift+A timeStart = TimeValue(Format(Range("A1"), "h:m:s")) firstAlarm = timeStart + CDate("00:30:00") secondAlarm = timeStart + CDate("01:00:00") Application.OnTime firstAlarm, "Alarm" Application.OnTime secondAlarm, "secAlarm" End Sub Sub Alarm() MsgBox "Сообщение 1" End Sub Sub secAlarm() MsgBox "Сообщение 2" End Sub