Multiple Pivot tables from one filter VBA

[c.barton]

Hello, I have a problem that involves several pivot tables that all grip information from one document.

This document is updated daily and contains information on faults that have occurred to trucks; the faults can be mechanical and electrical, but I'm only interested in the electrical ones.

Unfortunately, the faults are not clearly defined as electrical or mechanical i.e.
the faults codes are listed as cables & wiring, brake accumulators etc. The problem herein is that there is roughly 140 different fault codes.

The idea is to get the first pivot table 'fault code' filter to duplicate for each of the subsequent tables on different worksheets.

I recorded a macro of changing the selection on the first pivot table and from here I linked this information to the other tables and it works. This code is entered below.

 If Sheets("Electrical Asset Performance").PivotTables("PVT1").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = True Then
  Sheets("Terex MT4400").PivotTables("4400").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = True
  Sheets("Komatsu 960E").PivotTables("960").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = True
  Sheets("Letourneau L1850").PivotTables("1850").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = True
  Sheets("P&H 4100").PivotTables("4100").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = True
  Sheets("P&H 9020").PivotTables("9020").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = True
  Sheets("MT4400 Availability").PivotTables("4400D").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = True
  Sheets("MT4400 Availability").PivotTables("4400H").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = True
  Sheets("Komatsu 960E Availability").PivotTables("960D").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = True
  Sheets("Komatsu 960E Availability").PivotTables("960H").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = True
  Sheets("Letourneau L1850 Availability").PivotTables("1850D").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = True
  Sheets("Letourneau L1850 Availability").PivotTables("1850H").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = True
  Sheets("P&H 4100 Availability").PivotTables("4100H").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = True
  Sheets("P&H 4100 Availability").PivotTables("4100D").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = True
  Sheets("P&H 9020 Availability").PivotTables("9020H").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = True
  Sheets("P&H 9020 Availability").PivotTables("9020D").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = True
  Sheets("MTBF").PivotTables("4400M").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = True
  Sheets("MTBF").PivotTables("960M").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = True
  Sheets("MTBF").PivotTables("1850M").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = True
  Sheets("MTBF").PivotTables("4100M").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = True
  Sheets("MTBF").PivotTables("9020M").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = True
  
End If

If Sheets("Electrical Asset Performance").PivotTables("PVT1").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = False Then
  Sheets("Terex MT4400").PivotTables("4400").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = False
  Sheets("Komatsu 960E").PivotTables("960").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = False
  Sheets("Letourneau L1850").PivotTables("1850").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = False
  Sheets("P&H 4100").PivotTables("4100").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = False
  Sheets("P&H 9020").PivotTables("9020").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = False
  Sheets("MT4400 Availability").PivotTables("4400D").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = False
  Sheets("MT4400 Availability").PivotTables("4400H").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = False
  Sheets("Komatsu 960E Availability").PivotTables("960D").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = False
  Sheets("Komatsu 960E Availability").PivotTables("960H").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = False
  Sheets("Letourneau L1850 Availability").PivotTables("1850D").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = False
  Sheets("Letourneau L1850 Availability").PivotTables("1850H").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = False
  Sheets("P&H 4100 Availability").PivotTables("4100H").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = False
  Sheets("P&H 4100 Availability").PivotTables("4100D").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = False
  Sheets("P&H 9020 Availability").PivotTables("9020H").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = False
  Sheets("P&H 9020 Availability").PivotTables("9020D").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = False
  Sheets("MTBF").PivotTables("4400M").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = False
  Sheets("MTBF").PivotTables("960M").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = False
  Sheets("MTBF").PivotTables("1850M").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = False
  Sheets("MTBF").PivotTables("4100M").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = False
  Sheets("MTBF").PivotTables("9020M").PivotFields("Reason").PivotItems("ACCIDENT DAMAGE").Visible = False
  
End If

End Sub

Obviously this cannot be the best way of doing it, as there would be 140 sections of code this size which would exceed the excel limits.

Is there a simple way of implementing this same code for 140 different entries? I'm brand new to VBA though I have some coding experience with C++ and matlab. I'm running excel 2007