Tengo que hacer un filtro avanzado para una tabla que tengo. En ella existen títulos y otras cosas encima de la misma que no puedo cambiar por lo que no puedo hacer referencia a las columnas. Tengo este código:
Sheets("Resultados act").Range("C6:BH10000").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Resultados act").Range("L2:X3"), CopyToRange:=Range("C6:BH10000"), _
Unique:=False
Ahora de momento la tabla sólo tiene unas 3000 referencias pero he tenido que poner el 10000 para asegurar que si el día de mañana meten más, el programa funcione. Sin embargo tiene un límite admisible de 10000, que algún día podrá ser sobrepasado.
Tengo una variable "Num_Ref" que cuenta cuantas referencias existen y por ello se me ha ocurrido hacer un filtro relativo utilizando dicha variable para que mejore el rendimiento. Antes de meter dicha variable he probado a sustituir Range("C6:BH10000") por Range(Cells(6,3),Cells(10000,60)) y no funciona.
Sheets("Resultados act").Range(Cells(6, 3), Cells(10000, 60)).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Resultados act").Range("L2:X3"), CopyToRange:=Range(Cells(6, 3), Cells(10000, 60)), _
Unique:=False
Debería de ser lo mismo. He intentado hacer otras cositas a la desesperada, pero no entiendo por qué no funciona si sí que lo hace con el select y otras funciones que he probado.
Alguno sabría cómo hacerlo o por lo menos explicarme por qué no funciona porque ya estoy un poquito artito del asunto
Un saludo y muchas gracias.