Combine 2 VBA Code

[Dokat]

Hi,

How can i combine below 2 codes in VBA?

Private Sub Worksheet_Change(ByVal Target As Range)

Dim xPTable As PivotTable
Dim xPFile As PivotField
Dim xStr As String


On Error Resume Next
If Intersect(Target, Target.Worksheet.Range("B4")) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xPTable = Worksheets("Source Data").PivotTables("PivotTable1")
Set xPFile = xPTable.PivotFields("Geography")
xStr = Target.Value
With xPFile
.ClearAllFilters
.PivotFilters.Add2 xlCaptionEquals, Value1:=xStr
End With
Application.ScreenUpdating = True


On Error Resume Next
If Intersect(Target, Target.Worksheet.Range("A3")) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xPTable = Worksheets("Source Data").PivotTables("PivotTable1")
Set xPFile = xPTable.PivotFields("% Dollar Sales by Merch Any Price Reduction")
xStr = Target.Value
With xPFile
.ClearAllFilters
.PivotFilters.Add2 xlCaptionEquals, Value1:=xStr
End With

 

[Logit]

Looks like you have already completed the combination. Just end it wit END SUB.

What happens then ?

 

[Dokat]

It only runs the first code and not the second. I am trying change 2 filters in a pivot table based on a cell value in a different sheet. It only works partially.

Looks like you have already completed the combination. Just end it wit END SUB.

What happens then ?

 

[Ajesh]

This issue is already being addressed in your initial post:

https://chandoo.org/forum/threads/change-pvt-table-filter-based-on-a-value-in-another-cell.40370/