Solved

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

Posted on 2014-12-17
11
4,431 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 5
  • 4
  • 2
11 Comments
 
LVL 48

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 24

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
PeopleSoft Has Never Been Easier

PeopleSoft Adoption Made Smooth & Simple!

On-The-Job Training Is made Intuitive & Easy With WalkMe's On-Screen Guidance Tool.  Claim Your Free WalkMe Account Now

 

Author Comment

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

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 48

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 48

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 48

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

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

Question has a verified solution.

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

Some code to ensure data integrity when using macros within Excel. Also included code that helps secure your data within an Excel workbook.
When you see single cell contains number and text, and you have to get any date out of it seems like cracking our heads.
This Micro Tutorial demonstrates using Microsoft Excel pivot tables, how to reverse engineer competitors' marketing strategies through backlinks.
This Micro Tutorial will demonstrate the scrolling table in Microsoft Excel using the INDEX function.

622 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