Macro deshacer Filtro

[Pablus00]

Hola Colegas, hice un macro con un filtro que funciona correctamente, el problema surge cuando necesito volver atras el filtro para se muestren todos los registros.

Encontre este este codigo:

ActiveSheet.ShowAllData

Que me deshace el Filtro, pero ademas me muestra otras filas ocultas que tengo fuera del rango Filtrado.

Pense en volver a ocultar las filas que quiero ( las que estan lejos del filtro) como parte del macro para que vuelva a estar la hoja como al inicio:

ActiveSheet.ShowAllData
Rows("7:8").Select
Selection.EntireRow.Hidden = True

Pero no se si hay algun codigo que me permita volver atraz lo que se filtro, sin variantes. (pregunto esto por que son 2 mil registros, y para filtrar y desfiltrar demora una eternidad. Gracias!

PD: El Rango de Filtrado comienza desde la fila 12 en adelante (2000 reg aprox)

[mrocf]

Me gustaría ayudarte pero no está muy clara tu descripción pues digo:

a) por un lado afirmas que "ShowAllData" muestra otras columnas ocultas. Pero por otro afirmas que deseas que permanezcan ocultas las filas "7" y "8" (Rows("7:8").Hidden = True). Entonces tu problema de "ocultamiento" es: ¿con la filas o las columnas?.

b) Tienes 2000 registros (uno puede suponer que están desde la fila 1 a la fila 2000, por ejemplo) y afirmas que "ShowAllData" muestra otras columnas ocultas que tengo fuera del rango Filtrado. Luego pones como ejemplo ocultar las filas "7" y "8". Entonces: ¿ "7" y "8" pertenecen o no al rango de filtrado ? (pues pertenecen a las filas "1" a "2000").

Sería bueno que aclararas estas cuestiones. Saludos.

Iniciado por Pablus00

... ActiveSheet.ShowAllData

Que me deshace el Filtro, pero ademas me muestra otras columnas ocultas que tengo fuera del rango Filtrado.

Pense en volver a ocultar las columnas que quiero como parte del macro para que vuelva a estar la hoja como al inicio:

ActiveSheet.ShowAllData
Rows("7:8").Select
Selection.EntireRow.Hidden = True

[Pablus00]

gracias mrocf por la aclaracion, en el apuro, quedo redactado confuso. Espero que ahora se entienda

[mrocf]

No he podido reproducir tu problema por lo que imagino que debe haber "algo más" que lo que has descripto...
Por otro lado no has comentado cual de los dos filtros estás utilizando (filtro avanzado ó autofiltro).

En cualquier caso, te sugiero que intentes el método:

Código:

[A12:E12].AutoFilter

Como este método muestra u oculta (alternativamente) las flechas desplegables de Autofiltro (ubicándolas en el rango: [A12:E12]), verás que -al mismo tiempo- muestra TODAS las filas de un rango previamente filtrado.

Realmente, deberías utilizar el método: ActiveSheet.ShowAllData que hace visibles todas las filas de la lista filtrada actual. Pero como no te funciona, intenta lo antes acotado.

Saludos.

[Pablus00]

Hola Mrocf, gracias por la respuesta, pero voy a intentar que se entienda mi duda:

Tengo una hoja en donde almaceno mis ventas, siempre agregando con un macro, una fila nueva a partir de la fila 7, es decir son 2000 registros a partir de la fila 7 hacia abajo, en esta fila cada celda tiene, nombre, telefono, importe, etc etc.

Por otro lado tengo arriba de esto, en la fila 5 y 6, otras formulas, y tambien el criterio del filtro, que las tengo ocultas para que no estorben.

Con este codigo ejecuto el filtro, y funciona bien

Range("k7:FINAL").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("k5:k6"), Unique:=False

Pero al momento de querer quitar el filtro y mostrar todos los registros..

ActiveSheet.ShowAllData

me los muestra todos, pero ademas me muestra las filas 5 y 6. No se por que ocurre esto...

yo quiero que las filas 5 y 6 siempre esten ocultas, y la unica manera es que luego de que ejecuto ActiveSheet.ShowAllData las vuelvo a ocultar con

Rows("5:6").Select
Selection.EntireRow.Hidden = True

Esto no deberia pasar, me lleva mucho tiempo y quiero que no ocurra, quisiera que al quitar el filtro, me vuelvan los registros filtrados a la normalidad, sin alterar otras filas de la pagina, hice mi mejor esfuerzo para que se entienda, cualquier cosa avisen, gracias

[mrocf]

Confianza: ¡ Le vamos a ganar !...
Sigo creyendo que "algo" está metiendo la"cola"... Prueba esto:

1º) Incorpora al final de mismo Módulo donde tienes la macro que realiza el filtro estas líneas:

Sub Prueba()
[K7:L7].AutoFilter
[K7:L7].AutoFilter
End Sub

2º) Filtra normalmente tu lista (o sea: lo que te funciona).

3º) Ejecuta la macro "Prueba"
Si luego de ejecutarla tienes a las filas 5 y 6 escondidas y a tu lista totalmente visible, entonces tu macro que contiene la sentencia: ActiveSheet.ShowAllData tiene algún "problemita".

De lo contrario, nada puedo aportarte sin ver la hoja. Quedo al aguardo de buenas noticias.

Saludos