AutoFilterMode

Question

Ciao,

ho un foglio Excel con sotto questo codice che ho riutilizzato da una risposta ad altro utente:

Public Sub Main()

  Foglio1.Select

  ApplicaFiltro

  ......

End Sub

---

Public Sub ApplicaFiltro()

    Dim sh As Worksheet

    Set sh = ActiveSheet

    If sh.AutoFilterMode = False Then Selection.AutoFilter

    Set sh = Nothing

End Sub

Quando viene aperto il foglio, correttamente la sub applica il filtro.

Ad un secondo passaggio, però, dato che il filtro c'è, mi aspettavo di trovare sh.AutoFilterMode a True, invece è ancora a False, quindi toglie il filtro con il Selection.AutoFilter.

Dove sbaglio?

Grazie per il supporto

S.

Answer 1

Ciao Norman,

sono riuscito a scaricarlo aprendo il link dal telefono: il tuo esempio funziona. Ma avevo fatto una prova anche io con un file semplice e mi funzionava.

Il problema persiste con il tuo codice inserito nel mio file. Evidentemente è il giro più complesso (scarico da SQL, schiaccio hyperlink, si apre il form della richiesta, schiaccio "salva" e a quel punto deve fare il refresh del foglio) che lo disturba. Appena ho un po' di tempo provo a ripulire il foglio e a metterlo in DropBox.

Intanto grazie per l'aiuto.

Simone