Macro to create workbooks and pivot tables

[Ciara]

I have 2 seperate macro's.
Macro1 -creates a pivot table
Macro2- creates a workbook for each practice.

I would like to combine the two, so that after extracting data needed
to create each workbook I use it as the datasource to create the pivot
table.
Macro2 is based on the example on this website which creates a new
workbook for each value. http://www.rondebruin.nl/copy5.htm#workbook

I need seperate workbooks as it is confidential information... and as I
will be doing this weekly, I would like to have a nice easy macro or
procedure to run, instead of having to create 30 pivot tables. Im sure
this will be easy for someone. Many thanks.

 

[Ron de Bruin]

Hi Ciara

You can use the code that create the pivot in my macro

After this line
WBNew.Sheets(1).Columns.AutoFit
You can run your code

You can use the reference WBNew.Sheets(1) in your code to the sheet with the data

Try it and post back if you have problems

 

[Ciara]

Sorted! thanks very much. I can't believe how easy that was.