Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Application.DisplayAlerts = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If Application.Intersect(Application.Union(Range("D7"), Range("F7"), Range("H7"), Range("D9"), Range("F9"), Range("H9")), Target) Is Nothing Then Exit Sub
If Not Intersect(Target, Range("D7")) Is Nothing And Target.Count = 1 Then
Target = "¤"
[F7] = "¡": [H7] = "¡": [H9] = "¡": [A1] = 1
Rows("9:9").EntireRow.Hidden = False
Rows("10:25").EntireRow.Hidden = False
Rows("26:33").EntireRow.Hidden = False
Rows("34:37").EntireRow.Hidden = True
Rows("38:56").EntireRow.Hidden = True
End If
If Not Intersect(Target, Range("F7")) Is Nothing And Target.Count = 1 Then
Target = "¤"
[D7] = "¡": [H7] = "¡": [H9] = "": [A1] = 2
Rows("9:9").EntireRow.Hidden = False
Rows("10:25").EntireRow.Hidden = False
Rows("26:33").EntireRow.Hidden = True
Rows("34:37").EntireRow.Hidden = False
Rows("38:56").EntireRow.Hidden = True
End If
If Not Intersect(Target, Range("H7")) Is Nothing And Target.Count = 1 Then
Target = "¤"
[F7] = "¡": [D7] = "¡": [H9] = "": [A1] = 3: [D9] = "¤": [F9] = "¡": [B1] = 1
Rows("9:9").EntireRow.Hidden = True
Rows("10:25").EntireRow.Hidden = False
Rows("26:33").EntireRow.Hidden = True
Rows("34:37").EntireRow.Hidden = False
Rows("38:56").EntireRow.Hidden = True
End If
If Not Intersect(Target, Range("D9")) Is Nothing And Target.Count = 1 Then
Target = "¤"
If [D7] = "¤" Then
[F9] = "¡": [H9] = "¡": [B1] = 1
Rows("10:33").EntireRow.Hidden = False
Rows("38:56").EntireRow.Hidden = True
Else
[F9] = "¡": [H9] = "": [B1] = 1
Rows("10:25").EntireRow.Hidden = False
Rows("34:37").EntireRow.Hidden = False
Rows("38:56").EntireRow.Hidden = True
End If
End If
If Not Intersect(Target, Range("F9")) Is Nothing And Target.Count = 1 Then
Target = "¤"
If [D7] = "¤" Then
[D9] = "¡": [H9] = "¡": [B1] = 2
Rows("10:25").EntireRow.Hidden = False
Rows("38:56").EntireRow.Hidden = True
Else
[D9] = "¡": [H9] = "": [B1] = 2
Rows("10:25").EntireRow.Hidden = False
Rows("34:37").EntireRow.Hidden = False
Rows("38:56").EntireRow.Hidden = True
End If
End If
If Not Intersect(Target, Range("H9")) Is Nothing And Target.Count = 1 Then
Target = "¤"
[D9] = "¡": [F9] = "¡": [B1] = 3
Rows("13:37").EntireRow.Hidden = True
Rows("38:56").EntireRow.Hidden = False
End If
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub