VBA using VLookUp

N

ND Pard

I have two workbooks open: book2.xls and Dept_IDs.xls

I want to use VBA to determine if a value in cell A7 of Sheet1 of book2.xls
needs to have its cell colored based on the 3rd column of data in a range
named: Dept_ID_T in the workbook: Dept_IDs.

IE, if the
VLookUp([book2.xls]Sheet1!A7,[Dept_IDs_0911.xls]Dept_ID_T_WS!Dept_ID_T,3,FALSE) = "410-50", then I want to color cell A7 a light yellow.

What's the VBA to determine if the vLookUp would return the value "410-50"?

Your help will be appreciated.

Thanks.
 
J

Joel

Try this. I used FIND instead of VLOOKUP. I also set variables for each
item to make it easier to understand the code and to debug the code.

Set bk = thisworkbook
Set sht = bk.sheets("Sheet1")

Set Deptbk = workbooks("Dept_IDs_0911.xls")
set DeptSht = Deptbk.sheets("Dept_ID_T_WS")

LookupValue = sht.range("A7")
set c = DeptSht.Range(Dept_ID_T).find(what:=LookupValue, _
lookin:=xlvalues,lookat:=xlwhole)
if c is nothing then
msgbox("did not find : " & Lookupvalue)
else
'get column 3 of table
Col_3 = c.offset(0,2)
if Col_3.value = "410-50" then
sht.range("A7").interior.colorindex = 6
end if
end if
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top