Solved

How do I add a date picker to a text box in a  userform in Excel 2007

Posted on 2014-12-17
11
3,587 Views
Last Modified: 2014-12-18
How do I add a date picker to a text box in a  userform in Excel 2007
0
Comment
Question by:bjfulkerson
  • 5
  • 4
  • 2
11 Comments
 
LVL 46

Expert Comment

by:Martin Liss
ID: 40506019
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?
0
 

Author Comment

by:bjfulkerson
ID: 40506780
I want to be able to pick a date from a calendar and populate a text box with that date.
0
 
LVL 23

Expert Comment

by:Eirman
ID: 40506787
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
0
ScreenConnect 6.0 Free Trial

Check out the updates in one game-changing release, ScreenConnect 6.0, based on partner feedback. New features include a redesigned UI that improves session organization and overall user experience. See the enhancements for yourself!

 

Author Comment

by:bjfulkerson
ID: 40506797
Can this be done in a userForm
0
 
LVL 23

Expert Comment

by:Eirman
ID: 40506808
Can this be done in a userForm
The 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
0
 
LVL 46

Accepted Solution

by:
Martin Liss earned 500 total points
ID: 40507365
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

Private Sub DTPicker1_Change()
TextBox1.Text = DTPicker1.Value
End Sub

Open in new window

0
 

Author Comment

by:bjfulkerson
ID: 40507417
I am on Excel 2007, and I do not see that option.
0
 
LVL 46

Expert Comment

by:Martin Liss
ID: 40507432
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
0
 

Author Comment

by:bjfulkerson
ID: 40507439
I got it to work.  

Private Sub Calendar1_Click()
TxtDate.Text = Calendar1.Value
End Sub
0
 
LVL 46

Expert Comment

by:Martin Liss
ID: 40507452
I suggest you use the Change event instead.

Private Sub Calendar1_Change()
TxtDate.Text = Calendar1.Value
End Sub

Open in new window


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
0
 

Author Comment

by:bjfulkerson
ID: 40507464
Thanks
0

Featured Post

PRTG Network Monitor: Intuitive Network Monitoring

Network Monitoring is essential to ensure that computer systems and network devices are running. Use PRTG to monitor LANs, servers, websites, applications and devices, bandwidth, virtual environments, remote systems, IoT, and many more. PRTG is easy to set up & use.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

A little background as to how I came to I design this code: Around 5 years ago I designed an add-in that formatted Excel files to a corporate standard, applying different cell colours and font type depending on whether the cells contained inputs,…
This code takes an Excel list of URL’s and adds a header titled “URL List”. It then searches through all URL’s in column “A”, looking for duplicates. When a duplicate is found, it is moved to the top of the list. The duplicate URL’s are then highlig…
This Micro Tutorial demonstrate the bugs in Microsoft Excel for Mac with Pivot Charts.
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…

770 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question