Pivot Table Macro

[jac3130]

I've created a Pivot Table with 30+ fields. I've recorded the following macro to add the first field. I need help modifying the code so that it looks for and adds every field automatically. It'd save a lot of time.

Sub PTAdd()
'
' PTAdd Macro
'
'
    With ActiveSheet.PivotTables("PivotTable3").PivotFields("Assigned To")
        .Orientation = xlRowField
        .Position = 1
    End With
End Sub

 

[Misca]

Here's a pretty good guide to create pivot tables with vba but I can't give much more advice with this little information of your data structure & the pivot table you're after.

Excel VBA - Build A Pivot Table In Excel VBA Tutorials

 

[hiker95]

jac3130,

Also, try:

Using Pivot Tables and Pivot Charts in Microsoft Excel

Office 2010 Class #36: Excel PivotTables Pivot Tables 15 examples (Data Analysis) - YouTube

Excel Pivot Table -- Dynamic Data Source

Overview of PivotTable and PivotChart reports - Excel - Office.com

 

[jac3130]

Does anyone know how to modify the macro so that it'll add every field that is in the pivot table options?

 

[Misca]

I've got a feeling PT doesn't allow you to add 30+ row fields but this should do what you're asking for:

Sub AddToPTRowField()

Dim i As Integer
Dim PT As PivotTable


On Error GoTo Err   'This line skips to the end when the code errors


Set PT = ActiveSheet.PivotTables(1)


    With PT
        For i = 1 To 100
            With .PivotFields(i)
                .Orientation = xlRowField
            End With
        Next i
    End With


    Exit Sub


Err:


End Sub