ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Pass Variable Question (https://www.excelbanter.com/excel-programming/316340-pass-variable-question.html)

SyrHoop

Pass Variable Question
 
I have a simple form that I load, it asks for a date. It has a submit
button. I want to be able to use that date after the submit button is
clicked. How do I go about doing that in VBA?

Sub Macro()
UserForm.Show
fltDate = UserForm.txtDate.Value
end sub

Private CommandButton_click()

msgbox (fltDate) *** The msgbox is blank ***

end sub

Thanks in advance





Bob Phillips[_6_]

Pass Variable Question
 
It seems to me that you are already doing what is needed. The things to be
aware of is

- don't unload the form, just hide it, or the variables disappear
- if fltDate is declared as a form variable, make it Public, and qualify the
variable with the form name when using in another module
- if flDate is declared in a standard module, declare it as Public and it
can be used anywhere, without qualification

--

HTH

RP
(remove nothere from the email address if mailing direct)


"SyrHoop" wrote in message
...
I have a simple form that I load, it asks for a date. It has a submit
button. I want to be able to use that date after the submit button is
clicked. How do I go about doing that in VBA?

Sub Macro()
UserForm.Show
fltDate = UserForm.txtDate.Value
end sub

Private CommandButton_click()

msgbox (fltDate) *** The msgbox is blank ***

end sub

Thanks in advance







Tom Ogilvy

Pass Variable Question
 
Initially hide the userform rather than unload it.

Sub Macro()
UserForm1.Show
fltDate = UserForm1.txtDate.Value
Unload Userform1
end sub

Private CommandButton_click()
msgbox (fltDate) *** The msgbox is blank ***
me.hide
end sub

--
Regards,
Tom Ogilvy


"SyrHoop" wrote in message
...
I have a simple form that I load, it asks for a date. It has a submit
button. I want to be able to use that date after the submit button is
clicked. How do I go about doing that in VBA?

Sub Macro()
UserForm.Show
fltDate = UserForm.txtDate.Value
end sub

Private CommandButton_click()

msgbox (fltDate) *** The msgbox is blank ***

end sub

Thanks in advance








All times are GMT +1. The time now is 12:37 PM.

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