BY CATEGORY▼
VBA CATEGORIES▼
EXCEL VBA - PIVOT TABLES VIDEOS▼
- Excel VBA Part 51.1 - Introduction to Pivot Tables in VBA
- Excel VBA Part 51.2 - Pivot Tables using an Access Database
- Excel VBA Part 51.3 - Pivot Tables using a SQL Server Database
- Excel VBA Part 51.4 - Pivot Tables and Consolidation Ranges
- Excel VBA Part 51.5 - PowerPivot Data Models
- Excel VBA Part 51.6 - Pivot Charts
- Excel VBA Part 51.7 - Pivot Table Slicers
- Excel VBA Part 51.8 - Pivot Table Date Fields and Timelines
Excel VBA - pivot tables videos | Excel VBA Part 51.8 - Pivot Table Date Fields and Timelines
Posted by Andrew Gould on 15 December 2016
You can do several useful things with dates in Pivot Tables, including grouping, filtering and applying timelines. This video shows you how to do all those things using VBA.
You can download any files that you need to follow the video here.
You can increase the size of the video:

You can view the video in full screen mode as shown on the left, using the icon at the bottom right of the frame.
You can also increase the quality of the video:

You can improve the resolution of the video using another icon at the bottom right of the frame. This will slow down the connection speed, but increase the display and sound quality. This icon only becomes visible when you start playing the video.
Finally, if nothing happens when you play the video, check that you're not using IE in compatibility view.
Thankn you for the update. I will give it a go.
Marlon
Hi Andrew,
Thanks for the videos.
How would you do a drill down for all transaction by picking a year and month using VBA?
Thanks
Marlon
Hi Marlon,
Perhaps the easiest way to do this is to apply the ShowDetail property to the cell into which you want to drill. The example code below assumes you have a pivot table arranged with years in the Rows area, month names in the column area and anything in the Values area.
Sub DrillDownOnDatePivot()
Dim DrillYear As String
Dim DrillMonth As String
Dim ws As Worksheet
Dim pt As PivotTable
Dim RowNumber As Long
Dim ColumnNumber As Long
DrillYear = "2004"
DrillMonth = "May"
Set ws = Worksheets("DatePivot")
Set pt = ws.PivotTables("DatePivotTable")
RowNumber = pt.RowRange.Find(DrillYear).Row
ColumnNumber = pt.ColumnRange.Find(DrillMonth).Column
Debug.Print RowNumber, ColumnNumber
ws.Cells(RowNumber, ColumnNumber).ShowDetail = True
End Sub
You can adjust the DrillYear and DrillMonth values to drill into different cells in the pivot table. I hope that helps!