find matching entry, then copy and paste

[gloriag]

I'm not familiar with VBA. I tried to search for a code to perform the task below, unfortunately I haven’t able to find the code in my searches. Please help me.

I have two workbooks (WB1 is attached). I would like to create a macro that will do the following:-



loop through the column named “Code” in WB1 and search for a match for the cell in the column “Inventory ID” of WB2. If it finds a match, it will copy the corresponding value in the column “Total” of WB2 to the column “Apple” in WB1. For example, the value of apple of the code ABC in WB1 should be changed to “3534.00”.
for those “Inventory ID” of WB2 that doesn’t match the “Code” in WB1, it will copy both “Inventory ID” and the corresponding value to the end of the “Code” and “Apple”.



WB2 is a pivot table as below



Sum of Inventory Value



Inventory ID
Total


ABC
3,534.00


DEF
12,276.00


FRE
8,607.00


GHI
3,248.00


IN0001
1,275.00


IN0005
4,650.00


IN0008
3,838.00


IN0009
7,198.00


IN0012
396.00


IN0013
1,872.00


IN0014
2,604.00


IN0016
8,640.00


IN0017
5,529.00


IN0018
72.00


IN0019
11,726.00


IN0020
1,984.00


IN0021
2,128.00


IN0022
4,368.00


IN0023
3,074.00


IN0024
12,975.00


IN0025
392.00


LOK
55.00


MIL
1,472.00


MKO
8,750.00


MNO
10,384.00


Grand Total
121,047.00

[DILIPandey]

Hi gloriag,


I guess it can be achieved using lookup functions or you need vba solution only ?
Can you attach the other workbook as well? Thanks.

Regards,
DILIPandey

[gloriag]

Dear DILIPandey

I need vba solution as some value in the column "Apple" of WB1 might not be changed if "Inventory ID" is not matched with WB2. Attached please find the WB2 per your request.


Regards
gloriag