Change PivotTable Field By Code

Curious

Guest

Posts: n/a

12th Sep 2007

Here is the situation:

Every worksheet has 12 pivottables for 12 months.

ActiveSheet.PivotTables("PivotTable1").PivotFields("Jan-06")
ActiveSheet.PivotTables("PivotTable1").PivotFields("Feb-06")

I want to re-use this model for 2007.

How could I update the PivotFields to
ActiveSheet.PivotTables("PivotTable1").PivotFields("Jan-07")
ActiveSheet.PivotTables("PivotTable1").PivotFields("Feb-07")

Thanks in advance.

H.Z.

« Add Custom Button to Quick Access Toolbar | Copy a range of cells to all workbooks in a folder? »

Thread Tools
Show Printable Version Email this Page
Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts BB code is On Smilies are On [IMG] code is On HTML code is Off Trackbacks are On Pingbacks are On Refbacks are Off Forum Rules

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Code to change PivotTable selections, based on ActiveX CheckBoxes on a worksheet.	Victor Dimitrov	Microsoft Excel Programming	1	29th May 2009 09:55 AM
Trigger VB code on user selection from Page field in Pivottable	Mark Parent	Microsoft Excel Programming	1	26th Nov 2008 08:05 PM
Pivottable Field items code -problems	=?Utf-8?B?UmF5byBL?=	Microsoft Excel Programming	2	27th Apr 2006 10:54 PM
How do I use a keyboard to change a PivotTable or delete a field?	=?Utf-8?B?YnVydGluaEBhdGFjLmNvbQ==?=	Microsoft Excel Misc	1	4th Feb 2006 07:37 PM
How do I use a keyboard to change a PivotTable or delete a field?	=?Utf-8?B?YnVydGluaEBhdGFjLmNvbQ==?=	Microsoft Excel Misc	1	4th Feb 2006 05:10 PM