Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Disattivare filtro automatico su macro

1,014 views
Skip to first unread message

Max

unread,
Jul 16, 2010, 4:05:15 PM7/16/10
to
Buona sera a tutti

Ho creato una macro casereccia che mi estrapola dei dati in automatico,
nelle prime righe della macro ho fatto in modo di disattivare i filtri
automatici, se presenti, con le seguenti righe :

Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=4
Selection.AutoFilter Field:=5

E' possibile avere un comando solo per disattivare tutti i filtri
anzichè averne uno per colonna ??
A volte tolgo o aggiungo filtri alle colonne e non vorrei dimenticarmi
di modificare la macro.

Grazie
Max

Scossa

unread,
Jul 16, 2010, 5:05:29 PM7/16/10
to
On 16 Lug, 22:05, Max <m...@despammed.com> wrote:
> E' possibile avere un comando solo per disattivare tutti i filtri


vedi l'help relativo alla proprietà FilterMode e ShowAllData membri di
Worksheet

If Worksheets("Sheet1").FilterMode = True Then
Worksheets("Sheet1".ShowAllData
End If

Bye!
Scossa

Max

unread,
Jul 17, 2010, 3:22:38 AM7/17/10
to
Il 16/07/2010 23.05, Scossa ha scritto:
> If Worksheets("Sheet1").FilterMode = True Then
> Worksheets("Sheet1".ShowAllData
> End If
>

Grazie Scossa, ho leggermente modificato le tue righe perchè non
funzionavano.
Ho ovviamente messo il nome del mio foglio ed ho aggiunto la parentesi
dove mancava, per fortuna ci sono arrivato da solo senza dover
ulteriormente fare domande che per te potevano semprare ovvie ma per il
sottoscritto non lo erano visto che i miei limiti li conosco bene.

If Worksheets("Dati").FilterMode = True Then
Worksheets("Dati").ShowAllData
End If

Ciao
Max

Scossa

unread,
Jul 17, 2010, 4:17:29 AM7/17/10
to
On 17 Lug, 09:22, Max <m...@despammed.com> wrote:
>
> Grazie Scossa, ho leggermente modificato le tue righe perchè non
> funzionavano.

Scusa, era solo l'esempio tratto dall'help e nel modificarlo ho
cancellato la parentesi.

Grazie per il riscontro.

Bye!
Scossa

Bruno Campanini

unread,
Jul 17, 2010, 7:49:42 AM7/17/10
to
"Max" <m...@despammed.com> wrote in message
news:%Sc0o.212659$813.2...@tornado.fastwebnet.it...

> Grazie Scossa, ho leggermente modificato le tue righe perchè non
> funzionavano.
> Ho ovviamente messo il nome del mio foglio ed ho aggiunto la parentesi
> dove mancava, per fortuna ci sono arrivato da solo senza dover
> ulteriormente fare domande che per te potevano semprare ovvie ma per il
> sottoscritto non lo erano visto che i miei limiti li conosco bene.
>
> If Worksheets("Dati").FilterMode = True Then
> Worksheets("Dati").ShowAllData
> End If

Stringi, stringi...

If Worksheets("Dati").FilterMode Then


Worksheets("Dati").ShowAllData
End If

Bruno

0 new messages