K
kernel
I have looked through the other posts on the subject and the combination of
my low skills in VB and the other solutions not exactly covering my situation
means I still need to ask for help.
Scenario:
Worksheet a = "Scorecard"
FieldName = "CustomerNumber"
Worksheet b = "Products Resume"
PivotTable = "PivotTable2"
PivotTable Page Field = "Account Number"
When CustomerNumber value on worksheet "Scorecard" is changed I need the
Pivot Table Page field "Account Number" to use this value to filter the pivot
table.
I have received some help for this problem and got this far -
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("CustomerNumber").Address Then
Me.PivotTables(2).PivotFields("Account Number").CurrentPage =
Range("CustomerNumber").Value
Me.PivotTables(2).PivotCache.Refresh
End If
End Sub
.....but I get the error
"method 'PivotTables' of object '_Worksheet' failed
Any ideas?
my low skills in VB and the other solutions not exactly covering my situation
means I still need to ask for help.
Scenario:
Worksheet a = "Scorecard"
FieldName = "CustomerNumber"
Worksheet b = "Products Resume"
PivotTable = "PivotTable2"
PivotTable Page Field = "Account Number"
When CustomerNumber value on worksheet "Scorecard" is changed I need the
Pivot Table Page field "Account Number" to use this value to filter the pivot
table.
I have received some help for this problem and got this far -
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("CustomerNumber").Address Then
Me.PivotTables(2).PivotFields("Account Number").CurrentPage =
Range("CustomerNumber").Value
Me.PivotTables(2).PivotCache.Refresh
End If
End Sub
.....but I get the error
"method 'PivotTables' of object '_Worksheet' failed
Any ideas?