Hi Guys,
I am looking to get a macro created for an excel sheet, I have tried searching on here and cannot come across anything.
I have a sheet that contains a list of all the departure times and assigned route number and amongst other details. Departure times is in A3 onwards to 400+ And Route is in E3 onwards.
What I am trying to achieve is firstly a popup to say check "route number" with options in a box to say all ok or there is an issue, I have 20-30 routes that need checking one after the other. However I want it to correlate with the current time of checking it. So if I get this message at 14:00 I want it to only affect departures in and around 14:00 with that route number so maybe a pop up of the past 30 min departures and future 30 mins, also If there is an issue I want to be able to put either free text in a box so it goes straight to a cell listed say "comment"
I have tried this; but it seems to be a one use case and you have to select a time, and I can’t figure it out.
Let me know if there is more that I need to explain.
Thanks!
I am looking to get a macro created for an excel sheet, I have tried searching on here and cannot come across anything.
I have a sheet that contains a list of all the departure times and assigned route number and amongst other details. Departure times is in A3 onwards to 400+ And Route is in E3 onwards.
What I am trying to achieve is firstly a popup to say check "route number" with options in a box to say all ok or there is an issue, I have 20-30 routes that need checking one after the other. However I want it to correlate with the current time of checking it. So if I get this message at 14:00 I want it to only affect departures in and around 14:00 with that route number so maybe a pop up of the past 30 min departures and future 30 mins, also If there is an issue I want to be able to put either free text in a box so it goes straight to a cell listed say "comment"
I have tried this; but it seems to be a one use case and you have to select a time, and I can’t figure it out.
I hope I made it clearSub StartTimer()
Static SchedSave
If SchedSave <> 0 Then
Application.OnTime SchedSave, "TimeOver", , False
End If
'SchedSave = TimeValue("23/03/2021 07:27:30")
SchedSave = TimeValue("21/04/2021 15:41:00")
Application.OnTime SchedSave, "TimeOver", , True
SchedSave = TimeValue("21/04/2021 15:42:00")
Application.OnTime SchedSave, "TimeOver", , True
End Sub
Sub TimeOver()
MsgBox " Check route 1"
Call StartTimer
End Sub
Let me know if there is more that I need to explain.
Thanks!