Borrar filtros de todos los docs de una carpeta

[freak21]

Buenas a todos,

Estoy haciendo esta macro, lo que hace es recoger información de todos los archivos de una carpeta para consolidarlos en este archivo.
El PROBLEMA es que esos archivos tienen...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[freak21]

Sub MostrarOcultasQuitarFiltros()

For Each Sheet In Woorkbooks(Indice).Sheets
With Sheet
.Visible = -1
.AutoFilterMode = False
.Columns.Hidden =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[freak21]

Ya lo he solucionado, por si a alguien le interesa, hay que modificar el código:

de -> ActiveSheet.ShowAllData
a -> If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

Con esto consigues...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí