Date from InputBox

M

Michael

I need to include in my macro a user defined date field,
i.e show all invoices before a certain date. I have tried
this with Myvalue = InputBox("Enter a date") but this
returns a value not a date when added to a cell in the
worksheet.

Any help would be greatly appreciated.

Thanks
Michael
 
N

Norman Jones

Hi Michael,

Try something like:

myValue = InputBox("Enter a date")
Range("A1").Value = Format(myValue, ("mm/dd/yy"))
 
C

chris

3 things:
1: Give a date format example in your Prompt: "Enter Date: ex.( 01/02/2001)
2: Do a test: If Not IsDate(MyValue) then Msgbox " Invalid Date Given
and prompt the user to do whatever calls the Inputbox again, or recall InputBo
Click to expand...
3: Convert uers value to a date: MyRng.Calue = CvDate(MyValue)
----- Michael wrote: ----

I need to include in my macro a user defined date field,
i.e show all invoices before a certain date. I have tried
this with Myvalue = InputBox("Enter a date") but this
returns a value not a date when added to a cell in the
worksheet.

Any help would be greatly appreciated

Thank
Michae
 
Top