Application.WorksheetFunction.VLookup (Plz Help)

[Raj]

Hi,

I have been working on Excel VBA for some time now.. Actually what
i want to do is quite simple. i want to copy data from another sheet
in the same workbook checking the keyfield coloumn and i am trying to
get the values using the Application.WorksheetFunction.VLookup
like the syntax
given :"(Application.WorksheetFunction.VLookup(SearchString, MyRange,
ReturnCol, False)") but the range is not coming through properly.When
i try to check the range in the immediate window it gives me a type
mismatch error... I am fetching the range as given below "(Set MyRange
= Sheets("SheetName (2)").Range("A7:B20")").... Can anyone please help
me on this it would be great if any one in the group can...

 

[Bob Phillips]

This works fine for me

SearchString = "abc"
ReturnCol = 2
Set MyRange = Sheets("SheetName (2)").Range("A7:B20")
x = Application.WorksheetFunction.VLookup(SearchString, MyRange, ReturnCol,
False)


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[Raj]

This works fine for me

SearchString = "abc"
ReturnCol = 2
Set MyRange = Sheets("SheetName (2)").Range("A7:B20")
x = Application.WorksheetFunction.VLookup(SearchString, MyRange, ReturnCol,
False)

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)







- Show quoted text -

Is there any version problem.. I am using Office 2000 here....

 

[Dave Peterson]

You may want to post the code you used.

I like:

dim Res as variant
dim SomeValue as variant 'or string or long???
dim myRng as range
Set MyRange = Sheets("SheetName (2)").Range("A7:B20")
somevalue = "what goes here"
res = application.vlookup(somevalue,myrange,2, false)

if iserror(res) then
msgbox "an error was returned"
else
mesgbox res
end if

Notice that I didn't use application.worksheetfunction.vlookup.

 

[Raj]

You may want to post the code you used.

I like:

dim Res as variant
dim SomeValue as variant 'or string or long???
dim myRng as range
Set MyRange = Sheets("SheetName (2)").Range("A7:B20")
somevalue = "what goes here"
res = application.vlookup(somevalue,myrange,2, false)

if iserror(res) then
msgbox "an error was returned"
else
mesgbox res
end if

Notice that I didn't use application.worksheetfunction.vlookup.







--

Dave Peterson- Hide quoted text -

- Show quoted text -

thanks for all of yor valued time in it.......... i found out a
another way which is working fine till now by putting the formula in
the cell and then getting the value for the same as given below.....

Range(pCol & iRow).Formula = _
"=VLOOKUP(" & pKeyCol & iRow & ",'" & sSchSheet & "'!"
& _
sRange & "," & SvlookupCol & ",0)"
Range(pCol & iRow).Value = Range(pCol & iRow).Text