Need to grab data from one workbook , move to another

Noir

Active Member
Joined
Mar 24, 2002
Messages
362
I have a workbook named "Production Inventory". This workbook has a series of serial numbers in Column L and a series of PO#'s in column B. In my second workbook named "Master List", I have all of the serial numbers (from Production Inventory column L)listed in column B.

I need to grab the PO#'s from Production Inventory column B and match them to the appropriate serial numbers in Master List column B. The PO#'s will be deposited into column S on Master List. (BTW, the serial numbers on Master List are no longer in the order per Production Inventory).

Any ideas?

Thx,
Noir
 

Excel Facts

Can a formula spear through sheets?
Use =SUM(January:December!E7) to sum E7 on all of the sheets from January through December
Hello Noir

Look if this code will work for you

Sub TotalValues()
NxtVal:
Total = 0
On Error GoTo NoVal 'The value is not in Column A
A_Val = Application.InputBox("Value to Find in Column A")
If A_Val = False Then Exit Sub
B_Val = Range("A1:A6").Find(What:=A_Val, _
LookAt:=xlWhole).Offset(0, 1).Value
On Error GoTo NoSpace 'The value in Column B does not contain a space StrippedVal = Left(B_Val, WorksheetFunction.Find(" ", B_Val) - 1) On Error GoTo NoSpaceInList 'Some values in list may not contain a space
For Each thing In Range("B1:B6")
If Left(thing.Value, WorksheetFunction.Find(" ", thing.Value) - 1) _
= StrippedVal Then Total = Total + Cells(thing.Row, 3)
NoSpaceInList:
Resume ChkAgn
ChkAgn:
Next
GoTo Done
NoSpace:
StrippedVal = B_Val
Total = Range("B1:B6").Find(What:=B_Val, _
LookAt:=xlWhole).Offset(0, 1).Value
Resume Done
Done:
MsgBox "The Total For " & StrippedVal & " Is " & Total
GoTo NxtVal
NoVal:
MsgBox "Sorry, That Value Is Not Listed"
Resume NxtVal
End Sub

If it does not work for you,,,,,,mail me
 
Upvote 0
Gareth,
Thanks for the code but, i am not familiar enough with code to be able to tell if i can use it or not.

Noir
 
Upvote 0
Another thing Noir

Dont forget to manipulate the code so you can use it to fit in your worksheet (Need help)
 
Upvote 0
Another thing Noir

Dont forget to manipulate the code so you can use it to fit in your worksheet (Need help)
 
Upvote 0
If you need to contact me my profile is on page 117 on top

That's where you will find my history

Contact me please
 
Upvote 0
Yes Gareth, i will definitely need help manipulating your code to my requirements.

Thx,
Noir
 
Upvote 0

Forum statistics

Threads
1,213,487
Messages
6,113,941
Members
448,534
Latest member
benefuexx

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top