[RISOLTO] macro che annulla il filtro automatico

[LUGIUDANI]

Salve a tutti.
Vorrei modificare una macro ma ho bisogno del vostro aiuto.
Sto cercando una macro che mi dia la possibilità di annullare il filtro automatico, digitando un pulsante sul foglio.
Al momento sto usando la macro che vedete qui di seguito, per impostare il criterio mostra tutti i valori all'interno del filtro automatico.
Mi chiedevo se c'era la possibilità di modificare la macro senza impostare il nome del foglio, ma che andasse a riconoscere il foglio attivo in modo tale da poter utilizzare la stessa macro in tutti i fogli che ho creato; e se c'era un'altro modo di scrivere in un'unica riga il range nel quale si trova il filtro automatico e impostare quindi su tutte le colonne il criterio All.

Codice: Seleziona tutto

Sub AnnullaFiltro()
dim I as integer
dim Sh as WorkSheet
Set Sh = Sheets("NomeFoglio")
	I = Sh.Range("J" & Rows.count).End(xlUp).Row
    ActiveSheet.Range("$A$7:$S" & I).AutoFilter Field:=1, Criteria1:=All	
    ActiveSheet.Range("$A$7:$S" & I).AutoFilter Field:=2, Criteria1:=All	
    ActiveSheet.Range("$A$7:$S" & I).AutoFilter Field:=3, Criteria1:=All
    ActiveSheet.Range("$A$7:$S" & I).AutoFilter Field:=4, Criteria1:=All
    ActiveSheet.Range("$A$7:$S" & I).AutoFilter Field:=5, Criteria1:=All
    ActiveSheet.Range("$A$7:$S" & I).AutoFilter Field:=6, Criteria1:=All
    ActiveSheet.Range("$A$7:$S" & I).AutoFilter Field:=7, Criteria1:=All
Set Sh = Nothing
End Sub

[patel]

sei passata al vba ? non capisco

[vladboscaneanu]

Codice: Seleziona tutto

Sub RemoveSheetFilter
Dim oSheet,oFilter as object
oSheet = ThisComponent.CurrentController.ActiveSheet
oFilter = oSheet.createFilterDescriptor(True)
oSheet.filter(oFilter)
End Sub

[LUGIUDANI]

Grazie vladboscaneanu! Perfetto!