@אדרת חזק ביותר! אביא את הקוד כאן:
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, Range("H1")) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
' נסיון זהו שם גיליון העבודה שלי תצטרכו לשנות לשם הגיליון שלכם'
Set xPTable = Worksheets("נסיון").PivotTables("pivottable2")
'לקוח זהו התא של הקריטוריון (תוכלו לזהות לפי מה שהגדרתם כמסנן)'
Set xPFile = xPTable.PivotFields("לקוח")
xStr = Target.Text
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr
Application.ScreenUpdating = True
End Sub
צריך להכניס את הקוד בגיליון (לחיצה על הגיליון למטה ובתפריט בחירה 'הצג קוד' ושם לכתוב את הנ"ל, כמובן-בשינוים הנדרשים) ואז את קריטוריון הסינון הוא מבסס על התא שבחרתם. ובשביל לסנן כמה טבלאות בו זמנית לפי תא אחד צריך לרשום הנ"ל גם על הטבלה השניה ותלייתה באותו התא,