Match cell value in another workbook & return adjacent cell value

[WT2008]

I'm using the following code and it does exactly what I need. Only issue: I have to drag from row 2 to 62,000 or more from several files several times a day. It became a big time consuming.

I need to do this via macro.

=IF(COUNTIF([external.xls]Sheet1!$A$1:$A$100000,A2),VLOOKUP(A2,[external.xls]Sheet1!$A$1:$Z$62000,2,FALSE),0)


Basically this code match the values in column A in both files and insert the value of the column B of the external file in a column specified in the working file. The column to insert the value is specified with the number you can see just before "FALSE".

Thank you in advance.

[rcm]

only thing missing is the right destinationcol...

Sub match()
'=IF(COUNTIF([external.xls]Sheet1!$A$1:$A$100000,A2),VLOOKUP(A2,[external.xls]Sheet1!$A$1:$Z$62000,2,FALSE),0)

On Error Resume Next

Dim r, rmax, ws, ws2, destinationcol

destinationcol = 2

ws = Sheets("sheet1")
ws2 = Workbook("external.xls").Sheets("sheet1")

rmax = ws.Range("A" & Rows.Count).End(xlUp).Row

For r = 2 To rmax
j = 0
j = Application.WorksheetFunction.match(ws.Cells(r, 1), ws2.Range("A:A"), 0)
If j > 0 Then
ws.Cells(r, destinationcol) = ws2.Cells(j, 2)
End If
Next r

End Sub

[WT2008]

Hi rcm,
Thank you for your reply.

Actually I got this error:

Sub or function not defined on this line: ws2 = Workbook("chambersNJ.xlsx").Sheets("sheet1")

The destination column is not always the same. I use the number before FALSE to indicate on which one I want insert the values. In the example provided, destination column is B.

[Rhudi]

would it also be possible to make this start at and below a specific row on each sheet (to skip a different number of 'header lines' on each sheet)?

[rcm]

#1
try

ws2 = Workbooks("chambersNJ.xlsx").Sheets("sheet1")

my mistake

#2

send a sample of the sheets.. or is there an especific characteristic in the first line of data?

[Rhudi]

The data is a column of VLAN numbers paired to a column of customer names.

I import data from another application that gives me customer names. I have to research and determine VLAN numbers through other applications. As I do that, I log into another system and determine which MAC address is used by the VLAN from the first sheet. I enter that VLAN on the second sheet and have to go back to the first to copy and paste the customer name. This VLOOKUP idea sounds like the perfect lazy way out.
The first sheet has customer names starting on H14. I will have to determine the VLAN number to enter in G14. The second sheet starts on row 6. As I determine VLAN numbers, I enter them starting at E6. I will only find VLAN numbers based on the name in the first sheet. So, when I put a matching VLAN number in Column E, I would like it to match that number on the other sheet in column G, copy the customer name in column H and put that into column D on the second sheet.

[WT2008]

Hi rcm,

Now I don't get error but nothing happen. Here are some samples of sheets for better understanding.

The file external.xls has over 20,000 email addresses in column A, a URL in column B and other data on other columns.
The file chamberNJ.xls has email addresses in column A. Some of these emails are also in the file external.xls.

I want run the macro and for each email in chamberNJ.xls that match the email in file external.xls, insert the column B value of external.xls in a given column of file chamberNJ.xls.

I already ran my code on file chamberNJ.xls, Column C so you can see how it works.

I need to be able to specify the column giving the data and the column receiving the data. Actually what I do is run the code in the column I want receive the data. Once it is automatic, it should be indicated on code, right?

Thank you for your help, I appreciate that.

[rcm]

please send a sample with dummy names an vlans, i'll adjust the macro to fit in

[Rhudi]

Tab1:
A	B	C	D	E	F	G	H			I		J
	1					123	CUSTOMER NAME	123456789	123456y
Tab2:
A	B	C	D		E
	1		CUSTOMER NAME	123

In Tab1, I will be given a list of customer names in ColumnH. I have to manually find and enter a number from another app into ColumnG for that customer.
When I switch to Tab2 and find the line to enter the same number in ColumnE, if that number is inTab1:G, copy the name from Tab1:H to Tab2:D.

[Richard Buttrey]

@Rhudi

your post does not comply with Rule 2 of our Forum RULES. Do not post a question in the thread of another member -- start your own thread. With 21 posts you really should know this.

If you feel an existing thread is particularly relevant to your need, provide a link to the other thread in your new thread.

Old threads are often only monitored by the original participants. New threads not only open you up to all possible participants again, they typically get faster response, too.

[rcm]

try the macro on the ..NJ.xls workbook. have the external.xls openned as well.

[Rhudi]

Please forgive my inappropriate tag-along question. If a moderator could remove my entries on this, I would be grateful.

[WT2008]

rcm,
I must say this is AWSOME! - It does exactly what I wanted. Thank you for helping me on this.

There is only one question left, How can I put the "0" in the rows that does not match as I did with the manual code?