Help with VBA date
 

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

Help with VBA date
 

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



" wrote:

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

Help with VBA date
 

On Sep 17, 11:09 am, Dave Peterson wrote:
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



" wrote:

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

Hi Dave

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

truly
chet

Help with VBA date
 

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.



" wrote:

On Sep 17, 11:09 am, Dave Peterson wrote:
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



" wrote:

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

Hi Dave

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

truly
chet

--

Dave Peterson