Trying to Transfer VBA from one Workbook to Another

[Jim Clayton]

Hey everyone. So I have very minimal knowledge of VBA. Most of what is one these workbooks you fine folk helped me get...good job. I have two workbooks and a notepad with updated code attached. I'm trying to transfer the code from the workbook entitled Sample1, to the workbook entitled Slicers&Cad1. I have gone thru and changed the relevant information (sheet names, etc.) so that it is updated for the Slicers workbook. That is all listed on the notepad attachment...I may have to post this in a following post due to attachment restrictions. Been at this for a few hours now and I'm getting nowhere. Any help would be greatly appreciated. Tks.

[Jim Clayton]

Here's the code

[Fluff13]

You can simply drag & drop the modules in the VBA Properties window of the VB editor

[Jim Clayton]

Interesting. Okay, well I've done that now, and saved it, but I'm getting an end/debug message...so thinking that something is off. And thanks for your help btw.

[Fluff13]

The PivotTable name & Item Number are different from the code

[Jim Clayton]

Not sure what I'm missing here...I'm well outside my breadth of knowledge with vba...I made the below changes but I don't think I'm on the right track.
Set sh = Sheets("BuildMyBOM")
Set pt = sh.PivotTables("PT_Parts")
Set pf = pt.PivotFields("QTY")

[Jim Clayton]

Okay...figured out the what you were referencing with the Pivot table name. Changed that, and it's halfway working. Still at a loss with the ITEM NUMBER. That will probably stop the end/debug message. any help would be greatly appreciated. Thanks.

[Andy Pope]

Please Login or Register  to view this content.

There is no underscore in field name "Item Number"

[Jim Clayton]

I THINK this might've fixed it...going to run through it a few times and see. Thanks everyone for all of your help.