Option Explicit
Private Sub Worksheet_Activate()
'Nel foglio 8, 9 e 10 inserisci il controllo dell'avento Activate
If filtroA = "" Then
If Me.FilterMode = True Then Me.Range("A1").AutoFilter
Else
Me.Range("A1").AutoFilter Field:=1, Criteria1:=filtroA
End If
End Sub
Public Function filtroA()
'Questa funzione dovrà essere riportata su ogni foglio in cui vuoi riportare il filtro del foglio1
Dim sh As Worksheet
Set sh = ThisWorkbook.Worksheets("Foglio1")
With sh
If .AutoFilterMode Then
With .AutoFilter.Filters(1)
If .On Then
filtroA = .Criteria1
End If
End With
End If
End With
Set sh = Nothing
End Function |