add a dropdown calendar to a worksheet?

[rongripon]

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

 

[Mike Fogleman]

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

 

[Nozza]

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

 

[Ron de Bruin]

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

 

[Ron de Bruin]

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