Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Pivot Tables
Hi,
I have recorded the macro below that creates a Pivot Table. What I would like to do is add additional sheets to the Array below by using a macro. It would be great if I could type in an additional sheet names by using an Input Box. Since this is for payroll, I will probably have over 52 sheets by the end of the year. Range("A13").Select ActiveSheet.PivotTableWizard SourceType:=xlConsolidation, SourceData:=Array _ ("'01062005'!R11C2:R500C21", "'01132005'!R11C2:R500C21", _ "'03032005'!R11C2:R500C21", "'05052005'!R11C2:R500C21") ActiveSheet.PivotTables("PivotTable5").SmallGrid = False ActiveSheet.PivotTables("PivotTable5").AddFields RowFields:="Row", _ ColumnFields:="Column" Application.CommandBars("PivotTable").Visible = False Range("A1").Select |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Building pivot tables in Excel 2007 based on existing pivot tables? | Excel Discussion (Misc queries) | |||
Pivot Table Data Adding contents of two pivot tables and param que | Excel Discussion (Misc queries) | |||
Average Calculations from Pivot Tables - Get Pivot Data? Calc Fiel | Excel Worksheet Functions | |||
How does the term 'pivot' apply to Excel's Pivot tables and Pivot. | Excel Discussion (Misc queries) | |||
Pivot tables-controlling user interaction with pivot tables | Excel Programming |