Comments on: Referencing Pivot Table Ranges in VBA

By: Miguel

Miguel — Tue, 08 May 2012 09:23:00 +0000

Hi, reading the post on Pivot tables now realize that this is something I could use to great effect.

However I need some help please, the code below is recoreded and I have modifid the way it renames the sheets, after selecting the data in each cell in the Piviot table Range in the totals column on PT.

The problem that I have the report I run the Macro on changes every time its run and errors occurs on the Pt.RowRange this may have 10 row or 20 rows depending on the data.

Is the a away to do the same function that I have recorded and not stop the Macro from working by selecting all the cells in column B and not include the grandtotal row?

Your guidince would be appriciated.

Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
“Furniture Monthly Overstock!R1C1:R653C14″, Version:=xlPivotTableVersion10). _
CreatePivotTable TableDestination:=”Sheet1!R3C1″, TableName:=”PivotTable1″ _
, DefaultVersion:=xlPivotTableVersion10
Sheets(“Sheet1″).Select
Cells(3, 1).Select
With ActiveSheet.PivotTables(“PivotTable1″).PivotFields(“Site”)
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables(“PivotTable1″).PivotFields(“Product Code”)
.Orientation = xlRowField
.Position = 2
End With
ActiveSheet.PivotTables(“PivotTable1″).AddDataField ActiveSheet.PivotTables( _
“PivotTable1″).PivotFields(“Product Code”), “Count of Product Code”, xlCount
RANGE(“B5″).Select
Selection.ShowDetail = True
ActiveSheet.Name = “SITE ” & RANGE(“E2″).Value
Sheets(“Sheet1″).Select
RANGE(“B6″).Select
Selection.ShowDetail = True
ActiveSheet.Name = “SITE ” & RANGE(“E2″).Value
Sheets(“Sheet1″).Select
RANGE(“B7″).Select
Selection.ShowDetail = True
ActiveSheet.Name = “SITE ” & RANGE(“E2″).Value
Sheets(“Sheet1″).Select
RANGE(“B8″).Select
Selection.ShowDetail = True
ActiveSheet.Name = “SITE ” & RANGE(“E2″).Value
Sheets(“Sheet1″).Select
RANGE(“B9″).Select
Selection.ShowDetail = True
ActiveSheet.Name = “SITE ” & RANGE(“E2″).Value
Sheets(“Sheet1″).Select
RANGE(“B10″).Select
Selection.ShowDetail = True
ActiveSheet.Name = “SITE ” & RANGE(“E2″).Value
Sheets(“Sheet1″).Select
RANGE(“B11″).Select
Selection.ShowDetail = True
ActiveSheet.Name = “SITE ” & RANGE(“E2″).Value
Sheets(“Sheet1″).Select
RANGE(“B12″).Select
Selection.ShowDetail = True
ActiveSheet.Name = “SITE ” & RANGE(“E2″).Value
Sheets(“Sheet1″).Select
RANGE(“B13″).Select
Selection.ShowDetail = True
ActiveSheet.Name = “SITE ” & RANGE(“E2″).Value
Sheets(“Sheet1″).Select
RANGE(“B14″).Select
Selection.ShowDetail = True
ActiveSheet.Name = “SITE ” & RANGE(“E2″).Value
Sheets(“Sheet1″).Select
RANGE(“B15″).Select
Selection.ShowDetail = True
ActiveSheet.Name = “SITE ” & RANGE(“E2″).Value
Sheets(“Sheet1″).Select
RANGE(“B16″).Select
Selection.ShowDetail = True
ActiveSheet.Name = “SITE ” & RANGE(“E2″).Value
Sheets(“Sheet1″).Select
RANGE(“B17″).Select
Selection.ShowDetail = True
ActiveSheet.Name = “SITE ” & RANGE(“E2″).Value
Sheets(“Sheet1″).Select
RANGE(“B18″).Select
Selection.ShowDetail = True
ActiveSheet.Name = “SITE ” & RANGE(“E2″).Value
Sheets(“Sheet1″).Select
RANGE(“B19″).Select
Selection.ShowDetail = True
ActiveSheet.Name = “SITE ” & RANGE(“E2″).Value
Sheets(“Sheet1″).Select
RANGE(“B20″).Select
Selection.ShowDetail = True
ActiveSheet.Name = “SITE ” & RANGE(“E2″).Value
Sheets(“Sheet1″).Select
RANGE(“B21″).Select
Selection.ShowDetail = True
ActiveSheet.Name = “SITE ” & RANGE(“E2″).Value
Sheets(“Sheet1″).Select
RANGE(“B22″).Select
Selection.ShowDetail = True
ActiveSheet.Name = “SITE ” & RANGE(“E2″).Value
Sheets(“Sheet1″).Select
RANGE(“B23″).Select
Selection.ShowDetail = True
ActiveSheet.Name = “SITE ” & RANGE(“E2″).Value
Sheets(“Sheet1″).Select
RANGE(“B24″).Select
Selection.ShowDetail = True
ActiveSheet.Name = “SITE ” & RANGE(“E2″).Value
Sheets(“Sheet1″).Select
RANGE(“B25″).Select
Selection.ShowDetail = True
ActiveSheet.Name = “SITE ” & RANGE(“E2″).Value
ActiveWindow.TabRatio = 0.8
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets(“Furniture Monthly Overstock”).Select
Sheets(“Furniture Monthly Overstock”).Move Before:=Sheets(1)
Sheets(“Sheet1″).Move Before:=Sheets(2)

By: Doug Glancy

Doug Glancy — Thu, 26 Apr 2012 14:06:00 +0000

@ Jeff, I forgot about PivotTable.VisibleFields, which you use here and which doesn’t cause me the same problem with DataFields that I mentioned above and in my post.

By: Jeff Weir

Jeff Weir — Thu, 26 Apr 2012 08:34:39 +0000

@Doug…Ha…I didn’t realise you were the person behind yoursumbuddy, and that you’ve just posted code to do the same over at your blog. Doh!

By: Jeff Weir

Jeff Weir — Thu, 26 Apr 2012 08:28:52 +0000

No problem. Probably worth mentioning that the reason that I want to store PivotTable items in dictionary objects when they exist as collections already. Among other things, I want to be able to create ‘Custom View’ functionality that works for pivottables, so that the user can save their newly filtered pivottable, and at any time easily return to it, filters already in place.

For anyone else reading along who’s not familiar with custom views, as per http://www.ozgrid.com/Excel/AutoFilters_2.htm custom views allow you to do this for autofilter collections by uing View>Custom Views and click the Add button (provided you don’t have any excel 2007/10 tables in your document – for some reason these conflict with the Custom View functionality, which is a damn stupid move on part of MS) . Give your view a name and make sure you have a tick next to Hidden rows, columns and filter settings. This is a must to retain all the settings. Click OK. You can then call up your filtered list as a Custom View by going to View>Custom Views, clicking on the name of your view and selecting the Show button.

I want to do something similar with pivottables. So what I want to do is save my pivottabel settings somewhere (likely a hidden sheet), so that I can recreate it at the push of a button. I think the jagged array approach is going to be the best way to do this in terms of flexibility .. I can easily add further dimensions to hold other data regarding pivotfields, such as hidden items, number formats, whatever.

Whereas with the collection/dictionary approach I would require a separate collection/dictionaries for each subsequent type of attribute, as far as I know. Also with collections, I don’t believe you can retrieve the key, so I won’t neccessarily know which set of filter items go with which pivot field. Although I could easily get around this by storing the subdictionary (i.e. the one that contains the pivotitems) in say the 2 element Variant Array; with the field name stored in Variant_Array(0) and the dictionary stored in Variant_Array(1).

Note that this is a dictionary stored within a jagged array stored within a dictionary!

Also, in case anyone is interested, here’s my code to churn out named ranges from pivotfields:


Sub Make_Names()

    Dim pt As PivotTable

    Dim pf As PivotField

    Dim wks As Worksheet
    Set wks = ActiveSheet

    Set pt = wks.PivotTables(1)
For Each pf In pt.VisibleFields
With ActiveWorkbook.Names

   .Add Name:=Fix_Name(pf.Name), RefersTo:="=" & pf.DataRange.Address

    End With

Next pf
End Sub
Public Function Fix_Name(sName As String) As String

'   This code was from Craig Hatmaker. Google 'Beyond Excel' for more info

'   Description:Conforms a string so it can be used as a name
'   Parameters: sName       String to be conformed
'   Example:    sColumnName = Fix_Name("1st deposit %")
'     Date   Ini Modification

'   11/02/10 CWH Initial Programming

'   11/20/10 CWH Used "Like" operator
    'If Not DebugMode Then On Error GoTo ErrHandler

    Fix_Name = sName
    Dim i As Integer
   'Substitute special invalid characters w/standard abbreviations

    sName = Replace(sName, "#", "_NUM")

    sName = Replace(sName, "$", "_AMT")

    sName = Replace(sName, "%", "_PCT")

    sName = Replace(sName, "-", ".")

    sName = Replace(sName, ",", "-")

    sName = Replace(sName, " ", "_")
   'Get rid of all other illegal characters

    i = 1

    Do While i <= Len(sName)

        If Not Mid(sName, i, 1) Like "[A-Z,a-z,0-9,.,_,\]" Then _

            sName = Left(sName, i - 1) & Right(sName, Len(sName) - i)

        i = i + 1

    Loop
   'First Character cannot be numeric & result cannot look like cell ref.

    If IsNumeric(Left(sName, 1)) Or sName Like "[A-Z]#" Then _

        sName = "_" & sName
    Fix_Name = sName
ErrHandler:
    If Err.Number  0 Then MsgBox _

        "Fix_Name - Error#" & Err.Number & vbCrLf & _

        Err.Description, vbCritical, "Error", Err.HelpFile, Err.HelpContext

    On Error GoTo 0

End Function

By: Doug Glancy

Doug Glancy — Thu, 26 Apr 2012 06:50:31 +0000

@ Jeff Weir, thanks for posting the code. I’ll give it a spin.

By: Create Pivot Table Named Ranges - yoursumbuddy

Create Pivot Table Named Ranges - yoursumbuddy — Thu, 26 Apr 2012 06:47:51 +0000

[...] In terms of identifying PivotFields, DataFields and other pivot table ranges in code, Jon Peltier wrote a superb post in 2009 that’s still generating [...]