Sincronizzare il filtro su fogli diversi

Question

Un’anima disponibile che mi voglia dedicare un po’ del suo tempo.

Guardando in rete sul forum ho trovato il seguente argomento: Medesimo filtro in più fogli contemporaneamente in risposta a tale post interveniva il signor. Gamberini inserendo dei codici che forse potrebbero aiutarmi a gestire meglio i 65 fogli che normalmente filtro uno ad uno, e che aggiorno ogni mese inserendo nuovi dati.

Purtroppo chiedo aiuto io non sono capace ne di  adattarli e/o modificarli i codici in questione postati sono i seguenti:

Codice del Foglio1:

Private Sub Worksheet_Activate()

    Dim lng As Long

    If Me.FilterMode = False Then Me.Range("A1").AutoFilter

    Me.ShowAllData

    For lng = 1 To 10

        If f(lng) <> "" Then

            Me.Cells(1, lng).AutoFilter Field:=lng, Criteria1:=f(lng)

        End If

    Next

End Sub

Public Function f(ByVal lng As Long)

    Dim sh As Worksheet

    Set sh = ThisWorkbook.Worksheets("Foglio2")

    With sh

        If .AutoFilterMode Then

            With .AutoFilter.Filters(lng)

                If .On Then

                    f = .Criteria1

                End If

            End With

        End If

    End With

    Set sh = Nothing

End Function

Codice del Foglio2:

Private Sub Worksheet_Activate()

    Dim lng As Long

    If Me.FilterMode = False Then Me.Range("A1").AutoFilter

    Me.ShowAllData

    For lng = 1 To 10

        If f(lng) <> "" Then

            Me.Cells(1, lng).AutoFilter Field:=lng, Criteria1:=f(lng)

        End If

    Next

End Sub

Public Function f(ByVal lng As Long)

    Dim sh As Worksheet

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    With sh

        If .AutoFilterMode Then

            With .AutoFilter.Filters(lng)

                If .On Then

                    f = .Criteria1

                End If

            End With

        End If

    End With

    Set sh = Nothing

End Function

dovrei inserirli:

Foglio 1 rinom. A1

https://onedrive.live.com/?gologin=1&mkt=it-IT#cid=5DD6A33D3135CF7C&id=5DD6A33D3135CF7C%21128

Foglio2 rinom. A2 e cosi via per altri…….

https://onedrive.live.com/?gologin=1&mkt=it-IT#cid=5DD6A33D3135CF7C&id=5DD6A33D3135CF7C%21128

Foglio n….. rinom. subtotali

Il tutto al fine di rendere più agevole l’utilizzo di tale controllo, e di sapere sempre l’effettiva situazione di cassa per le  quote emesse, incassate e/o ancora da versare, in modo da dare un corretto utilizzo di quanto mi viene versato in cassa dai miei fiduciari, nei confronti dei creditori.

Ringraziandovi anticipatamente  per  l’eventuale disponibilità

---

NOTA. Titolo modificato dal moderatore. M.G.

Answer 1

<iframe src="https://onedrive.live.com/embed?cid=5DD6A33D3135CF7C&resid=5DD6A33D3135CF7C%21190&authkey=ABdYU5inCUyX4Pk&em=2" width="402" height="346" frameborder="0" scrolling="no"></iframe>

spero di aver inserito il link in modo corretto grazie per la vostra collaborazione

Answer 2

Ops buongiorno anche a lei signor Gamberini

Answer 3

Ciao  Andycap 64, Grazie per il suggerimento e mi scuso per la mia poca esperienza, in futuro sarò più attento a titolare un nuovo post,  per gli allegati,provo a rimediare.

Answer 4

io non riesco a vedere gli allegati, in secondo luogo suggerirei un titolo diverso affinché sia d'aiuto per le ricerche future, tipo: Sincronizzare il filtro su fogli diversi.

Gli allegati non riesco a visualizzarli neppure io. Titolo modificato.

Buona settimana a tutti.

Answer 5

...

Il tutto al fine di rendere più agevole l’utilizzo di tale controllo, e di sapere sempre l’effettiva situazione di cassa per le  quote emesse, incassate e/o ancora da versare, in modo da dare un corretto utilizzo di quanto mi viene versato in cassa dai miei fiduciari, nei confronti dei creditori.

Ringraziandovi anticipatamente  per  l’eventuale disponibilità

Ciao,

io non riesco a vedere gli allegati, in secondo luogo suggerirei un titolo diverso affinché sia d'aiuto per le ricerche future, tipo: Sincronizzare il filtro su fogli diversi.

Andrea.