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.
Leer las respuestas