Cumplidas e Incumplidas

25/07/2007 - 22:59 por Jesús Peralta | Informe spam

Que tal Mestros y Amigos del Foro, saludos ante todo,..
Me podrian apoyar la mano con esto, tengo en la hoja llamada Resultados esta
tabla, como podria llevarme las Pte a otra hoja que se llama Incumplidas,
y Cumplio a otra hoja que se llama Cumplidas, no se si por medio de macro o
alguna Formula llame las las que Cumplio y Pte y asi, conforme vayan
Cumpliendo se vayana Cumplidas y las Pendientes a Incumplidas o si hay una
manera mejor de llevar este control, ya que son 150 instituciones las que se
le meten informacion y las leyendas Cumplio y Pte me aparecen en base a otro
archivo que se va llenando.
saludos y gracias de antemano

A B C D E F G
1 Region Poblacion Resultados Primer Trimestre 2007 Resultados Segundo
Trimestre 2007 Resultados Tercer Trimestre 2007 Resultados Cuarto Trimestre
2007
2 Caborca Agrupación George Papanicolaou de Caborca, I.A.P. Cumplio
Pte Pte Pte
3 Caborca Casa Hogar Pbro. Luis María Valencia,A.C. Cumplio Pte Pte
Pte
4 Caborca Centro de Integración para Drogadictos y Alcohólicos, A.C.
Caborca Cumplio Pte Pte Pte
5 Caborca Fundación Educativa y Cultural Don Bosco de Caborca, A.C.
Pte Pte Pte Pte
6 Caborca Familias con Propósitos en México, A.C. Cumplio Pte Pte Pte
7 Caborca Agrupación George Papanicolaou Puerto Peñasco, I.A.P.
Cumplio Pte Pte Pte
8 Caborca Casa Hogar "Esperanza para los Niños", I.A.P. Cumplio Pte
Pte Pte
9 Caborca Centro de Integración para Drogadictos y Alcohólicos, A.C.
Puerto Peñasco Cumplio Pte Pte Pte
10 Caborca Club de Leones de Caborca APIRC, A.C. Pte Pte Pte Pte
11 Caborca Club de Leones de Caborca, A.C. Cumplio Pte Pte Pte

Jesús Peralta
el_ultimo_profeta"alt+64"hotmail.com
Hermosillo, Sonora. Mexico

Siga el debate

36 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#31 Ivan

30/07/2007 - 20:03 | Informe spam

hola,

Gracias de antemano por tu ayuda y por las molestias que te estoy ocasionando

no solo no hay molestia, sino que a lo mejor el que te las estoy
ocasionando soy yo a ti al no haber dejado/esperado a que respondiera
Hector, a quien dirijias tu consulta y ademas autor del codigo, y que
seguramente si hay algo mas de lo que yo veo, te lo resolveria rapido.

en cuanto al error, a mi siempre que me ha dado ha sido porque no
coincidan el nº de columnas del rango de extraccion (el que vas a
filtrar) y el rango de destino.

respecto a esto se me ocurren dos cosas
1ª) ¿la columna final a filtrar es la 'i' de Italia o la 'L' de Laos?.
En el editor del foro no se ve claro y podria ser cualquiera de las
dos (la i en mayusculas o la L en minusculas) pero supuse que era la i
por tu comentario sobre el usedrange, creyendo que querias que te
copiara menos columnas que las que este contiene, pues si hay datos
hasta la L esta formaria parte del usedrange.

si es esto, es facil: cambia en

Rango_lista = "a1:i" & .range("a65536").end(xlup).row

la 'i' de "a1:i" por una L

2ª) la primera fila de datos (y aqui es posible que tambien yo me haya
equivocado)
es la 6 ( ¿o la 7?) . si es asi cambia en el mismo "a1:i" el 1 por el
nº de la fila de titulos de tu lista.

2.1/2) que sean ambas cosas. Cambia ambas.

asi a simple vista no se me ocurre otra cosa para el error que
comentas.

De todas formas supongo que Hector se dara una vuelta por aqui, y que
si hay algo que yo no este viendo te lo comentara.

espero haya suerte
Un saludo
Ivan

Responder a este mensaje

#32 Albymar

31/07/2007 - 10:12 | Informe spam

Gracias Ivan por tu interes, y por tus enseñarme a moverme con código...
Aunque formule la pregunta a Hector, por ser el autor del codigo, no era
exclusiva, como dice "el mismo" puede que otro encuentre o tenga ya la
solución antes.
Bueno a lo que vamos...
1º La columna a filtrar es la I (Italia)
2º La fila de títulos es la 6 (seis)
por lo que el código quedaria ...

Sub Filtro_avanzado()
Dim Rango_lista As String
Application.ScreenUpdating = False
With Worksheets("GENERAL")
Rango_lista = "A6:I" & .Range("A65536").End(xlUp).Row
For i = 3 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

Pues a pesar de revisar y modificar estos apartados sigue dandome el mismo
error, lo peor de esto es que no quiero darme por vencido ya que si, con la
grabadora de macros me funciona con una hoja ¿por qué al aplicarlo con
codigo, falla?,
Bueno seguiremos sacandole punta y encontrar la solucion
GRACIAS de nuevo por tu interes y por tu ayuda

"Ivan" escribió:

hola,

> Gracias de antemano por tu ayuda y por las molestias que te estoy ocasionando

no solo no hay molestia, sino que a lo mejor el que te las estoy
ocasionando soy yo a ti al no haber dejado/esperado a que respondiera
Hector, a quien dirijias tu consulta y ademas autor del codigo, y que
seguramente si hay algo mas de lo que yo veo, te lo resolveria rapido.

en cuanto al error, a mi siempre que me ha dado ha sido porque no
coincidan el nº de columnas del rango de extraccion (el que vas a
filtrar) y el rango de destino.

respecto a esto se me ocurren dos cosas>
1ª) ¿la columna final a filtrar es la 'i' de Italia o la 'L' de Laos?.
En el editor del foro no se ve claro y podria ser cualquiera de las
dos (la i en mayusculas o la L en minusculas) pero supuse que era la i
por tu comentario sobre el usedrange, creyendo que querias que te
copiara menos columnas que las que este contiene, pues si hay datos
hasta la L esta formaria parte del usedrange.

si es esto, es facil: cambia en

Rango_lista = "a1:i" & .range("a65536").end(xlup).row

la 'i' de "a1:i" por una L

2ª) la primera fila de datos (y aqui es posible que tambien yo me haya
equivocado)
es la 6 ( ¿o la 7?) . si es asi cambia en el mismo "a1:i" el 1 por el
nº de la fila de titulos de tu lista.

2.1/2) que sean ambas cosas. Cambia ambas.

asi a simple vista no se me ocurre otra cosa para el error que
comentas.

De todas formas supongo que Hector se dara una vuelta por aqui, y que
si hay algo que yo no este viendo te lo comentara.

espero haya suerte
Un saludo
Ivan

Responder a este mensaje

#33 Ivan

31/07/2007 - 12:38 | Informe spam

hola,

voy con prisa, pero mira a ver estas dos cosas: ¿tienes celdas
combinadas?¿formatos condicionales?

luego hablamos

un saludo
Ivan

Responder a este mensaje

#34 Albymar

31/07/2007 - 13:28 | Informe spam

Por fin, Ivan, lo saqué ...
Las celdas combinadas y los formatos condicionales ya los habia tenido en
cuenta, pero mira donde estaba ...
En la hoja "GENERAL" tengo los siguientes titulos:
Fecha|NºOp.|NºJustif.|Concepto|NIF|F.P.|Cuenta|Importe|y otras mas, etc...

y en cada una de las hojas individualizadas, habia mantenido los mismos
títulos, pero con la salvedad (tonteria, error o ignorancia) de que en la
celda "Concepto", el título, estaba vacía...

Una vez corregido, introducido el titulo de esa columna, en todas estas
hojas, el código "rula" que es una maravilla...incluso mas rápido que el
tenía anteriormente,

GRACIAS por tu ayuda y por tu interes

"Ivan" escribió: