Prefill text box in userform with today's date but allow user to enter unique date

Good evening. I have a workbook that I'm using to tracking staffing patterns within a mental health agency. When the workbook opens the user is asked to pick a date range and an office location. I've placed code into the userform that pre-fills the "start date" with today's date and the "end date" 7 days from today's date. I would like the user to be able to enter a unique date range should they wish but I have yet to figure out the coding to accomplish my goal.

I've attached a copy of the workbook to this thread as well as placed the code in question below. Any feedback you might be able to offer would be great. Thanks.

Please Login or Register  to view this content.

Matthew

Originally Posted by alansidman

Instead of putting in the initialize code, try putting it in the value field in the properties for the two text boxes. Use Today() and Today() + 7. See if that makes a difference.

Four more weeks until we get to Litchfield.

Alan,

First things first......I'll send you my cell number via PM and if you have a free evening we'd love to treat you and your family to dinner at our place. As you know, we're about 15 minutes from you when you're in Litchfield.

Now to the form......I tried entering Today() and Today() + 7 as the value for TBStartDate and TBEndDate (text box names in UserForm2) and when I call UserForm2 "Today()" and "Today() + 7" appear in their respective text boxes. Was that the intent or am I doing something wrong? Thanks.

Matthew

Holger,

Thanks for weighing in. I tried that line of code you suggested for the UserInterface and I'll let you know how it holds in my system....you're logic makes sense. Regarding the code for the date range, I think I need to explain myself a bit further as I may have left an important part out of the scenario.......

As stated previously, the code for the date range in UserForm2 is set up such that today's date is entered into the Start Date and a date 7 days out is entered into the End Date field. My users can enter any date range they wish but what happens is that once UserForm2 is terminated the date range defaults back to what the code dictates. The purpose of UserForm2 is to feed the office location and date range to two locations: 1) footer and 2) Userform1.

So, for instance, if my user wanted to enter a date range of 4-4-14 to 5-4-14 today into UserForm2, once UserForm2 was terminated and Userform1 was opened, at the top of Userform1 the date range would have defaulted back to 5-30-14 to 6-6-14.

Does this make any more sense than what I originally posted? I hope so. Thanks again.

Matthew

Holger,

Good morning. I hope you had a great weekend. Over the weekend I figured out my problem. I am able to enter a unique date range into my userform2 BUT for some reason I have to open userform1, close userform1 and then re-open userform1 to get the date range in userform1 to update. Not sure why this is happening. Any idea? Thanks.

Matthew

Holger,

Hello again. The nature of my question in post #7 is different than the original question for this thread. I'm going to mark this thread solved and start a new thread. Thanks again.

Matthew