I have a 2 command buttons on a userform. cmbCalculate and cmbAddToQuote.
cmbCalculate has code that confirms all textboxes have data before
calculating a price. cmbAddToQuote adds the price to a worksheet. How can I
pass a variable value from cmbCalculate code to cmbAddToQuote code. Here is
what I have for an example. I want to stop Sub cmbAddToQuote_Click() if the
variable StopCode = True. IS this possible?

Public Sub cmbCalculate_Click()

Dim StopCode as Boolean

If textbox1 = "" Then
MsgBox "Try Again."
StopCode = True
Exit Sub
End If
End Sub

Private Sub cmbAddToQuote_Click()

Call cmbCalculate_Click

If StopCode = True Then Exit Sub

'.....additional code
End Sub

Thanks in Advance, Ryan

Did you see the responses to your other post?

RyanH wrote:

I have a 2 command buttons on a userform. cmbCalculate and cmbAddToQuote.
cmbCalculate has code that confirms all textboxes have data before
calculating a price. cmbAddToQuote adds the price to a worksheet. How can I
pass a variable value from cmbCalculate code to cmbAddToQuote code. Here is
what I have for an example. I want to stop Sub cmbAddToQuote_Click() if the
variable StopCode = True. IS this possible?

Public Sub cmbCalculate_Click()

Dim StopCode as Boolean

If textbox1 = "" Then
MsgBox "Try Again."
StopCode = True
Exit Sub
End If
End Sub

Private Sub cmbAddToQuote_Click()

Call cmbCalculate_Click

If StopCode = True Then Exit Sub

'.....additional code
End Sub

Thanks in Advance, Ryan

--

Dave Peterson

You have a few answers on your previous post.

"RyanH" wrote:

I have a 2 command buttons on a userform. cmbCalculate and cmbAddToQuote.
cmbCalculate has code that confirms all textboxes have data before
calculating a price. cmbAddToQuote adds the price to a worksheet. How can I
pass a variable value from cmbCalculate code to cmbAddToQuote code. Here is
what I have for an example. I want to stop Sub cmbAddToQuote_Click() if the
variable StopCode = True. IS this possible?

Public Sub cmbCalculate_Click()

Dim StopCode as Boolean

If textbox1 = "" Then
MsgBox "Try Again."
StopCode = True
Exit Sub
End If
End Sub

Private Sub cmbAddToQuote_Click()

Call cmbCalculate_Click

If StopCode = True Then Exit Sub

'.....additional code
End Sub

Thanks in Advance, Ryan

Ryan,

You can declare the variable StopCode at the module level (before and
outside of any Sub or Function procedure) so that its value is preserved and
it is accessible from any procedure within the module. Don't declare the
variable within a Sub or Function procedure.

See http://www.cpearson.com/Excel/Scope.aspx for a discussion of variable
and procedure "scope".


--
Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)



"RyanH" wrote in message
...
I have a 2 command buttons on a userform. cmbCalculate and cmbAddToQuote.
cmbCalculate has code that confirms all textboxes have data before
calculating a price. cmbAddToQuote adds the price to a worksheet. How
can I
pass a variable value from cmbCalculate code to cmbAddToQuote code. Here
is
what I have for an example. I want to stop Sub cmbAddToQuote_Click() if
the
variable StopCode = True. IS this possible?

Public Sub cmbCalculate_Click()

Dim StopCode as Boolean

If textbox1 = "" Then
MsgBox "Try Again."
StopCode = True
Exit Sub
End If
End Sub

Private Sub cmbAddToQuote_Click()

Call cmbCalculate_Click

If StopCode = True Then Exit Sub

'.....additional code
End Sub

Thanks in Advance, Ryan