Cumplidas e Incumplidas

Mi problema esta en que: el .UsedRange de la tabla es "A1:K2625" y lo que
quiero filtrar es "A6:I2625", y este rango puede ir ampliandose con mas
filas.

Hola Hector, (tambien saludos a Jesús y a Ivan)

Este es un hilo que me interesa y despues de seguirlo y haber visitado el
enlace que expusiste ( http://tinyurl.com/yvpasr) he intentado aplicar tus
enseñanazas, pero me he "atrancado" y por eso pido ayuda al "profe" ...
Aplicando el codigo, a mis necesidades, que se expone en dicho enlace queda:

Sub Filtro_avanzado()
Dim Rango_lista As String
Application.ScreenUpdating = False
With Worksheets("General")
Rango_lista = .UsedRange.Address
For i = 2 To ThisWorkbook.Sheets.Count
.Range(Rango_lista).AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Sheets(i).Range("H3:H4"), _
CopyToRange:=Sheets(i).Range("A6:I6")
Next
End With
End Sub

Mi problema esta en que: el .UsedRange de la tabla es "A1:K2625" y lo que
quiero filtrar es "A6:I2625", y este rango puede ir ampliandose con mas
filas.
Sinceramente, mis conocimientos en código, son limitados y con esto me he
atrancado, ¿podeis ayudarme?
Gracias de antemano a todos.

hola Jesus,

a la espera de que contestes las dudas que te plantea Hector, y su
(probable) posterior propuesta, te comento:

el codigo que te mande, si has seguido correctamente las indicaciones que
te daba en teoria no deberia tener problemas y te copiaba en las 6 hojas
mencionadas (intenta releer el mensaje con calma) un resumen con todos los
que tenian algun Pte, otra con los que tenian 'todo' cumplido, y una por
trimestre con los que tenian ese trimestre Pte. (aunque si no has adaptado
el cambio de rango de "d:g" a "c:f" sera 'dificil' que marche
correctamente.

de todas formas me he animado a hacer unas pruebas con la propuesta de
Hector y si quieres (y, estoy seguro, con su permiso) puedes probarla,
pero asegurate de seguir las instrucciones que te doy a continuacion al
pie de la letra (una vez que veas su funcionamiento, podemos ver de
adaptarla a las condiciones concretas de tu archivo), aunque seguro que
Hector nos vuelve a sorprender con otra de sus 'maravillas'.

REQUISITOS para la prueba:

1º) crea un nuevo libro, y en este libro:

a) copia/pega en la primera hoja tu listado general y ponla el
nombre de 'Resultados'. En la 1ª fila y empezando en la columna A deben ir
los titulos y los datos empezar en la fila 2. Esta adaptado para los
nuevos rangos que expones (Resultados de la columna C a la F)

b) inserta hojas hasta tener un total de 6 ('Resultados' mas 5).
Coloca estas hojas por orden, es decir, la 1ª Hoja1, la 2ª hoja2,etc. (La
de 'Resultados' puedes ponerla al principio o al final o donde prefieras,
pero el resto si debe ir por orden.

c) una vez ordenadas las hojas, ponles los siguientes nombres por
orden y asegurandote de ponerlo exactamente como te lo pongo:
Pte_Trim_1, Pte_Trim_2, Pte_Trim_3, Pte_Trim_4 y a la
ultima Cumplio_Todos

d) copia pega todo estel codigo desde hasta donde te indico en un
nuevo modulo normal de este nuevo libro y al ejecutar el codigo (de la
forma que prefieras (pej. con F5 desde el editor para ver los resultados
aunque luego se lo asignes a un boton o a lo que quieras)) asegurate de
que ese libro es el activo (mejor si puedes cerrar todos los demas y dejar
solo ese abierto). OJO: ten cuidado con los posibles trunques de las
lineas en el editor del foro.

'' Copia desde aqui --
Sub Filtrar_Pendientes_2()
Dim Rango_Resultados As String, Hoja_Estado As Worksheet, _
n As Byte, Trimestre As Integer
Application.ScreenUpdating = False
With Worksheets("Resultados")
n = 1: Trimestre = Int((CLng(Format(Date, "yy")) + 2) / 3)
For Each Hoja_Estado In Worksheets(Array("Pte_Trim_1", _
"Pte_Trim_2", "Pte_Trim_3", "Pte_Trim_4"))
Rango_Resultados = .Range(.Cells(1, 1), _
.Cells(.[a65536].End(xlUp).Row, n + 2)).Address(0, 0)
Hoja_Estado.Range("a1") = .Cells(1, 2 + n)
Hoja_Estado.Range("a2") = "Pte"
.Range(Rango_Resultados).AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Hoja_Estado.Range("a1:a2"), _
CopyToRange:=Hoja_Estado.Range("a" & 4 & _
Mid(Rango_Resultados, 3, 2) & 4)
If n = Trimestre Then
With Worksheets("Cumplio_Todos")
.Columns.Clear
.Range("a1") = Worksheets("Resultados").Cells(1, 2 + n)
.Range("a2") = "Cumplio"
Worksheets("Resultados").Range(Rango_Resultados).AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=.Range("a1:a2"), _
CopyToRange:=.Range("a" & 4 & Mid(Rango_Resultados, 3, 2) & 4)
End With
End If
n = n + 1
Next
End With
End Sub
''hasta aqui -


2º) si has seguido a pies juntillas todas estas indicaciones y vuelve a no
funcionarte, comentas que nº y descripcion de error te da

un saludo y hasta pronto
Ivan

PD: disculpas para Hector si he podido cometer algun 'destrozo' con su
codigo

hola Jesus,

¿podrias indicarnos el nº y/o descripcion de error que te da?

revisa tambien que hayas puesto exactamente el nombre de las hojas tal y
como te lo habia puesto (ponselo haciendo doble click en la pestaña de
cada hoja)

Pte_Trim_1
Pte_Trim_2
Pte_Trim_3
Pte_Trim_4
Cumplio_Todas

tiene que coincidir TODO, es decir: mayusculas, minusculas y los guiones
bajos entre las partes, y que no se te cuele algun espacio delante, en
medio, ni detras de los nombres

de todas formas si puedes indica el error para saber por donde andamos

un saludo
Ivan

hola Jesus,

¿podrias indicarnos el nº y/o descripcion de error que te da?

revisa tambien que hayas puesto exactamente el nombre de las hojas tal y como te lo habia puesto (ponselo haciendo
doble click en la pestaña de cada hoja)

Pte_Trim_1
Pte_Trim_2
Pte_Trim_3
Pte_Trim_4
Cumplio_Todas

tiene que coincidir TODO, es decir: mayusculas, minusculas y los guiones bajos entre las partes, y que no se te cuele
algun espacio delante, en medio, ni detras de los nombres

de todas formas si puedes indica el error para saber por donde andamos

un saludo
Ivan