troubleshooting Question

Excel VBA Error

Avatar of shieldsco
shieldscoFlag for United States of America asked on
VBA
4 Comments1 Solution82 ViewsLast Modified:
I'm using the code below and receive  run-time error 1004  unable to get the pivot field property of the Pivot Table Class on line - Set rngGroup = PvtTbl.PivotFields("Dates").DataRange


Sub PivotTableGroupData1()

Dim PvtTbl As PivotTable
Dim rngGroup As Range
Set PvtTbl = Worksheets("Data Chart").PivotTables("PivotTable1")

'set range of dates to be grouped
Set rngGroup = PvtTbl.PivotFields("Dates").DataRange

rngGroup.Cells(1).Group Periods:=Array(False, False, False, False, True, False, False)

'to ungroup:
'rngGroup.Cells(1).Ungroup

End Sub
Join the community to see this answer!
Join our exclusive community to see this answer & millions of others.
Unlock 1 Answer and 4 Comments.
Join the Community
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 4 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros