Excel VBA: Pass value when clicking button
 

I have a problem with a Procedure Declaration to capture a value in
variable when clicking a button in a Dialog Box. I’m pretty fluent i
VBA as such but I’ve hardly ever worked with Dialog Boxes.
I’m trying to pass the value of blnSwitch when clicking Commandbutton_
to Sub Status() and further to BaseRoutine().
Does anybody have a solution?

Milli

Sub BaseRoutine()
----
Call Status(blnSwitch)

Select Case blnSwitch

Case = ”1”

Do something 1

Case = ”2”

Do something 2

End Select

End Sub

Sub Status(blnSwitch as Boolean)
----
Call ShowForm(I guess this is where blnSwitch should be passed)

End Sub

Sub ShowForm()

MissingAnswersForm.Show

End Sub

Private Sub MissingAnswersForm_Initialize(vntReturnCriteria A
Variant)

Call BaseRoutine

End Sub

Private Sub CommandButton1_Click()

Unload Me
blnSwitch = ”1”

End Sub

Private Sub CommandButton2_Click()

Unload Me

End Su

--
Message posted from http://www.ExcelForum.com

Excel VBA: Pass value when clicking button
 

Make blnSwitch a public variable at the top of a general module. (remove
anywhere else it might be declared)

Then it will be visible to all the modules in the project.

--
Regards,
Tom Ogilvy

"Milli " wrote in message
...
I have a problem with a Procedure Declaration to capture a value in a
variable when clicking a button in a Dialog Box. I'm pretty fluent in
VBA as such but I've hardly ever worked with Dialog Boxes.
I'm trying to pass the value of blnSwitch when clicking Commandbutton_1
to Sub Status() and further to BaseRoutine().
Does anybody have a solution?

Milli

Sub BaseRoutine()
----
Call Status(blnSwitch)

Select Case blnSwitch

Case = "1"

Do something 1

Case = "2"

Do something 2

End Select

End Sub

Sub Status(blnSwitch as Boolean)
----
Call ShowForm(I guess this is where blnSwitch should be passed)

End Sub

Sub ShowForm()

MissingAnswersForm.Show

End Sub

Private Sub MissingAnswersForm_Initialize(vntReturnCriteria As
Variant)

Call BaseRoutine

End Sub

Private Sub CommandButton1_Click()

Unload Me
blnSwitch = "1"

End Sub

Private Sub CommandButton2_Click()

Unload Me

End Sub


---
Message posted from http://www.ExcelForum.com/

Excel VBA: Pass value when clicking button
 

That works perfect. Thanks.

Are there alternative routes?

Regards
Milli

Tom Ogilvy wrote:
*Make blnSwitch a public variable at the top of a general module.
(remove
anywhere else it might be declared)

Then it will be visible to all the modules in the project.

--
Regards,
Tom Ogilvy

"Milli " wrote in message
...
I have a problem with a Procedure Declaration to capture a value i
a
variable when clicking a button in a Dialog Box. I'm pretty fluen
in
VBA as such but I've hardly ever worked with Dialog Boxes.
I'm trying to pass the value of blnSwitch when clickin
Commandbutton_1
to Sub Status() and further to BaseRoutine().
Does anybody have a solution?

Milli

Sub BaseRoutine()
----
Call Status(blnSwitch)

Select Case blnSwitch

Case = "1"

Do something 1

Case = "2"

Do something 2

End Select

End Sub

Sub Status(blnSwitch as Boolean)
----
Call ShowForm(I guess this is where blnSwitch should be passed)

End Sub

Sub ShowForm()

MissingAnswersForm.Show

End Sub

Private Sub MissingAnswersForm_Initialize(vntReturnCriteria As
Variant)

Call BaseRoutine

End Sub

Private Sub CommandButton1_Click()

Unload Me
blnSwitch = "1"

End Sub

Private Sub CommandButton2_Click()

Unload Me

End Sub


---
Message posted from http://www.ExcelForum.com/


--
Message posted from http://www.ExcelForum.com

Excel VBA: Pass value when clicking button
 

You could declare blnSwitch as a public variable in the Userform module then

Userform1.Load ' not required - as soon as you reference it
' if it doesn't exist, it is loaded.
userform1.blnSwitch = True
Userform1.Show


--
Regards,
Tom Ogilvy


"Milli " wrote in message
...
That works perfect. Thanks.

Are there alternative routes?

Regards
Milli

Tom Ogilvy wrote:
*Make blnSwitch a public variable at the top of a general module.
(remove
anywhere else it might be declared)

Then it will be visible to all the modules in the project.

--
Regards,
Tom Ogilvy

"Milli " wrote in message
...
I have a problem with a Procedure Declaration to capture a value in
a
variable when clicking a button in a Dialog Box. I'm pretty fluent
in
VBA as such but I've hardly ever worked with Dialog Boxes.
I'm trying to pass the value of blnSwitch when clicking
Commandbutton_1
to Sub Status() and further to BaseRoutine().
Does anybody have a solution?

Milli

Sub BaseRoutine()
----
Call Status(blnSwitch)

Select Case blnSwitch

Case = "1"

Do something 1

Case = "2"

Do something 2

End Select

End Sub

Sub Status(blnSwitch as Boolean)
----
Call ShowForm(I guess this is where blnSwitch should be passed)

End Sub

Sub ShowForm()

MissingAnswersForm.Show

End Sub

Private Sub MissingAnswersForm_Initialize(vntReturnCriteria As
Variant)

Call BaseRoutine

End Sub

Private Sub CommandButton1_Click()

Unload Me
blnSwitch = "1"

End Sub

Private Sub CommandButton2_Click()

Unload Me

End Sub


---
Message posted from http://www.ExcelForum.com/
*


---
Message posted from http://www.ExcelForum.com/