I have a looping sub triggered by a userform button. I'm trying to figure
out how to stop that same sub with another button on the same userform. It's
kind of ugly just hitting escape. Any ideas? Is there a standard way? I
tried 'loop until' and making the second button achieve the 'until'
condition but that didn't work - I can't trigger the second button at all.

Hi

If one sub is running behind the userform, you can not run another
sub.

Post the macro, so we can find a solution.

Regards,
Per

On 11 Jan., 23:40, "teepee" wrote:
I have a looping *sub *triggered by a userform button. I'm trying to figure
out how to stop that same sub with another button on the same userform. It's
kind of ugly just hitting escape. Any *ideas? Is there a standard way? I
tried 'loop until' and making the second button achieve the 'until'
condition but that didn't work - I can't trigger the second button at all..

There are a couple of ways to stop a macro once it begins, but none of them
are really desirable. One, of course, is Ctrl + Alt + Delete, that's the
"When all else fails" one. Another is Ctrl + Break, which is mostly used to
halt a macro for debugging or when a continuous loop is accidentally
initiated. Then there are the designed breaks like using a message box
(MsgBox) function to temporarily halt a macro without going into break mode,
or using "Stop" in your code to pause the macro in edit mode. But generally
speaking, once you start a macro it will run to completion unless you use one
or more of the above.

"teepee" wrote:

I have a looping sub triggered by a userform button. I'm trying to figure
out how to stop that same sub with another button on the same userform. It's
kind of ugly just hitting escape. Any ideas? Is there a standard way? I
tried 'loop until' and making the second button achieve the 'until'
condition but that didn't work - I can't trigger the second button at all.

This worked for me.

Tim

'********************************
Option Explicit

Dim bStop As Boolean

Private Sub CommandButton1_Click()
Dim x As Long

bStop = False
x = 0
Do While Not bStop And x < 30
Me.CommandButton1.Caption = "Running: " & x
Application.Wait Now + TimeValue("0:00:01")
x = x + 1
DoEvents 'allows the other button code to run if clicked
Loop
Me.CommandButton1.Caption = "Stopped"

End Sub

Private Sub CommandButton2_Click()
bStop = True
End Sub

'*********************************



"teepee" wrote in message
...
I have a looping sub triggered by a userform button. I'm trying to figure
out how to stop that same sub with another button on the same userform.
It's kind of ugly just hitting escape. Any ideas? Is there a standard way?
I tried 'loop until' and making the second button achieve the 'until'
condition but that didn't work - I can't trigger the second button at all.

Hi

Userform with Commandbutton1 (start) and Commandbuton2 (stop):

Option Explicit

Dim Stopit As Boolean

Private Sub CommandButton1_Click()
Dim i As Long, J As Long
Stopit = False
For i = 1 To 1000000
For J = 1 To 10000
'just spending time here ;-)
Next
DoEvents
If Stopit = True Then Exit Sub
Me.Caption = i
Next
End Sub

Private Sub CommandButton2_Click()
Stopit = True
End Sub

Trick here is "DoEvents" which roughly means "listen to the operating system
before you continue".

HTH. Best wishes Harald


"teepee" wrote in message
...
I have a looping sub triggered by a userform button. I'm trying to figure
out how to stop that same sub with another button on the same userform.
It's kind of ugly just hitting escape. Any ideas? Is there a standard way?
I tried 'loop until' and making the second button achieve the 'until'
condition but that didn't work - I can't trigger the second button at all.

thanks will give it a go