VBA DISATTIVARE FILTRO

[Walter]

Ciao, sto creando poche righe di codice in una macro che chiedono
all'utente sd aprire un file excel e su questo togliere il filtro se
presente.
Usando --Selection.AutoFilter-- tolgo, in effetti, il filtro se
presente, ma se il foglio non ha filtro lo applico.
In sostanza lo toglie se c'è, ma lo mette se non c'è.

Come posso fare per individuare se è presente un filtro
(indipendentemente dal fatto che sia attivato) in un foglio ?
Grazie.

Walter

[r]

Post by Walter
Ciao, sto creando poche righe di codice in una macro che chiedono
all'utente sd aprire un file excel e su questo togliere il filtro se
presente.
Usando --Selection.AutoFilter-- tolgo, in effetti, il filtro se
presente, ma se il foglio non ha filtro lo applico.
In sostanza lo toglie se c'è, ma lo mette se non c'è.
Come posso fare per individuare se è presente un filtro
(indipendentemente dal fatto che sia attivato) in un foglio ?
Grazie.
Walter

vedi le proprietà:
AutoFilterMode
FilterMode
di Excel.Worksheet
saluti
r

[Mauro Gamberini]

Ciao, sto creando poche righe di codice in una macro che chiedono
all'utente sd aprire un file excel e su questo togliere il filtro se
presente.
Usando --Selection.AutoFilter-- tolgo, in effetti, il filtro se
presente, ma se il foglio non ha filtro lo applico.
In sostanza lo toglie se c'è, ma lo mette se non c'è.

Come posso fare per individuare se è presente un filtro
(indipendentemente dal fatto che sia attivato) in un foglio ?
********************************************

Public Sub m()

Dim sh As Worksheet
Set sh = ActiveSheet

With sh
MsgBox "Filtro attivo: " & .AutoFilterMode _
& vbNewLine & "Dati filtrati: " & _
.FilterMode
End With

Set sh = Nothing

End Sub

[Walter]

On 9 Set, 19:22, "Mauro Gamberini"

Post by Walter
Ciao, sto creando poche righe di codice in una macro che chiedono
all'utente sd aprire un file excel e su questo togliere il filtro se
presente.
Usando --Selection.AutoFilter-- tolgo, in effetti, il filtro se
presente, ma se il foglio non ha filtro lo applico.
In sostanza lo toglie se c'è, ma lo mette se non c'è.
Come posso fare per individuare se è presente un filtro
(indipendentemente dal fatto che sia attivato) in un foglio ?
********************************************
Public Sub m()
    Dim sh As Worksheet
    Set sh = ActiveSheet
    With sh
        MsgBox "Filtro attivo: " & .AutoFilterMode _
            & vbNewLine & "Dati filtrati: " & _
            .FilterMode
    End With
    Set sh = Nothing
End Sub
--
---------------------------
Mauro Gamberinihttp://www.riolab.org/http://blog.maurogsc.eu/http://social.microsoft.com/Forums/it-IT/officeit/threads

Grazie.

[Mauro Gamberini]

Post by Walter
Grazie.

Grazie a te per il riscontro
anche a nome di Roberto.
Buon lavoro.