Problemas de macro con filtros que no filtra (no es formato de fec

09/08/2007 - 16:42 por fermerlo | Informe spam
Hola!

Quiero ver si alguien me puede ayudar ya que todas las macros que tengo con
filtros no corren correctamente. Se aplica el primer filtro pero la segunda
vez que tiene que filtrar aparece como si no hubiera nada. Si lo hago
manualmente hay datos, pero cuando lo hago corriendo la macro no filtra.

De hecho, en la misma macro, le pido que me muestre todo y tampoco funciona,
solo me muestra los títulos y ningún dato de los que le estoy pidiendo.

Les envio el código, aunque estoy casi segura que no es eso ya que corria
perfectamente la semana pasada y no le he cambiado nada. De un día para otro
empezo a hacer eso.

Intenté haciendo de nuevo el archivo desde una hoja en blanco, grabe de
nuevo la macro y cuando la estaba grabando hacía todo perfectamente pero al
correrla otra vez no funcionó!

Por favor ayudenme, ya no se que mas hacer!

Aqui esta el código:

Columns("B:E").Select
Selection.EntireColumn.Hidden = True
Range("A6:O430").Select
ActiveSheet.PageSetup.PrintArea = "$A$6:$O$430"
Range("AE8").Select
ActiveCell.FormulaR1C1 = "2"
Range("AE9").Select
Selection.AutoFilter Field:1, Criteria1:="CONF" ((LO HACE
CORRECTAMENTE))
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.AutoFilter Field:), Criteria1:="CETES" (((AQUI YA NO FILTRA)))
Range("J6:O7").Select
ActiveWindow.SelecteSheets.PrintOut Copies:=1, Collate:=True
Range("AE8").Select
ActiveCell.FormulaR1C1 = "17"
Range("AE9").Select
Selection.AutoFilter Field:1, Criteria1:="CONF" (((AQUI YA NO FILTRA)))
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("AC9").Select
Selection.AutoFilter Field:) (((AQUI YA NO FILTRA)))
Range("AE8").Select
ActiveCell.FormulaR1C1 = "10"
Range("AE9").Select
Selection.AutoFilter Field:1, Criteria1:="CONF" (((AQUI YA NO FILTRA)))
Range("J8").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("AE9").Select
Selection.AutoFilter Field:1 (((LE QUITO LOS FILTROS Y NO APARECE NADA
ADEMÁS DE LOS TÍTULOS)))


Muchas gracias.

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
10/08/2007 - 08:37 | Informe spam
hola, !

... todas las macros que tengo con filtros no corren correctamente.
Se aplica el primer filtro pero la segunda vez que tiene que filtrar aparece como si no hubiera nada.
Si lo hago manualmente hay datos, pero cuando lo hago corriendo la macro no filtra.
De hecho, en la misma macro, le pido que me muestre todo y tampoco funciona
solo me muestra los titulos y ningun dato de los que le estoy pidiendo.
Les envio el codigo, aunque estoy casi segura que no es eso
ya que corria perfectamente la semana pasada y no le he cambiado nada.
De un dia para otro empezo a hacer eso.
Intente haciendo de nuevo el archivo desde una hoja en blanco, grabe de nuevo la macro
y cuando la estaba grabando hacia todo perfectamente pero al correrla otra vez no funciono!



1) las siguientes veces donde ya no filtra... [es casi seguro que]...
se debe a que en el campo 29 [columna AC] no existen celdas donde coincida el criterio en ambos campos
-> el utilizado anteriormente en el campo 31 -columna AE- de "CONF"
-> y el recientemente agregado al campo 29 -columna AC- de "CETES" -???-
-> tampoco ocurre algun autofiltrado cuando indicas el numero de campo PERO no indicas el *criterio* :-((

2) para *quitar* los autofiltros, no debes indicar ningun numero de campo...
-> solo debes usar algo +/- como: -> Selection.AutoFilter

comentas [si hubiera] algun detalle *en el tintero* ?
saludos,
hector.

__ el codigo expuesto __
Columns("B:E").Select
Selection.EntireColumn.Hidden = True
Range("A6:O430").Select
ActiveSheet.PageSetup.PrintArea = "$A$6:$O$430"
Range("AE8").Select
ActiveCell.FormulaR1C1 = "2"
Range("AE9").Select
Selection.AutoFilter Field:1, Criteria1:="CONF" ((LO HACE CORRECTAMENTE))
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.AutoFilter Field:), Criteria1:="CETES" (((AQUI YA NO FILTRA)))
Range("J6:O7").Select
ActiveWindow.SelecteSheets.PrintOut Copies:=1, Collate:=True
Range("AE8").Select
ActiveCell.FormulaR1C1 = "17"
Range("AE9").Select
Selection.AutoFilter Field:1, Criteria1:="CONF" (((AQUI YA NO FILTRA)))
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("AC9").Select
Selection.AutoFilter Field:) (((AQUI YA NO FILTRA)))
Range("AE8").Select
ActiveCell.FormulaR1C1 = "10"
Range("AE9").Select
Selection.AutoFilter Field:1, Criteria1:="CONF" (((AQUI YA NO FILTRA)))
Range("J8").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("AE9").Select
Selection.AutoFilter Field:1 (((LE QUITO LOS FILTROS Y NO APARECE NADA ADEMà
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida