Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Form Date picker
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Form Date picker
A little more detail would help us help you.
Mike F "Rob Hargreaves" wrote in message ... 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Form Date picker
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Form Date picker
Start here
http://www.rondebruin.nl/calendar.htm -- Regards Ron de Bruin http://www.rondebruin.nl "Rob" wrote in message ... 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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Form Date picker
Thanks Ron
I will let you know if I have any problems -----Original Message----- Start here http://www.rondebruin.nl/calendar.htm -- Regards Ron de Bruin http://www.rondebruin.nl "Rob" wrote in message ... 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 . |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Form Date picker
Ron,
That has worked for me a treat, thank you. One thing I would like to do is make it so the date cannot be picked if it is after "today". How can I get a message box to come up and say "The date must be before now" Regards Rob -----Original Message----- Start here http://www.rondebruin.nl/calendar.htm -- Regards Ron de Bruin http://www.rondebruin.nl "Rob" wrote in message ... 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 . |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Form Date picker
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 -- Regards Ron de Bruin http://www.rondebruin.nl "Rob" wrote in message ... Ron, That has worked for me a treat, thank you. One thing I would like to do is make it so the date cannot be picked if it is after "today". How can I get a message box to come up and say "The date must be before now" Regards Rob -----Original Message----- Start here http://www.rondebruin.nl/calendar.htm -- Regards Ron de Bruin http://www.rondebruin.nl "Rob" wrote in message ... 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 . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Date Picker | Excel Discussion (Misc queries) | |||
Date Picker | Excel Discussion (Misc queries) | |||
Date Picker | Excel Discussion (Misc queries) | |||
How to create a calender picker on the form | Excel Discussion (Misc queries) | |||
Date picker? | Excel Programming |