Combo boxes

P

Pozzo

I would like to have a combo box on my worksheet, from which a user ca
select a date. It needs to default to the current date, but the lis
needs to include dates from the past two weeks and the next two.
Unfortunately, I have little idea how to go about achieving this - I'
not even sure which event I need to attach code to.

Any help appreciated
 
J

jeff

Hi,

How about using a calendar itself? you can insert
the calendar control (Insert>object> calendar control)

then add this macro code, which will bring up the
calendar in cells A1:A20 (adjust as necessary).
Jeff

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

Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Application.Intersect(Range("A1:A20"), Target)
Is Nothing Then
Calendar1.Left = Target.Left + Target.Width -
Calendar1.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Visible = True
' select Today's date in the Calendar
Calendar1.Value = Date
Else: Calendar1.Visible = False
End If
End Sub
 
Top