Error "Subscript out of range"

[Biel]

Hello Evrybody,

I'm making a little test to filter from a cell value another workbook with all lot of pivot table.
I make a little test and create the vba but it's keep giving to me the same error but the references to pivottable and sheet is ok.

I hope you can help

Stay safe!!

 

[Anthony47]

Which is the error?

 

[Anthony47]

In addition, add these lines:

Set pt = Sheets("PivotT").Range("B1").PivotTable
Debug.Print pt.Name
'ADD NEXT 3 LINES:
For I = 1 To pt.PivotFields.Count
    Debug.Print "*" & pt.PivotFields(I) & "*"
Next I

See Fields = pt.PivotFields("Turno")

FIEld.ClearAllFilters
FIEld.CurrentPage = Cat
pt.RefreshTable

Then try. When you get the error open the vba Immediate window and check wich is the name of the available fileds; they are listed this way: *FieldName* (the asterixs are for delimiting the FieldNames). Check that there is one *Turno*

Bye

 

[Biel]

Hello,

This is the error

Actual VBA Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("AG3:AG4")) Is Nothing Then Exit Sub

Dim pt As PivotTable
Dim Field As PivotField
Dim Cat As String

Set pt = Me.Range("AM1").PivotTable
Debug.Print pt.Name
'ADD NEXT 3 LINES:
For i = 1 To pt.PivotFields.Count
    Debug.Print "*" & pt.PivotFields(i) & "*"
Next i

See Fields = pt.PivotFields("Turno")


Field.ClearAllFilters
Field.CurrentPage = Cat
pt.RefreshTable


End Sub

Nothing appearrs in immeditate window.

 

[Anthony47]

Don't worry, you will certainly have more complicated problems in the future

I seem that the time has come…

So, it seems that now your Worksheet_SelectionChange is no longer accepted, wereas in post #6 the problem was with a failing instruction…
Immediate window is empty because the sub did not run.

Remove the complete Sub Worksheet_SelectionChange and reinsert the code you was using when you inserted post #6, and test from the beginning

If it fails as in post #6 then try adding the modifications for using Me.Range("AM1").PivotTable plus the For I = 1 To pt.PivotFields.Count /Next I cycle.
If it fails like in post#13 then you should try (1) restart your pc, and (2) the procedure for Office Repair

Bye