Bienvenido a la mayor comunidad de usuarios EXCEL
Regístrate gratis ahora para ver contenidos y descargas sin restricciones!Regístrate gratis Ingresar
Filtro automatico
- Autor del tema sven
- Fecha de inicio
Macro Antonio
Moderator
- Registrado
- 22 Dic 2009
- Mensajes
- 10.774
Prueba esta macro:
Código:
Sub Autofiltro()
With Sheets("BASE")
.Range("A1:O" & .Range("A" & Rows.Count).End(xlUp).Row).AdvancedFilter _
Action:=xlFilterCopy, _...Madre mia, muchas gracias.
No hay nada como saber, funciona perfectamente.
No hay nada como saber, funciona perfectamente.
Me a surgido un nuevo problema con la macro que no había tenido en cuenta.
la cosa es que hice una macro muy rudimentaria que funcionaba muy lento y solo permitía hacer un filtro, pero, y aquí es...
la cosa es que hice una macro muy rudimentaria que funcionaba muy lento y solo permitía hacer un filtro, pero, y aquí es...
Cacho R
Moderator
- Registrado
- 23 Jun 2011
- Mensajes
- 14.223
.
Hola! sven. En tal caso intenta con:
.
Hola! sven. En tal caso intenta con:
.
funciona bien pero al cerrar el excel me sale el mensaje:
"La imagen es demasiado grande y será cortada"
a que se debe??, ha empezado a aparecer al cambiar el autofiltro
"La imagen es demasiado grande y será cortada"
a que se debe??, ha empezado a aparecer al cambiar el autofiltro
Cacho R
Moderator
- Registrado
- 23 Jun 2011
- Mensajes
- 14.223
.
Te lo pregunto pues la macro sólo...
¿Imagen?... ¿Qué imagen?...sven dijo:
Te lo pregunto pues la macro sólo...
Macro Antonio
Moderator
- Registrado
- 22 Dic 2009
- Mensajes
- 10.774
...sven dijo:
el mensaje me lo da cuando cierro el excel despues de usar el filtro no cuando lo uso, independiente mente de como lo haga (botón, alt f8 y paso a paso.)
alguien sabe porque pasa??, o hacer otra macro de filtro que no de ese error??
Macro Antonio
Moderator
- Registrado
- 22 Dic 2009
- Mensajes
- 10.774
sven dijo:
Sube el archivo en el que te pasa y/o Inténtalo con un archivo nuevo.
aquí esta el archivo pass ghj
creo que el problema deberia estar en :
Sub Autofiltro()
Sheets("BASE").Unprotect "ghj"
Application.ScreenUpdating = False
If Range("a5") <> "" Then
With Sheets("FILTRO")
.Range("A5:O" &...
Sub Autofiltro()
Sheets("BASE").Unprotect "ghj"
Application.ScreenUpdating = False
If Range("a5") <> "" Then
With Sheets("FILTRO")
.Range("A5:O" &...
Cacho R
Moderator
- Registrado
- 23 Jun 2011
- Mensajes
- 14.223
.
Reemplaza lo que te pasé antes por esto otro:
Reemplaza lo que te pasé antes por esto otro:
Código:
Sub filtroAvanzado()
Sheets("Filtro").Range("A4").CurrentRegion.Delete xlShiftUp
With Sheets("BASE").Range("A1").CurrentRegion...Macro Antonio
Moderator
- Registrado
- 22 Dic 2009
- Mensajes
- 10.774
A mi me ha dejado de salir el mensaje después de colocar Application.CopyObjectsWithCells = False al principio de la macro.
:?: :?: :?: Vaya Vd a saber porqué.
:?: :?: :?: Vaya Vd a saber porqué.
Cacho R
Moderator
- Registrado
- 23 Jun 2011
- Mensajes
- 14.223
.
Cierto es...Antoni dijo:
muchas gracias a ambos, he optado por cambiar el código para no arrastrar el error por si acaso.
