Excel Date Picker

[sutclpa]

Hi All,

I have been trying to insert a calander function into an excel worksheet, and have come across the Date Picker function.

So far i have placed this directly onto my worksheet and linked the object directly to a cell. The problem i am having is that when i select a date from the calander, it is placed into the cell as text which is subsequently messing with my formulas.

Is there a way to amend this so that the cell value is entered as a date?

 

[ADAMC]

Sounds like you need to format your cells or colums as date format.

Highlight your range
Right click
Format cells
Choose 'date'
Select which formatting you like

 

[Lewiy]

Have you looked at the Calendar control? This is usually found under the “More Tools” button on the Control Toolbox toolbar.

 

[ADAMC]

This is a calendar add in i use, its pretty cool:

http://www.automateexcel.com/index.php/2005/02/14/excel_calendar_picker_addin

 

[sutclpa]

Hi,

The cells are already formated as dates, however the date picker overwrites this.

Also, unfortunately i do not have the calander function installed which is why i've plumped for the date picker instead. Thanks for the link to the addin, but i am trying to avoid doing thing this way as i will have to distribute the sheet to several people when complete.

 

[sutclpa]

Hi All,

I have resolved this now. In case anybody is interested, i did it by adding the following code to the VBA code associated with the object.

Private Sub DTPicker2_CloseUp()
Range("E4").Select
Selection.TextToColumns Destination:=Range("E4"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 4)
End Sub

Basically it utilises the text to columns function from excel and performs it each time a new value is selected.