Pivot table help
Name changes each time. I think I also may have messed up on Table
Destination. I need it to goto tab Receiving TAT.
"GTVT06" wrote:
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
|