Controllare se è attivo il filtro automatico

Question

Ho una cartella di lavoro con 10 fogli di lavoro (foglio1, foglio2, etc fino a 10) si puo fare in modo che si controlli su 9 fogli (dal secondo al decimo)se è attivo il filtro automatico e, se è attivo, disattivarlo?

Grazie

Answer 1

Ho una cartella di lavoro con 10 fogli di lavoro (foglio1, foglio2, etc fino a 10) si puo fare in modo che si controlli su 9 fogli (dal secondo al decimo)se è attivo il filtro automatico e, se è attivo, disattivarlo?

Grazie

Public Sub m()

    Dim sh As Worksheet

    Dim lng As Long

    For lng = 2 To 10

        MsgBox ThisWorkbook.Worksheets(lng).AutoFilterMode

    Next

    Set sh = Nothing

End Sub

True hai il filtro automatico sul foglio, False non lo hai.

NOTA. La macro tiene conto della posizione del foglio. Se invece ti riferisci ai nomi:

Public Sub m()

    Dim sh As Worksheet

    Dim lng As Long

    For lng = 2 To 10

        MsgBox ThisWorkbook.Worksheets("Foglio" & lng).AutoFilterMode

    Next

    Set sh = Nothing

End Sub

Fai sapere, grazie.

---

--

La soluzione, il codice ed i files sono forniti *così come sono* e l’autore declina ogni responsabilità per eventuali problemi causati dalla soluzione proposta se usata impropriamente. Create e utilizzate una copia del file per le vostre prove, *prima* di utilizzare la soluzione in files importanti.

--

Mauro Gamberini - Microsoft© MVP(Excel)

http://www.maurogsc.eu/

Answer 2

Risolto! Grande Mauro come sempre gentile e preciso.

Rinnovo i miei Auguri a tutti coloro che con bontà ci aiutano e a Mauro in particolare!

Tanti Auguri

Alfredo

;-) Grazie.

---

--

La soluzione, il codice ed i files sono forniti *così come sono* e l’autore declina ogni responsabilità per eventuali problemi causati dalla soluzione proposta se usata impropriamente. Create e utilizzate una copia del file per le vostre prove, *prima* di utilizzare la soluzione in files importanti.

--

Mauro Gamberini - Microsoft© MVP(Excel)

http://www.maurogsc.eu/

Answer 3

Risolto! Grande Mauro come sempre gentile e preciso.

Rinnovo i miei Auguri a tutti coloro che con bontà ci aiutano e a Mauro in particolare!

Tanti Auguri

Alfredo

Grazie