| Home |
| Search |
| Today's Posts |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
pivottable name in a macro
It works for me - Thanks for your help
"Peter81" wrote: try something like this: Dim wrksht As Worksheet Dim pivtble As PivotTable Dim pivotCounter As Integer pivotCounter = 0 For Each wrksht In ActiveWorkbook.Worksheets For Each pivtble In wrksht.PivotTables If Right(pivtble.Name, 1) pivotCounter Then pivotCounter = Right(pivtble.Name, 1) End If Next pivtble Next wrksht pivotCounter = pivotCounter + 1 ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase, _ SourceData:="Sheet1!R25C10:R30C12").CreatePivotTab le TableDestination:= _ "[Book2]Sheet1!R36C10", TableName:="PivotTable" & pivotCounter, DefaultVersion:= _ xlPivotTableVersion10 ActiveSheet.PivotTables("PivotTable" & pivotCounter).AddFields RowFields:="a" ActiveSheet.PivotTables("PivotTable" & pivotCounter).PivotFields("c").Orientation = _ xlDataField Pete -- Peter81 ------------------------------------------------------------------------ Peter81's Profile: http://www.excelforum.com/member.php...o&userid=25353 View this thread: http://www.excelforum.com/showthread...hreadid=531446 |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| 2007 / 2003 Pivottable Macro | Excel Discussion (Misc queries) | |||
| Create a Pivottable in a macro | Excel Discussion (Misc queries) | |||
| excel2000 pivottable macro | Excel Programming | |||
| PivotTable, Scenarios, Macro?? | New Users to Excel | |||
| Creating a database and PivotTable with a Macro | Excel Programming | |||
Threaded Mode
