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:

Full screen mode for YouTube

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:

Changing resolution

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.

This page has 2 threads Add post
bushman   Reply to bushmanReply
04 Feb 20 at 09:53

Thankn you for the update. I will give it a go. 

Marlon

bushman   Reply to bushmanReply
30 Jan 20 at 12:40

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

 

Andrew G   Reply to Andrew GReply
03 Feb 20 at 10:04

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!

Add a new post