Filtros y macros

No soy muy instruido en esto pero prueba esto
antes de la instruccion ?

On error resume next

JAime J


"Quicon" escribió en el mensaje
news:

Hola a todos,

El problema es el siguiente tengo una hoja con diferentes macros para
diferentes filtrados. Para hacer un filtrado de una, primero tengo que
desfiltrar el anterior, pero al usar la expresion
"ActiveSheet.ShowAllData"
si no hay nada filtrado me da error, por lo que tendria que poner antes
alguna expresion que hiciera que si no hay nada filtrado se la saltara.

Gracias y un saludo

On 21 sep, 20:10, Quicon wrote:

Hola a todos,

El problema es el siguiente tengo una hoja con diferentes macros para
diferentes filtrados. Para hacer un filtrado de una, primero tengo que
desfiltrar el anterior, pero al usar la expresion "ActiveSheet.ShowAllData"
si no hay nada filtrado me da error, por lo que tendria que poner antes
alguna expresion que hiciera que si no hay nada filtrado se la saltara.

Gracias y un saludo

hola, no se si es muy correcto, pero yo uso lo que comenta Jaime

'On error Resume Next'

lo unico acuerdate de desactivar 'la desactivacion' de errores
inmediatamente despues de la instruccion ShowAllData, es decir, algo
asi:

with activesheet
On Error Resume Next
.ShowAllData
on Error Goto 0

hola, !

... tengo una hoja con diferentes macros para diferentes filtrados.
Para hacer un filtrado de una, primero tengo que desfiltrar el anterior
pero al usar la expresion "ActiveSheet.ShowAllData" si no hay nada filtrado me da error
por lo que tendria que poner antes alguna expresion que hiciera que si no hay nada filtrado se la saltara.

[p.e.] -> If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

saludos,
hector.

Muchar gracias, funciona a la perfección

"Ivan" escribió:

On 21 sep, 20:10, Quicon wrote:
> Hola a todos,
>
> El problema es el siguiente tengo una hoja con diferentes macros para
> diferentes filtrados. Para hacer un filtrado de una, primero tengo que
> desfiltrar el anterior, pero al usar la expresion "ActiveSheet.ShowAllData"
> si no hay nada filtrado me da error, por lo que tendria que poner antes
> alguna expresion que hiciera que si no hay nada filtrado se la saltara.
>
> Gracias y un saludo

hola, no se si es muy correcto, pero yo uso lo que comenta Jaime

'On error Resume Next'

lo unico acuerdate de desactivar 'la desactivacion' de errores
inmediatamente despues de la instruccion ShowAllData, es decir, algo
asi:

with activesheet
On Error Resume Next
..ShowAllData
on Error Goto 0

hola Hector,

[p.e.] -> If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

es lo que andaba buscando desde hace tiempo (y mira que lo he visto
veces, pero...)

la verdad es que creia que se aplicaba solo con los autofiltros, al
igual que autofiltermode [¿o es que esta tambien vale si las celdas
estan ocultas con filtros avanzados?]

bueno, otra para la saca

muchas gracias por lo que me toca

un saludo
Ivan