Help with VBA date

[FortisChet]

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

 

[Dave Peterson]

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

 

[FortisChet]

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 Dave

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

truly
chet

 

[Dave Peterson]

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.