Pivot table help
On Jan 21, 1:46*pm, Aaron wrote:
I have the below code and getting a error (Pivot Table name not valid) when
the code is ran
Sub CreatePivotTables()
Dim LastRow As Long
* * Worksheets.Add.Name = "Receiving TAT"
* * Worksheets.Add.Name = "Screening TAT"
* * Sheets("HP Defective Receipts in SPL ma").Select
* * LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
* * ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase, SourceData:= _
* * * * "'HP Defective Receipts in SPL ma'!R1C22:R" &
LastRow).CreatePivotTable _
* * * * TableDestination:=Range("A1"), TableName:="PivotTable1"
* * ActiveSheet.PivotTables("PivotTable1").SmallGrid = False
* * ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:="Receiving
TAT"
* * With ActiveSheet.PivotTables("PivotTable1").PivotFields ("Receiving TAT")
* * * * .Orientation = xlDataField
* * * * .Calculation = xlPercentOfColumn
* * End With
* * Charts.Add
* * ActiveChart.SetSourceData Source:=Sheets("Receiving TAT").Range("A1")
* * ActiveChart.Location Whe=xlLocationAsNewSheet
End Sub
Is the pivot table name "PivotTable1" every time you run this code? or
is the name changing each time? i.e. PivotTable1, PivotTable2,
PivotTable3
|