Your question, your audience. Choose who sees your identity—and your question—with question security.
Solved
How do I add a date picker to a text box in a userform in Excel 2007
Posted on 2014-12-17
How do I add a date picker to a text box in a userform in Excel 2007
-
5
4
2
11 Comments
Active today
What do you mean when you say "add a date picker to a text box"? Do you mean that you want the result of the selection in a date picker to appear in a textbox?
Active today
Here's a few links explaining how to place an ActiveX date picker control into an Excel 2007 worksheet ...
http://www.fontstuff.com/excel/exltut03.htm
http://www.rondebruin.nl/win/s8/win003.htm
http://www.fontstuff.com/excel/exltut03.htm
http://www.rondebruin.nl/win/s8/win003.htm
Active today
Can this be done in a userFormThe second link above says ...
How to Create a userform with a calendar or Date Picker control on it
So it must be possible.
You could also try this free addon ...
http://www.excel-it.com/excel_datepickers.html
Active today
You can achieve what you want by following these steps:
1. Go to the Visual Basic IDE
2. Select or add your userform
3. If the Toolbox does not appear then click 'View' in the menu bar and select 'Toolbox'
4. Right-click on the Toolbox and select 'Additional Controls...'
5. If 'Selected Items Only' is checked, un-check it.
6. Scroll down to 'Microsoft Date and Time Picker' control and select it.
7. The control will now be in the toolbox and you can then select it and draw the control on your userform
8. Finally, add this code
1. Go to the Visual Basic IDE
2. Select or add your userform
3. If the Toolbox does not appear then click 'View' in the menu bar and select 'Toolbox'
4. Right-click on the Toolbox and select 'Additional Controls...'
5. If 'Selected Items Only' is checked, un-check it.
6. Scroll down to 'Microsoft Date and Time Picker' control and select it.
7. The control will now be in the toolbox and you can then select it and draw the control on your userform
8. Finally, add this code
Private Sub DTPicker1_Change()
TextBox1.Text = DTPicker1.Value
End Sub
Active today
I'm not sure which "option" you mean, so please explain. But here is a demo workbook that shows the results of the above steps.
Q-28582649.xls
Q-28582649.xls
Active today
I suggest you use the Change event instead.
But in any case I'm glad I was able to help.
In my profile you'll find links to some articles I've written that may interest you.
Marty - MVP 2009 to 2014
Private Sub Calendar1_Change()
TxtDate.Text = Calendar1.Value
End Sub
But in any case I'm glad I was able to help.
In my profile you'll find links to some articles I've written that may interest you.
Marty - MVP 2009 to 2014
Featured Post
ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.
One of a set of tools we're offering as a way to say thank you for being a part of the community.
Question has a verified solution.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Join & Write a Comment Already a member? Login.
What to do if a split doesn't fit? Or a bunch of invoice lines must be rounded while the sum must match a total?
It takes a little, but - when done - it is extremely easy to implement.
Debits & Credits have been the foundation of financial record keeping since 1494 - over 500 years. Excel is a brilliant tool for leveraging this ancient power - not least with Pivot Tables, sorting and filtering. This article seeks by illustration …
The viewer will learn how to create a normally distributed random variable in Excel, use a normal distribution to simulate the return on an investment over a period of years, Create a Monte Carlo simulation using a normal random variable, and calcul…
This Micro Tutorial will demonstrate on a Mac how to change the sort order for chart legend values and decrpyt the intimidating chart menu.
Suggested Courses
Course of the Month8 days, 6 hours left to enroll
585 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.