Move DataField in Pivot Table with VBA

[dgrimm]

I am trying to move a DataField to the beginning of the data fields. However when I try recording a macro it has a completely different field in the coding and says that it is adding the data field. So what I am trying to do is move "AGE" to be the first data field in the datafield list. I have tried clicking on it in the field list box and selecting move to beginning but that is giving the above code. Anyone have any ideas.

Thank you

Dave

 

[par60056]

without any of your code, I can give you hints but you will need to fit it in the code.

I think what you want is the .Position property of the pivotField. I know this works for ordering the row and column fields. I have never needed to do it with the value fields.

        With .PivotFields("AGE")
            .Orientation = xlDataField
            .Position = 1
            .Calculation = xlNoAdditionalCalculation
        End With

 

[dgrimm]

Thank you par60056

 

[par60056]

You are welcome. Thanks for letting me know it helped.