inputbox

  • Thread starter Thread starter defj
  • Start date Start date
D

defj

How would I get an inputbox variable to be returned as a
date? I want the user to input a date...the date is then
compared with a list of other dates until the program
finds a date greater than the one entered. The inputbox
returns a string so it won't compare the variable with the
list of dates. Is there a way to convert a string to a
date?
 
y = inputbox("enter date","Date")
x=1
do until y < worksheets("").cells(x,2) list of dates
x=x+1
loop

the error I'm getting is that x is "overflowed" (because
it doesn't find a date greater than the one entered)
Though when I look at the list, there are dates greater
than the one entered.
 
one way:

Dim result As Variant
Do
result = Application.InputBox("Enter date:", Type:=2)
If result = False Then Exit Sub 'User clicked Cancel
Loop Until IsDate(result)
result = CDate(result)
 
works like a charm-

thnx
-----Original Message-----
one way:

Dim result As Variant
Do
result = Application.InputBox("Enter date:", Type:=2)
If result = False Then Exit Sub 'User clicked Cancel
Loop Until IsDate(result)
result = CDate(result)



.
Click to expand...
 
Back
Top