Form Date picker

  • Thread starter Thread starter Rob Hargreaves
  • Start date Start date
R

Rob Hargreaves

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
 
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
 
Back
Top