Pivot Table

  • Thread starter Thread starter Monika
  • Start date Start date
M

Monika

I am trying to create a pivot using fields which will vary
with every month.
I use the macro where i have the code as:

With
ActiveSheet.PivotTables("PivotTable3").PivotFields("Mar-04")
.Orientation = xlDataField
.Position = 1
End With
With
ActiveSheet.PivotTables("PivotTable3").PivotFields("Apr-04")
.Orientation = xlDataField
.Position = 2
End With
With
ActiveSheet.PivotTables("PivotTable3").PivotFields("May-04")
.Orientation = xlDataField
.Position = 3
End With
With
ActiveSheet.PivotTables("PivotTable3").PivotFields("Jun-04")
.Orientation = xlDataField
.Position = 4
End With
With
ActiveSheet.PivotTables("PivotTable3").PivotFields("Q4 2004")
.Orientation = xlDataField
.Position = 5
End With
ActiveSheet.PivotTables("PivotTable3").PivotFields("Q1
2005").Orientation = _
xlDataField

To solve this problem i am trapping these columns headings
in an array "monArr". and instead of hte above code i
replace the code as:

For i = 1 To totArr
With
ActiveSheet.PivotTables("PivotTable3").PivotFields(monArr(i))
.Orientation = xlDataField
.Position = i
End With

This code is not working. THe values that comes the first
time in the monArr
is "3/1/2004". I think this value the pivot table cannot
resolve. How can i solve this problem.
thanks
monika
 
See one response at your other post.

I am trying to create a pivot using fields which will vary
with every month.
I use the macro where i have the code as:

With
ActiveSheet.PivotTables("PivotTable3").PivotFields("Mar-04")
.Orientation = xlDataField
.Position = 1
End With
With
ActiveSheet.PivotTables("PivotTable3").PivotFields("Apr-04")
.Orientation = xlDataField
.Position = 2
End With
With
ActiveSheet.PivotTables("PivotTable3").PivotFields("May-04")
.Orientation = xlDataField
.Position = 3
End With
With
ActiveSheet.PivotTables("PivotTable3").PivotFields("Jun-04")
.Orientation = xlDataField
.Position = 4
End With
With
ActiveSheet.PivotTables("PivotTable3").PivotFields("Q4 2004")
.Orientation = xlDataField
.Position = 5
End With
ActiveSheet.PivotTables("PivotTable3").PivotFields("Q1
2005").Orientation = _
xlDataField

To solve this problem i am trapping these columns headings
in an array "monArr". and instead of hte above code i
replace the code as:

For i = 1 To totArr
With
ActiveSheet.PivotTables("PivotTable3").PivotFields(monArr(i))
.Orientation = xlDataField
.Position = i
End With

This code is not working. THe values that comes the first
time in the monArr
is "3/1/2004". I think this value the pivot table cannot
resolve. How can i solve this problem.
thanks
monika
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

VBA Pivot Table Error 1
Runtime Error '1004' - AddFields method of PivotTable class failed 1
Pivot Table 1
End if with block if - Pivot Table Problem 5
Pivot Table, Variable Inputs 1
Adding PivotTable fields with a macro 3
Help with Sum formula 2
Pivot Table - Code Optimization 3

Back
Top