ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Start/Stop Macro Button (https://www.excelbanter.com/excel-discussion-misc-queries/98366-start-stop-macro-button.html)

Paul987

Start/Stop Macro Button
 

I have a macro that runs continuously w/ a timer, however I would like
to be able to start and stop it with a button. I can't seem to get the
Toggle Buttong to do this. Any help?
TIA
Paul


--
Paul987
------------------------------------------------------------------------
Paul987's Profile: http://www.excelforum.com/member.php...o&userid=24850
View this thread: http://www.excelforum.com/showthread...hreadid=559907


JLatham

Start/Stop Macro Button
 
Seeing your Toggle Button's code would help. But in the meantime, here is
code using 2 buttons and a module-wide visible 'switch' you can start with
one button and stop with the other - but note, as written nothing to stop
person from hitting "Start..." button before time is up and starting it over,
giving themself more time. Note that this code will not compile/run because
"TimeIsUp" is undefined - I just used that as a placeholder.

Option Explicit
Dim StopTimer As Boolean

Sub Button1_Click()
TimeIsUp = False
'clicking this button starts the timed event
StopTimer = False
Do Until TimeIsUp Or StopTimer = True
'looping inside timer loop
'the "TimeIsUp" would be the conditions
'you've set up to indicate out of time
DoEvents
Loop
MsgBox "Time is up or you Stopped It"
End Sub

Sub Button2_Click()
'simply set the flag to True
StopTimer = True
End Sub


"Paul987" wrote:


I have a macro that runs continuously w/ a timer, however I would like
to be able to start and stop it with a button. I can't seem to get the
Toggle Buttong to do this. Any help?
TIA
Paul


--
Paul987
------------------------------------------------------------------------
Paul987's Profile: http://www.excelforum.com/member.php...o&userid=24850
View this thread: http://www.excelforum.com/showthread...hreadid=559907




All times are GMT +1. The time now is 08:40 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com