I would like to use a simple method to add a dropdown calendar to a worksheet
--
RGGSR

Here is some code I have in a worksheet module:

Private Sub Calendar1_Click()
ActiveCell.NumberFormat = "m/d/yyyy"
ActiveCell = Calendar1.Value
Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Range("O6"), Target) Is Nothing Then
Calendar1.Left = Target.Left + Target.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Value = Date
Calendar1.Visible = True
ElseIf Not Application.Intersect(Range("D2127"), Target) Is Nothing Then
Calendar1.Left = Target.Left + Target.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Visible = True
Else
Calendar1.Visible = False
Exit Sub
End If
End Sub

Mike F
"rongripon" <(E-Mail Removed)> wrote in message
news:CBF74E90-79B7-4527-BB3F-(E-Mail Removed)...
>I would like to use a simple method to add a dropdown calendar to a
>worksheet
> --
> RGGSR

On Sun, 16 Dec 2007 04:56:01 -0800, rongripon
<(E-Mail Removed)> wrote:

>I would like to use a simple method to add a dropdown calendar to a worksheet

http://my.opera.com/schnedster/blog/

has an example of this, plus a walkthrough of how to get it working.

Noz
--
Email (ROT13)
(E-Mail Removed)

See this page for more info
http://www.rondebruin.nl/calendar.htm

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"rongripon" <(E-Mail Removed)> wrote in message news:CBF74E90-79B7-4527-BB3F-(E-Mail Removed)...
>I would like to use a simple method to add a dropdown calendar to a worksheet
> --
> RGGSR

You can use this for a range with more areas Mike

Note: You can use this if your range is not one area
If Not Application.Intersect(Range("A1:A20,C1,E1"), Target) Is Nothing Then

See my webpage


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Mike Fogleman" <(E-Mail Removed)> wrote in message news:maednTv-(E-Mail Removed)...
> Here is some code I have in a worksheet module:
>
> Private Sub Calendar1_Click()
> ActiveCell.NumberFormat = "m/d/yyyy"
> ActiveCell = Calendar1.Value
> Calendar1.Visible = False
> End Sub
>
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> If Not Application.Intersect(Range("O6"), Target) Is Nothing Then
> Calendar1.Left = Target.Left + Target.Width
> Calendar1.Top = Target.Top + Target.Height
> Calendar1.Value = Date
> Calendar1.Visible = True
> ElseIf Not Application.Intersect(Range("D2127"), Target) Is Nothing Then
> Calendar1.Left = Target.Left + Target.Width
> Calendar1.Top = Target.Top + Target.Height
> Calendar1.Visible = True
> Else
> Calendar1.Visible = False
> Exit Sub
> End If
> End Sub
>
> Mike F
> "rongripon" <(E-Mail Removed)> wrote in message
> news:CBF74E90-79B7-4527-BB3F-(E-Mail Removed)...
>>I would like to use a simple method to add a dropdown calendar to a
>>worksheet
>> --
>> RGGSR
>
>