Form Date picker

Hi,

Do you know if I can get a coded date picker to work in
my excel sheet I need it to output to a cell on the sheet.

Thanks

Rob

A little more detail would help us help you.
Mike F
"Rob Hargreaves" <[email protected]> wrote in message
news:[email protected]...
> Hi,
>
> Do you know if I can get a coded date picker to work in
> my excel sheet I need it to output to a cell on the sheet.
>
> Thanks
>
> Rob

Mike,

I have got an open worksheet and on there I have through
the form toolbar added a calendar 10.0

The calendar is sitting just where and is formatted as I
would like too.

I have been trying to write this -

Private Sub Calendar1_AfterUpdate()

'Application.Worksheets("Daily").Range("C4").Value =
Calendar1.Value
Application.Worksheets("Daily").Range("C4").Value =
Calendar1.Value

End Sub

can you tell me where I am wrong?

- The sheet the calendar is on and the sheet I want the
output to is called "Daily"
- I want to click on any date and the cell C4 will update
with the value selected on the calendar

Thanks

Rob

Start here
http://www.rondebruin.nl/calendar.htm



--
Regards Ron de Bruin
http://www.rondebruin.nl



"Rob" <[email protected]> wrote in message news:[email protected]...
> Mike,
>
> I have got an open worksheet and on there I have through
> the form toolbar added a calendar 10.0
>
> The calendar is sitting just where and is formatted as I
> would like too.
>
> I have been trying to write this -
>
> Private Sub Calendar1_AfterUpdate()
>
> 'Application.Worksheets("Daily").Range("C4").Value =
> Calendar1.Value
> Application.Worksheets("Daily").Range("C4").Value =
> Calendar1.Value
>
> End Sub
>
> can you tell me where I am wrong?
>
> - The sheet the calendar is on and the sheet I want the
> output to is called "Daily"
> - I want to click on any date and the cell C4 will update
> with the value selected on the calendar
>
> Thanks
>
> Rob

Thanks Ron

I will let you know if I have any problems

>-----Original Message-----
>Start here
>http://www.rondebruin.nl/calendar.htm
>
>
>
>--
>Regards Ron de Bruin
>http://www.rondebruin.nl
>
>
>
>"Rob" <[email protected]> wrote in
message news:[email protected]...
>> Mike,
>>
>> I have got an open worksheet and on there I have
through
>> the form toolbar added a calendar 10.0
>>
>> The calendar is sitting just where and is formatted
as I
>> would like too.
>>
>> I have been trying to write this -
>>
>> Private Sub Calendar1_AfterUpdate()
>>
>> 'Application.Worksheets("Daily").Range("C4").Value =
>> Calendar1.Value
>> Application.Worksheets("Daily").Range("C4").Value =
>> Calendar1.Value
>>
>> End Sub
>>
>> can you tell me where I am wrong?
>>
>> - The sheet the calendar is on and the sheet I want the
>> output to is called "Daily"
>> - I want to click on any date and the cell C4 will
update
>> with the value selected on the calendar
>>
>> Thanks
>>
>> Rob
>
>
>.
>

Ron,

That has worked for me a treat, thank you.

One thing I would like to do is make it so the date
cannot be picked if it is after "today".

How can I get a message box to come up and say "The date
must be before now"

Regards

Rob
>-----Original Message-----
>Start here
>http://www.rondebruin.nl/calendar.htm
>
>
>
>--
>Regards Ron de Bruin
>http://www.rondebruin.nl
>
>
>
>"Rob" <[email protected]> wrote in
message news:[email protected]...
>> Mike,
>>
>> I have got an open worksheet and on there I have
through
>> the form toolbar added a calendar 10.0
>>
>> The calendar is sitting just where and is formatted
as I
>> would like too.
>>
>> I have been trying to write this -
>>
>> Private Sub Calendar1_AfterUpdate()
>>
>> 'Application.Worksheets("Daily").Range("C4").Value =
>> Calendar1.Value
>> Application.Worksheets("Daily").Range("C4").Value =
>> Calendar1.Value
>>
>> End Sub
>>
>> can you tell me where I am wrong?
>>
>> - The sheet the calendar is on and the sheet I want the
>> output to is called "Daily"
>> - I want to click on any date and the cell C4 will
update
>> with the value selected on the calendar
>>
>> Thanks
>>
>> Rob
>
>
>.
>

Use this

Private Sub Calendar1_Click()
If CDbl(Calendar1.Value) > Date Then
MsgBox "The date must be before now"
Else
ActiveCell.Value = CDbl(Calendar1.Value)
ActiveCell.NumberFormat = "mm/dd/yyyy"
ActiveCell.Select
End If
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl



"Rob" <[email protected]> wrote in message news:[email protected]...
> Ron,
>
> That has worked for me a treat, thank you.
>
> One thing I would like to do is make it so the date
> cannot be picked if it is after "today".
>
> How can I get a message box to come up and say "The date
> must be before now"
>
> Regards
>
> Rob
>>-----Original Message-----
>>Start here
>>http://www.rondebruin.nl/calendar.htm
>>
>>
>>
>>--
>>Regards Ron de Bruin
>>http://www.rondebruin.nl
>>
>>
>>
>>"Rob" <[email protected]> wrote in
> message news:[email protected]...
>>> Mike,
>>>
>>> I have got an open worksheet and on there I have
> through
>>> the form toolbar added a calendar 10.0
>>>
>>> The calendar is sitting just where and is formatted
> as I
>>> would like too.
>>>
>>> I have been trying to write this -
>>>
>>> Private Sub Calendar1_AfterUpdate()
>>>
>>> 'Application.Worksheets("Daily").Range("C4").Value =
>>> Calendar1.Value
>>> Application.Worksheets("Daily").Range("C4").Value =
>>> Calendar1.Value
>>>
>>> End Sub
>>>
>>> can you tell me where I am wrong?
>>>
>>> - The sheet the calendar is on and the sheet I want the
>>> output to is called "Daily"
>>> - I want to click on any date and the cell C4 will
> update
>>> with the value selected on the calendar
>>>
>>> Thanks
>>>
>>> Rob
>>
>>
>>.
>>