Finding a value

[cecil]

I want to retrieve the value in column B, which corresponds with text in column A. For example I might look for the keyword "DBServerName" in column A and retrieve "Oracle_Server_1" from column B. Currently I am using a for/next loop, with a compare in each itteration, and it works fine. Is there a better way, like a Vlookup for VBA?

Just wondering. Thanks.

[Jan Karel Pieterse]

Application.WorksheetFunction.vlookup perhaps?

[HansV]

To expand on Jan Karel's reply:

Code: Select all

Dim strKeyword As String
Dim strResult As String
Dim rngRange As Range
strKeyword = "DBServerName"
Set rngRange = ActiveSheet.Range("A:B")
strResult = Application.WorksheetFunction.VLookup(strKeyWord, rngRange, 2, False)