Ignorant Guru
New Member
- Joined
- Dec 21, 2022
- Messages
- 2
- Office Version
- 365
- Platform
- Windows
Please forgive my ignorance, but I am not even sure I am approaching my issue correctly
What I am trying to achieve:
Run (25) individual timers triggered by list drop down selection.
What I have:
One timer working correctly via:
When I try to add more to my range and select case, I get an error from my stop timer macro.
EX:
Is there an easier/cleaner way to achieve this? Or do I have to nest 25 select cases?
What I am trying to achieve:
Run (25) individual timers triggered by list drop down selection.
What I have:
One timer working correctly via:
VBA Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G6")) Is Nothing Then
Select Case Range("G6")
Case "Empty": timer_truck_lane_21
Case "Assigned": stop_timer_truck_lane_21
End Select
End If
End Sub
When I try to add more to my range and select case, I get an error from my stop timer macro.
EX:
VBA Code:
Sub timer_truck_lane_21()
interval = Now + TimeValue("00:00:01")
Range("G7") = Range("G7") + TimeValue("00:00:01")
Application.OnTime interval, "timer_truck_lane_21"
End Sub
Sub stop_timer_truck_lane_21()
Application.OnTime EarliestTime:=interval, Procedure:="timer_truck_lane_21", Schedule:=False
End Sub
Sub reset_truck_lane_21()
Range("G7").Value = "00:00:00"
End Sub
Is there an easier/cleaner way to achieve this? Or do I have to nest 25 select cases?