Help with VBA date

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

FortisChet@gmail.com - 17 Sep 2007 16:31 GMT

Hi

I'm having issues with the following - pls help.

Dim myDt as variant
myDt = dateserial(myYr, myMonth,1)

myVariable = application.worksheetfunction.vlookup(myDt,Range("FUEL"),
3,false)

gives me an error 2042.
I've no clue what's going on here. Can anyone pls help??

thanks
chet

Reply to this Message

Dave Peterson - 17 Sep 2007 17:09 GMT

I'd try this next:

Dim myDt as Date
dim myVariable as variant 'could be an error

myDt = dateserial(myYr, myMonth, 1)

myVariable = application.vlookup(clng(mydt),range("fuel",3, false)

if iserror(myVariable) then
msgbox "not found"
else
msgbox myVariable
end if

> Hi
>
[quoted text clipped - 11 lines]
> thanks
> chet

Signature

Dave Peterson

Reply to this Message

FortisChet@gmail.com - 17 Sep 2007 17:52 GMT

> I'd try this next:
>
[quoted text clipped - 32 lines]
>
> Dave Peterson

Hi Dave

Thanks so much for your help. This works perfectly! Clng did the
trick.

truly
chet

Reply to this Message

Dave Peterson - 17 Sep 2007 19:43 GMT

And by using application.vlookup() instead of
application.worksheetfunction.vlookup(), I could check to see what was returned.

I didn't have to program around a possible runtime error.

> > I'd try this next:
> >
[quoted text clipped - 40 lines]
> truly
> chet

Signature

Dave Peterson

Reply to this Message