Condividi:        

Resetta Filtro al Salvataggio

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Resetta Filtro al Salvataggio

Postdi Omocaig » 25/11/15 12:47

Ciao a tutti.

Vorrei che ad ogni salvataggio si azzerassero i criteri del filtro che ho applicato in riga 13 su tutte le colonne di ogni foglio per ogni cartella.
Spesso i criteri utilizzati per filtrare sono più di uno e in più colonne.

Ho provato la seguente macro per capire se almeno nel primo foglio riuscivo ad ottenere un risultato:

Codice: Seleziona tutto
Private Sub Workbook_BeforeSave(Cancel As Boolean)
If Sheet(1).FilterMode = True Then Sheet(1).Sheet(1).ShowAllData
End Sub


Errore di compilazione, la dichiarazione della routine non corrisponde alla dichiarazione dell'evento o alla routine dello stesso nome

Saluti e Grazie !
Xp + Office 2016 Ita
Omocaig
Utente Junior
 
Post: 93
Iscritto il: 11/05/15 15:08

Sponsor
 

Re: Resetta Filtro al Salvataggio

Postdi alfrimpa » 25/11/15 13:58

Ciao Omocaig

Questa qui sotto è la macro corretta.

Nella tua c'erano due errori:

1) Sheets e non Sheet
2) Sheets(1).ShowAllData e non Sheet(1).Sheet(1).ShowAllData

Codice: Seleziona tutto
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets(1).FilterMode = True Then Sheets(1).ShowAllData
End Sub
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 1201
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: Resetta Filtro al Salvataggio

Postdi Flash30005 » 26/11/15 00:44

Adotterei un codice di questo tipo che resetta tutti i filtri di
tutti i fogli
Codice: Seleziona tutto
For FF = 1 To Worksheets.Count
    Sheets(FF).Rows("1:1").AutoFilter
Next FF


sempre prima di salvare il file

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Resetta Filtro al Salvataggio

Postdi Anthony47 » 26/11/15 01:17

Flash, ma in questo modo, se il foglio ha i filtri impostati la macro elimina anche le impostazioni; se invece non ne ha la macro le posiziona in riga 1.
Non so se e' quello che chiedeva Omocaig....

Io propenderei piu' per un ibrido tra il tuo ciclo e le istruzioni di Alfredo:
Codice: Seleziona tutto
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
For FF = 1 To Worksheets.Count
    If Sheets(FF).FilterMode = True Then Sheets(FF).ShowAllData
Next FF
End Sub
Questa elimina i criteri di filtro ma lascia le impostazioni.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Resetta Filtro al Salvataggio":


Chi c’è in linea

Visitano il forum: Nessuno e 32 ospiti