Counting Data Field within a Pivot Table

  • Thread starter Thread starter ExcelMonkey
  • Start date Start date
E

ExcelMonkey

I have a routine that checks all the names of a pivot table's dat
fields (See Below). How can I count the number of data fields withi
the For Each Loop?



Sub DisplayDataFields()
Dim x As Variant
Dim Pivot1 As PivotTable
Set Pivot1 = Worksheets("Sheet1").PivotTables("Pivot Table 1")
For Each x In Pivot1.DataFields
'Display pivot field source name (name of field in original
'data)
MsgBox "Pivotfield SourceName is " & x.SourceName
Next
End Su
 
Seems you could just DIM another as an integer:

Dim counter as integer

The increment the variable each time the loop iterates:

counter=counter+1

If you do this before the MsgBox is displayed, you could
also display the count value in the MsgBox.>-----Original
Message-----
 
You must log in or register to reply here.

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 Guru's - any way to speed up this code? 1
Remove all column and row fields from a pivot table 1
Help with Selecting Ranges in Pivot Table 3
Macro Help in Pivot 2
Data Fields in Pivot Table 2
Pivot cache related--> vbscript code 3
Please Help! Need to add a Variable Range in my Excel Macro withPivot Tables 3
All Pivot table include different pivot field to save as individualworkbook 5

Back
Top