I need your help guys. I know I'm not a vba expert, however, I know I hate trying to fix another persons code. I will paste example copies of the .xl pages with the vba coding next followed by the desired output last. Synoposis of product: Tab A (labeled "A Build") is the product line info. Tab B (Labeled "NB") is the product NB Name. I need to find a way to adjust the below vba so I can get the following result: if the NB name (Tab B "NB") is listed on Tab A ("A Build") then the vba will take the NB ID (Column I) and copy it over to Column M (same row adjacent).
Tab A ("A Build")
<TBODY>
</TBODY>
Tab B ("NB")
<TBODY>
</TBODY>
VBA
Desired Output
[TABLE="width: 649"]
<TBODY>[TR]
[TD]A</SPAN>
[/TD]
[TD]B</SPAN>
[/TD]
[TD]C</SPAN>
[/TD]
[TD]D</SPAN>
[/TD]
[TD]E</SPAN>
[/TD]
[TD]F</SPAN>
[/TD]
[TD]G</SPAN>
[/TD]
[TD]H</SPAN>
[/TD]
[TD]I</SPAN>
[/TD]
[TD]J</SPAN>
[/TD]
[TD]K</SPAN>
[/TD]
[TD]L</SPAN>
[/TD]
[TD]M</SPAN>
[/TD]
[/TR]
[TR]
[TD]Item ID</SPAN>
[/TD]
[TD]NB #</SPAN>
[/TD]
[TD]NB #</SPAN>
[/TD]
[TD]Item Name</SPAN>
[/TD]
[TD]Item Loc</SPAN>
[/TD]
[TD]Item Dest</SPAN>
[/TD]
[TD]Item/R Time</SPAN>
[/TD]
[TD]Air Cargo</SPAN>
[/TD]
[TD]NB ID</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]P4532</SPAN>
[/TD]
[TD]C211</SPAN>
[/TD]
[TD]C211</SPAN>
[/TD]
[TD]Spider</SPAN>
[/TD]
[TD]OERK</SPAN>
[/TD]
[TD]OFGH</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD]4352</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]4352</SPAN>
[/TD]
[/TR]
[TR]
[TD]A2158</SPAN>
[/TD]
[TD]C211</SPAN>
[/TD]
[TD]C211</SPAN>
[/TD]
[TD]David</SPAN>
[/TD]
[TD]OERK</SPAN>
[/TD]
[TD]OFGH</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD]4353</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]4353</SPAN>
[/TD]
[/TR]
[TR]
[TD]PZ4895</SPAN>
[/TD]
[TD]C211</SPAN>
[/TD]
[TD]C211</SPAN>
[/TD]
[TD]Purse</SPAN>
[/TD]
[TD]OERK</SPAN>
[/TD]
[TD]OFGH</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD]4354</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]4354</SPAN>
[/TD]
[/TR]
[TR]
[TD]A4258</SPAN>
[/TD]
[TD]C451</SPAN>
[/TD]
[TD]C451</SPAN>
[/TD]
[TD]Bear</SPAN>
[/TD]
[TD]OERK</SPAN>
[/TD]
[TD]OFGH</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD]4355</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]4355</SPAN>
[/TD]
[/TR]
[TR]
[TD]FE4525</SPAN>
[/TD]
[TD]C321</SPAN>
[/TD]
[TD]C321</SPAN>
[/TD]
[TD]Tear</SPAN>
[/TD]
[TD]OERK</SPAN>
[/TD]
[TD]OFGH</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD]4356</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]P4875</SPAN>
[/TD]
[TD]C487</SPAN>
[/TD]
[TD]C487</SPAN>
[/TD]
[TD]Taco</SPAN>
[/TD]
[TD]OERK</SPAN>
[/TD]
[TD]OFGH</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD]3530</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]P6985</SPAN>
[/TD]
[TD]C585</SPAN>
[/TD]
[TD]C585</SPAN>
[/TD]
[TD]Zipper</SPAN>
[/TD]
[TD]OERK</SPAN>
[/TD]
[TD]OFGH</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD]3531</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]PO4789</SPAN>
[/TD]
[TD]C459</SPAN>
[/TD]
[TD]C459</SPAN>
[/TD]
[TD]Punch</SPAN>
[/TD]
[TD]OERK</SPAN>
[/TD]
[TD]OFGH</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD]3532</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]3532</SPAN>
[/TD]
[/TR]
[TR]
[TD]AZ4823</SPAN>
[/TD]
[TD]C596</SPAN>
[/TD]
[TD]C596</SPAN>
[/TD]
[TD]Apexi</SPAN>
[/TD]
[TD]OERK</SPAN>
[/TD]
[TD]OFGH</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD]3533</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]P7524</SPAN>
[/TD]
[TD]HELV</SPAN>
[/TD]
[TD]C417</SPAN>
[/TD]
[TD]Drac</SPAN>
[/TD]
[TD]OERK</SPAN>
[/TD]
[TD]OFGH</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD]3534</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]3534</SPAN>
[/TD]
[/TR]
</TBODY>[/TABLE]
Thank you for all your help in this...
Tab A ("A Build")
A</SPAN> | B</SPAN> | C</SPAN> | D</SPAN> | E</SPAN> | F</SPAN> | G</SPAN> | H</SPAN> | I</SPAN> |
Item ID</SPAN> | NB #</SPAN> | NB #</SPAN> | Item Name</SPAN> | Item Loc</SPAN> | Item Dest</SPAN> | Item/Rec Time</SPAN> | Air Cargo</SPAN> | NB ID</SPAN> |
P4532</SPAN> | C211</SPAN> | C211</SPAN> | Spider</SPAN> | OERK</SPAN> | OFGH</SPAN> | 4352</SPAN> | ||
A2158</SPAN> | C211</SPAN> | C211</SPAN> | David</SPAN> | OERK</SPAN> | OFGH</SPAN> | 4353</SPAN> | ||
PZ4895</SPAN> | C211</SPAN> | C211</SPAN> | Purse</SPAN> | OERK</SPAN> | OFGH</SPAN> | 4354</SPAN> | ||
A4258</SPAN> | C451</SPAN> | C451</SPAN> | Bear</SPAN> | OERK</SPAN> | OFGH</SPAN> | 4355</SPAN> | ||
FE4525</SPAN> | C321</SPAN> | C321</SPAN> | Tear</SPAN> | OERK</SPAN> | OFGH</SPAN> | 4356</SPAN> | ||
P4875</SPAN> | C487</SPAN> | C487</SPAN> | Taco</SPAN> | OERK</SPAN> | OFGH</SPAN> | 3530</SPAN> | ||
P6985</SPAN> | C585</SPAN> | C585</SPAN> | Zipper</SPAN> | OERK</SPAN> | OFGH</SPAN> | 3531</SPAN> | ||
PO4789</SPAN> | C459</SPAN> | C459</SPAN> | Punch</SPAN> | OERK</SPAN> | OFGH</SPAN> | 3532</SPAN> | ||
AZ4823</SPAN> | C596</SPAN> | C596</SPAN> | Apexi</SPAN> | OERK</SPAN> | OFGH</SPAN> | 3533</SPAN> | ||
P7524</SPAN> | HELV</SPAN> | C417</SPAN> | Drac</SPAN> | OERK</SPAN> | OFGH</SPAN> | 3534</SPAN> |
<TBODY>
</TBODY>
Tab B ("NB")
A</SPAN></SPAN> | B</SPAN></SPAN> | C</SPAN></SPAN> | D</SPAN></SPAN> | E</SPAN></SPAN> |
AG NB (Category Line)</SPAN> | FV NB</SPAN> | SA NB</SPAN> | SO NB</SPAN> | TF NB</SPAN> |
Spider</SPAN> | Caso</SPAN> | Carne</SPAN> | Heat</SPAN> | Opps</SPAN> |
David</SPAN> | Turkey</SPAN> | Lego</SPAN> | Unit</SPAN> | |
Purse</SPAN> | Drac</SPAN> | Almond</SPAN> | Fargo</SPAN> | |
Macon</SPAN> | Bell</SPAN> | Punch</SPAN> | Have</SPAN> | |
Twilight</SPAN> | Pow</SPAN> | Voice</SPAN> | ||
Express</SPAN> | Tweet</SPAN> | Mail</SPAN> | ||
Grand</SPAN> | Pin</SPAN> | |||
Hover</SPAN> | Bear</SPAN> | |||
Tear</SPAN> |
<TBODY>
</TBODY>
VBA
Code:
'Format N3's / Build NB
Application.StatusBar = "FORMATTING N3"
For x = 2 To ActiveSheet.UsedRange.Rows.Count + 1
chkrowA = Rows.Item(x).Cells(1, 1) 'Item ID
chkrowB = Rows.Item(x).Cells(1, 2) 'NB #
chkrowl = Rows.Item(x).Cells(1, 9) 'NB ID
'Format N3s
If chkrowl <> "" Then
chkrowll = Right(Rows.Item(x).Cells(1, 9), 4)
Rows.Item(x).Cells(1, 9) = chkrowl
End If
'Select N3s for NB
Application.StatusBar = "Selecting M2s FOR NB"
If((Left(chkrowA,1)="P" or Left(chkrowA,1)="A")And chkrowB="NBL")_
Or Left(chkrowA,2)="AX" Or Left(chkrowA,2)="PX" Or Left(chkrowA,2)="TX"
Or ((Left(chkrowA,2)="AF" Or Left(chkrowA,2)="AM" Or Left(chkrowA,2)="AZ") And chkrowB
<>"HELV")Then
Rows.Item(x).Cells(1, 9).Select
Selection.Copy
Rows.Item(x).Cells(1, 13).Select
ActiveSheet.Paste
End If
Next
Desired Output
[TABLE="width: 649"]
<TBODY>[TR]
[TD]A</SPAN>
[/TD]
[TD]B</SPAN>
[/TD]
[TD]C</SPAN>
[/TD]
[TD]D</SPAN>
[/TD]
[TD]E</SPAN>
[/TD]
[TD]F</SPAN>
[/TD]
[TD]G</SPAN>
[/TD]
[TD]H</SPAN>
[/TD]
[TD]I</SPAN>
[/TD]
[TD]J</SPAN>
[/TD]
[TD]K</SPAN>
[/TD]
[TD]L</SPAN>
[/TD]
[TD]M</SPAN>
[/TD]
[/TR]
[TR]
[TD]Item ID</SPAN>
[/TD]
[TD]NB #</SPAN>
[/TD]
[TD]NB #</SPAN>
[/TD]
[TD]Item Name</SPAN>
[/TD]
[TD]Item Loc</SPAN>
[/TD]
[TD]Item Dest</SPAN>
[/TD]
[TD]Item/R Time</SPAN>
[/TD]
[TD]Air Cargo</SPAN>
[/TD]
[TD]NB ID</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]P4532</SPAN>
[/TD]
[TD]C211</SPAN>
[/TD]
[TD]C211</SPAN>
[/TD]
[TD]Spider</SPAN>
[/TD]
[TD]OERK</SPAN>
[/TD]
[TD]OFGH</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD]4352</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]4352</SPAN>
[/TD]
[/TR]
[TR]
[TD]A2158</SPAN>
[/TD]
[TD]C211</SPAN>
[/TD]
[TD]C211</SPAN>
[/TD]
[TD]David</SPAN>
[/TD]
[TD]OERK</SPAN>
[/TD]
[TD]OFGH</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD]4353</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]4353</SPAN>
[/TD]
[/TR]
[TR]
[TD]PZ4895</SPAN>
[/TD]
[TD]C211</SPAN>
[/TD]
[TD]C211</SPAN>
[/TD]
[TD]Purse</SPAN>
[/TD]
[TD]OERK</SPAN>
[/TD]
[TD]OFGH</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD]4354</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]4354</SPAN>
[/TD]
[/TR]
[TR]
[TD]A4258</SPAN>
[/TD]
[TD]C451</SPAN>
[/TD]
[TD]C451</SPAN>
[/TD]
[TD]Bear</SPAN>
[/TD]
[TD]OERK</SPAN>
[/TD]
[TD]OFGH</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD]4355</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]4355</SPAN>
[/TD]
[/TR]
[TR]
[TD]FE4525</SPAN>
[/TD]
[TD]C321</SPAN>
[/TD]
[TD]C321</SPAN>
[/TD]
[TD]Tear</SPAN>
[/TD]
[TD]OERK</SPAN>
[/TD]
[TD]OFGH</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD]4356</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]P4875</SPAN>
[/TD]
[TD]C487</SPAN>
[/TD]
[TD]C487</SPAN>
[/TD]
[TD]Taco</SPAN>
[/TD]
[TD]OERK</SPAN>
[/TD]
[TD]OFGH</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD]3530</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]P6985</SPAN>
[/TD]
[TD]C585</SPAN>
[/TD]
[TD]C585</SPAN>
[/TD]
[TD]Zipper</SPAN>
[/TD]
[TD]OERK</SPAN>
[/TD]
[TD]OFGH</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD]3531</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]PO4789</SPAN>
[/TD]
[TD]C459</SPAN>
[/TD]
[TD]C459</SPAN>
[/TD]
[TD]Punch</SPAN>
[/TD]
[TD]OERK</SPAN>
[/TD]
[TD]OFGH</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD]3532</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]3532</SPAN>
[/TD]
[/TR]
[TR]
[TD]AZ4823</SPAN>
[/TD]
[TD]C596</SPAN>
[/TD]
[TD]C596</SPAN>
[/TD]
[TD]Apexi</SPAN>
[/TD]
[TD]OERK</SPAN>
[/TD]
[TD]OFGH</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD]3533</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]P7524</SPAN>
[/TD]
[TD]HELV</SPAN>
[/TD]
[TD]C417</SPAN>
[/TD]
[TD]Drac</SPAN>
[/TD]
[TD]OERK</SPAN>
[/TD]
[TD]OFGH</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD]3534</SPAN>
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]3534</SPAN>
[/TD]
[/TR]
</TBODY>[/TABLE]
Thank you for all your help in this...