Vlookups Vba

[brettvba]

Hi Ppl,

I have written the following code to provide a vlookup function for my textbox this works great.

Problem is if the vlookup can't find the value is assigns the value of Desc to be Error 2042 which when used comes out as #N/A.

Question is how can I pick up that error and direct my actions accordingly?

With Sheets("Sheet1")
Desc = Application.VLookup(CDbl(ProdCode), Range("A:D"), 3, False)
End With

Any Help is appreciated

Rgds Brett

 

[Legacy 98055]

Hi Brett.
Place this below your lookup code to test the type returned.<pre>
Debug.Print TypeName(Desc)
If TypeName(Desc) = "Error" Then
'solve problem
End If</pre>
Tom

By the way, I'm assuming that Desc is a variant. This may or may not matter.
This message was edited by TsTom on 2002-10-13 21:23

 

[brettvba]

That was all I needed, and yes Desc is a variant, thanks Tom