Hi Ron,

Ignore my previous reply - I've managed to fix the problem of the date - i
didn't see the fomat within the code..
Thanks anyway

But do you know if there is a way of when you select the cell and a date,
just one click on the date to remove the calender rather than selecting
another cell or pressing enter and is there an icon you can use..? (pretty
much similar to a web based calendar form..?)

Thanks in advance..


"Ron de Bruin" wrote:

Hi Darren

Which Excel version do you use ?
You have a protected sheet ?

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



"Darren" wrote in message ...
Hi Ron,

Thanks for displaying the information on how to load a calendar.
I have a couple of questions if you can help please?

Is there a way of when you click on the cell the calendar pops up to only
select the date once via the mouse and the pop up calendar disappears rather
than you clicking enter or clicking on other cell?
Also I am having problems changing the date format to UK - I have changed
this in the format cells section, but it reverts back to US version for each
date selected? - Is there any way you can lock the format?

Thanks

"Ron de Bruin" wrote:

Hi Drahos

Maybe the Calendar you have add to the worksheet is not named
Calendar1

Check out the name

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


"Drahos" wrote in message ...
Hi Paul,
I need to use in my Excel Form a calender as described. I have done what
was recommeded on the webside you are reffering to. While choosing a cell
from the range where should be the calendar I receive the Runtime error "424"
- object required and the Debug shows this line:
Calendar1.Left = Target.Left + Target.Width - Calendar1.Width

If choosing a cell outside of the range I receive the same runtime error and
the Debug shows this line:

ElseIf Calendar1.Visible Then Calendar1.Visible = False

I use the Excel 2003.

Please, can you advice me what the problem is.
Thanks a lot.


"Paul B" wrote:

halina, here is one way,
http://www.rondebruin.nl/calendar.htm
--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003


"halina" wrote in message
...

Hi Darren

You can use a macro and assign it to a button if you want
Delete the selection change event and use this in the sheet module

Private Sub Calendar1_Click()
ActiveCell.Value = CDbl(Calendar1.Value)
ActiveCell.NumberFormat = "mm/dd/yyyy"
ActiveCell.Select
Calendar1.Visible = False
End Sub


Copy this in a normal module

Sub Call_Calendar()
With Sheets("Sheet1")
If Not Application.Intersect(.Range("A1:A10"), ActiveCell) Is Nothing Then
.Calendar1.Left = ActiveCell.Left + ActiveCell.Width - .Calendar1.Width
.Calendar1.Top = ActiveCell.Top + ActiveCell.Height
.Calendar1.Visible = True
' select Today's date in the Calendar
.Calendar1.Value = Date
ElseIf .Calendar1.Visible Then .Calendar1.Visible = False
End If
End With
End Sub


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



"Darren" wrote in message ...
Hi Ron,

Ignore my previous reply - I've managed to fix the problem of the date - i
didn't see the fomat within the code..
Thanks anyway

But do you know if there is a way of when you select the cell and a date,
just one click on the date to remove the calender rather than selecting
another cell or pressing enter and is there an icon you can use..? (pretty
much similar to a web based calendar form..?)

Thanks in advance..


"Ron de Bruin" wrote:

Hi Darren

Which Excel version do you use ?
You have a protected sheet ?

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



"Darren" wrote in message ...
Hi Ron,

Thanks for displaying the information on how to load a calendar.
I have a couple of questions if you can help please?

Is there a way of when you click on the cell the calendar pops up to only
select the date once via the mouse and the pop up calendar disappears rather
than you clicking enter or clicking on other cell?
Also I am having problems changing the date format to UK - I have changed
this in the format cells section, but it reverts back to US version for each
date selected? - Is there any way you can lock the format?

Thanks

"Ron de Bruin" wrote:

Hi Drahos

Maybe the Calendar you have add to the worksheet is not named
Calendar1

Check out the name

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


"Drahos" wrote in message ...
Hi Paul,
I need to use in my Excel Form a calender as described. I have done what
was recommeded on the webside you are reffering to. While choosing a cell
from the range where should be the calendar I receive the Runtime error "424"
- object required and the Debug shows this line:
Calendar1.Left = Target.Left + Target.Width - Calendar1.Width

If choosing a cell outside of the range I receive the same runtime error and
the Debug shows this line:

ElseIf Calendar1.Visible Then Calendar1.Visible = False

I use the Excel 2003.

Please, can you advice me what the problem is.
Thanks a lot.


"Paul B" wrote:

halina, here is one way,
http://www.rondebruin.nl/calendar.htm
--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003


"halina" wrote in message
...