Cancel Button on Userform
 

Hi everyone.
I am trying to put together an application that formats and calculates raw
data in a spreadsheet.
I have created a Userform with a multipage control that loads in before all
the work on the data is performed, asking the user to confirm if it is the
right formatting and requests a couple of entries that I gather via Text
boxes that are needed for later comparison. Everything works fine except for
the Cancel-button.
I use the standard code in the userform-code-module:

Sub CancelButton_Click()
Unload Me
End Sub

The problem now is that the userform is unloaded, but the sub continues to
do all the formatting and calculations which I want to avoid. I would like
the sub to end completely if the user clicks the cancel button.
Any ideas or suggestions?

Thanks very much.

Knut Dahl

Cancel Button on Userform
 

Publie bStop as Boolean

Sub Main()
Userform1.Show
if bStop then Exit sub
' other code
end Sub


Sub CancelButton_Click()
bStop = True
Unload Me
End Sub

--
Regards,
Tom Ogilvy


"KJ Dahl" wrote in message
...
Hi everyone.
I am trying to put together an application that formats and calculates raw
data in a spreadsheet.
I have created a Userform with a multipage control that loads in before
all
the work on the data is performed, asking the user to confirm if it is the
right formatting and requests a couple of entries that I gather via Text
boxes that are needed for later comparison. Everything works fine except
for
the Cancel-button.
I use the standard code in the userform-code-module:

Sub CancelButton_Click()
Unload Me
End Sub

The problem now is that the userform is unloaded, but the sub continues to
do all the formatting and calculations which I want to avoid. I would like
the sub to end completely if the user clicks the cancel button.
Any ideas or suggestions?

Thanks very much.

Knut Dahl

Cancel Button on Userform
 

Great stuff, thanks
You won't believe the stuff I tried and it turns out to be quite an easy
snippet of code.

Thanks again
"Tom Ogilvy" wrote in message
...
Publie bStop as Boolean

Sub Main()
Userform1.Show
if bStop then Exit sub
' other code
end Sub


Sub CancelButton_Click()
bStop = True
Unload Me
End Sub

--
Regards,
Tom Ogilvy


"KJ Dahl" wrote in message
...
Hi everyone.
I am trying to put together an application that formats and calculates
raw
data in a spreadsheet.
I have created a Userform with a multipage control that loads in before
all
the work on the data is performed, asking the user to confirm if it is
the
right formatting and requests a couple of entries that I gather via Text
boxes that are needed for later comparison. Everything works fine except
for
the Cancel-button.
I use the standard code in the userform-code-module:

Sub CancelButton_Click()
Unload Me
End Sub

The problem now is that the userform is unloaded, but the sub continues
to
do all the formatting and calculations which I want to avoid. I would
like
the sub to end completely if the user clicks the cancel button.
Any ideas or suggestions?

Thanks very much.

Knut Dahl