Eliminare filtri attivi
Hai un problema con Excel? 
Eliminare filtri attivi
di Fabio (utente non iscritto) data: 28/07/2014 16:52:44
Buongiorno a tutti,
prima di copiare dei dati dal Foglio1 al Foglio2, ho la necessità di eliminare eventuali filtri attivi sul Foglio2.
Non potendoli eliminare tutti, non posso usare la funzione ShowAllData e quindi utilizzo AutoFilter Field:=1 per ogni filtro che voglio eliminare.
Essendo diversi (circa 20) l'operazione diventa lenta.
Esiste un modo che sia più veloce?
Grazie mille.
di nichicanta (utente non iscritto) data: 29/07/2014 08:31:32
Ciao fabio prova cosi e vedi se va bene, il codice è del carissimo e preparatissimo Scossa che saluto con affetto e stima.
Sub AutoFiltroKill()
Dim wb As Workbook
Dim ws As Worksheet
Set wb = ThisWorkbook
Set ws = wb.ActiveSheet 'rimuove il filtro automatico dal foglio
If ws.AutoFilterMode = True Then
ws.AutoFilter.Range.AutoFilter
End If
Set ws = Nothing
Set wb = Nothing
End Sub
di Fabio (utente non iscritto) data: 29/07/2014 08:45:24
Ciao nichicanta, ho provato il codice che mi hai mandato, ma elimina completamente il filtro automatico.
Invece, io ho bisogno un codice che trovi i filtri che sono attivi e li tolga.
Non posso usare ShowAllData in quamto il primo filtro deve sempre essere attivo.
Grazie e buona giornata.
di elenav83 (utente non iscritto) data: 31/07/2014 09:14:01
Buongiorno, da tempo leggo questo forum e deve dire che ho imparato molto, anche se sono alle prime armi con Vba.
Anch'io ho una necessità simile a quella di Fabio.
Avrei bisogno di una macro che mi trovi quali sono le colonne che hanno dei filtri attivi tra tutte quelle che hanno il filtro automatico.
Grazie
di lepat (utente non iscritto) data: 31/07/2014 11:09:44
magari se alleghi un file di esempio con spiegazioni ci possiamo provare
di lepat (utente non iscritto) data: 31/07/2014 11:15:48
potrebbe andare bene usare ShowAllData e poi ricreare il primo filtro ?
di Fabio (utente non iscritto) data: 31/07/2014 11:24:35
Si, va bene se mi rimette il filtro con lo stesso valore
Vuoi Approfondire?