Posts by TheSilkCode

Re: VBA, PivotTable, Drill DOwn

Hey Matt-

So this is what i came up with, it aint pretty and assumes that the grand total cell you want to double click on is in the bottom right cell of the pivot table, but it works- see below:

Public Sub ShowAllPTDetail()
Dim WB As Workbook
Dim wsCounter As Long
Dim ptCounter As Long
Dim pt As PivotTable
Dim dataRange As Range
Set WB = ThisWorkbook
For wsCounter = 1 To WB.Sheets.Count
    If WB.Sheets(wsCounter).PivotTables.Count > 0 Then
        With WB.Sheets(wsCounter)
            For ptCounter = 1 To .PivotTables.Count
                Set pt = .PivotTables(ptCounter)
                Set dataRange = Range(pt.TableRange1.Address)
                dataRange(dataRange.Rows.Count, dataRange.Columns.Count).Select
                Selection.ShowDetail = True
            Next
        End With
    End If
Next
End Sub

Hope this helps,
TheSilkCode

Re: VBA, PivotTable, Drill DOwn

Hi Matt- so what exactly are you trying to do? When you click anywhere in a pivot table you see all the data behind it?

-TSC

Re: make a simple multiplication in a textbox on a userform

No this would not work- Excel UserForms' textboxes are truly textboxes so the UserForm would treat that as a string of "17*60" unless you added special formatting to the change event.