Discussione:
Azzerare filtri attivi in foglio senza eliminarlo/estirparlo
(troppo vecchio per rispondere)
Bruno.62
2015-10-02 14:59:04 UTC
Permalink
Excel 2010.

Ho usato la stringa e la sub che seguono, ma non riazzerano solo il
filtro automatico, ma lo estirpano e quindi non è più disponibile in
caso di foglio bloccato.
Come risolvere?
Grazie


If Selection.AutoFilter = True Then Selection.AutoFilter


e questo codice:

Sub AutoFiltroOff()

Dim wb As Workbook
Dim ws As Worksheet

Set wb = ThisWorkbook
Set ws = wb.ActiveSheet

'azzera le condizioni del filtro automatico
'e mostra tutti i dati
If ws.AutoFilterMode Then
If ws.FilterMode Then
ws.ShowAllData
End If
End If

Set ws = Nothing
Set wb = Nothing

End Sub

---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus
Nando
2015-10-02 15:57:43 UTC
Permalink
"Bruno.62" ha scritto nel messaggio news:mum63p$nrp$***@speranza.aioe.org...

<Excel 2010.

<Ho usato la stringa e la sub che seguono, ma non riazzerano solo il
<filtro automatico, ma lo estirpano

il metodo Worksheets("Foglio1").ShowAllData azzera i criteri di
filtraggio ma preserva il filtro.
Bruno.62
2015-10-02 18:20:11 UTC
Permalink
Post by Nando
<Excel 2010.
<Ho usato la stringa e la sub che seguono, ma non riazzerano solo il
<filtro automatico, ma lo estirpano
il metodo Worksheets("Foglio1").ShowAllData azzera i criteri di
filtraggio ma preserva il filtro.
^^^^^^^^^^^^^^^^^^^
Ciao Nando, ho copato il tuo codice, ma ricevo il seguente errore:

Indice non compreso nell'intervallo (errore 9).
Ora vedo di smanettare un pocchino, salvo non arrivi prima tu.


---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus
Bruno.62
2015-10-02 20:00:57 UTC
Permalink
Post by Bruno.62
Post by Nando
<Excel 2010.
<Ho usato la stringa e la sub che seguono, ma non riazzerano solo il
<filtro automatico, ma lo estirpano
il metodo Worksheets("Foglio1").ShowAllData azzera i criteri di
filtraggio ma preserva il filtro.
^^^^^^^^^^^^^^^^^^^
Indice non compreso nell'intervallo (errore 9).
Ora vedo di smanettare un pocchino, salvo non arrivi prima tu.
---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus
^^^^^^^^^^^^^^^^^^^^^^
Nando, con il seguente codice funziona correttamente; azzera i filtri
senza estirparli.
Bene! Risolta anche questa

---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus
Bruno.62
2015-10-02 20:03:49 UTC
Permalink
Il 02/10/2015 20:20, Bruno.62 ha scritto:

[CUT]

Scusa, ho scordato il pezzo importante.

Sub AutoFiltroOff()

If Foglio4.FilterMode = True Then
Foglio4.ShowAllData
End If

End Sub


---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus
Bruno.62
2015-10-02 20:11:18 UTC
Permalink
Post by Bruno.62
Post by Nando
<Excel 2010.
<Ho usato la stringa e la sub che seguono, ma non riazzerano solo il
<filtro automatico, ma lo estirpano
il metodo Worksheets("Foglio1").ShowAllData azzera i criteri di
filtraggio ma preserva il filtro.
^^^^^^^^^^^^^^^^^^^
Indice non compreso nell'intervallo (errore 9).
Ora vedo di smanettare un pocchino, salvo non arrivi prima tu.
---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus
^^^^^^^^^^^^

Scusami, sbagliavo. Ho provato con due filtri e mi da errore run time
1004. Bho vacci a capire qualcosa.
Bruno

---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus
Nando
2015-10-02 20:27:32 UTC
Permalink
"Bruno.62" ha scritto nel messaggio news:mumod4$4f4$***@speranza.aioe.org...

<Scusami, sbagliavo. Ho provato con due filtri e mi da errore run time
<1004. Bho vacci a capire qualcosa.


prova questa (cambiando il foglio se necessario) :

If ActiveSheet.AutoFilterMode Then
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
ElseIf ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
Bruno.62
2015-10-02 21:23:07 UTC
Permalink
Post by Nando
<Scusami, sbagliavo. Ho provato con due filtri e mi da errore run time
<1004. Bho vacci a capire qualcosa.
If ActiveSheet.AutoFilterMode Then
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
ElseIf ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
^^^^^^^^^^^^^^^^
Non so quanto possa essere d'aiuto!
Mi dispiace, mi sa che per te diventa una fatica bestiale, quindi se
ritieni molla questo problema, vuol dire che i filtri si toglieranno
manualmente prestando attenzione, magari si trova la soluzione più avanti.

^^^^^
Errore di run time 1004
errore nel metodo ActiveSheet.ShowAllData
Errore definito dall'applicazione o dall'oggetto




---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus
Bruno.62
2015-10-02 21:47:20 UTC
Permalink
Post by Bruno.62
Post by Nando
<Scusami, sbagliavo. Ho provato con due filtri e mi da errore run time
<1004. Bho vacci a capire qualcosa.
If ActiveSheet.AutoFilterMode Then
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
ElseIf ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
^^^^^^^^^^^^^^^^
Non so quanto possa essere d'aiuto!
Mi dispiace, mi sa che per te diventa una fatica bestiale, quindi se
ritieni molla questo problema, vuol dire che i filtri si toglieranno
manualmente prestando attenzione, magari si trova la soluzione più avanti.
^^^^^
Errore di run time 1004
errore nel metodo ActiveSheet.ShowAllData
Errore definito dall'applicazione o dall'oggetto
---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus
^^^^^^^^^^^^^^^^^^^^^^
Non ci posso credere! Pare che questa funzioni.
Link:
http://stackoverflow.com/questions/21761027/excel-2013-vba-clear-all-filters-macro

'Azzera i criteri di filtraggio ma preserva il filtro
Sub AutoFiltroOff()

On Error Resume Next
ActiveSheet.ShowAllData

End Sub

---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus
Bruno.62
2015-10-02 21:58:38 UTC
Permalink
Post by Bruno.62
Post by Bruno.62
Post by Nando
<Scusami, sbagliavo. Ho provato con due filtri e mi da errore run time
<1004. Bho vacci a capire qualcosa.
If ActiveSheet.AutoFilterMode Then
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
ElseIf ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
^^^^^^^^^^^^^^^^
Non so quanto possa essere d'aiuto!
Mi dispiace, mi sa che per te diventa una fatica bestiale, quindi se
ritieni molla questo problema, vuol dire che i filtri si toglieranno
manualmente prestando attenzione, magari si trova la soluzione più avanti.
^^^^^
Errore di run time 1004
errore nel metodo ActiveSheet.ShowAllData
Errore definito dall'applicazione o dall'oggetto
---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus
^^^^^^^^^^^^^^^^^^^^^^
Non ci posso credere! Pare che questa funzioni.
http://stackoverflow.com/questions/21761027/excel-2013-vba-clear-all-filters-macro
'Azzera i criteri di filtraggio ma preserva il filtro
Sub AutoFiltroOff()
On Error Resume Next
ActiveSheet.ShowAllData
End Sub
---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus
^^^^^^^^^^^^^^^^^^^

Interessante! Il file ha la protezione e la sub funziona bene solo se
metto la possibilità di modifica scenari (ultima voce in basso).
Mizziga, la cosa è stancante.

---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus
Bruno.62
2015-10-02 22:05:10 UTC
Permalink
[CUT]

Questa funziona, ma solo con foglio senza protezione.

'Azzera i criteri di filtraggio ma preserva il filtro
Sub AutoFiltroOff()

On Error Resume Next
With ActiveSheet
If .AutoFilterMode Then
.ShowAllData
End If
End With


End Sub


---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus

Loading...