VBA DISATTIVARE FILTRO

Walter

unread,

Sep 9, 2009, 6:17:47 AM9/9/09

to

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

unread,

Sep 9, 2009, 6:33:01 AM9/9/09

to

"Walter" ha scritto:

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

--
Come e dove incollare il codice:
http://www.rondebruin.nl/code.htm

Il mio ultimo lavoro ...
http://excelvba.altervista.org/blog/index.php/Excel-VBA/UsedRange-eccezioni-e-alternative.html

Mauro Gamberini

unread,

Sep 9, 2009, 1:22:27 PM9/9/09

to

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 Gamberini
http://www.riolab.org/
http://blog.maurogsc.eu/
http://social.microsoft.com/Forums/it-IT/officeit/threads

Walter

unread,

Sep 10, 2009, 5:55:47 AM9/10/09

to

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

<maurogscRIMUOV...@RIMUOVEREaliceposta.it> wrote:
> 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

unread,

Sep 11, 2009, 1:13:21 AM9/11/09

to

> Grazie.

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