Cumplidas e Incumplidas

hola, Ivan !

1) me da la impresion de que los formatos incluyen *celdas combinadas* -?-

... no he conseguido encontrarlas, y he probado a eliminar todo lo sobrante, a quitar formatos por partes
y unas cuantas combinaciones mas, pero la unica forma en que de momento no se disparan los errores es borrando desde edicion.
Aunque ahora que lo pienso no se me ha ocurrido intentar descombinar por codigo las posibles combis. Creo que echare un ojo

=> prueba desde la hoja de calculo seleccionando una celda y pulsando {ctrl}+{espacio} <= atajo para seleccionar toda la columna
si se *atraviesa* alguna celda combinada, lo que estaras seleccionando es MAS de una sola columna ;)

2.tambien me da la impresion de que debiera buscarse el mes ? -> Format(Date, "mm")

tienes razon, lo he puesto/copiado 50 veces desde ayer y no me habia dado ni cuenta.
Supongo que al coincidir el mes con el a#o y darme el resultado correcto ni me he vuelto a fijar. Muchas gracias
(Y espero que OP tome nota)
de todas formas seguro que existe alguna opcion de saber el trimestre en curso mas sencilla, pero no se me ocurrio otra

=> tampoco son muy *cortas* que digamos [pero pudieran resutar mas... *claras*] prueba:
Trimestre = Int((Month(Date) + 2) / 3)
Trimestre = Evaluate("match("& Month(Date) & ",{1;4;7;10})")

saludos,
hector.

hola Hector ( y Jesus)

no se si Jesus conseguira su objetivo (creo que en su mano esta responder a ciertas cuestiones planteadas al principio
del hilo), pero lo que es seguro es que yo me llevo la cesta llena de jugosas novedades (a las del vinculo habria que
añadir las nuevas formas sugeridas para trimestre <especialmente lo referido a Evaluate, que aun sin haberlo estudiado
todavia, promete abrir un campo interesante> y algo tan sencillo y aparentemente tan tonto, pero a la vez tan practico,
como el atajo de teclado < con un par de pruebas he hallado tambien el de seleccionar las filas [mayus+espacio]> )
bueno, lo dicho, los añado a la saca y muchas gracias otra vez.

en cualto al tema, finalmente y tras diversas pruebas parece que no hay celdas combinadas, pero lo que si habia era
formatos condicionales que incluian la fiila de titulos ( ademas de columnas enteras, y en otros formatos para filas
completas), y en mis pruebas manuales no se me ocurria quitarselos a esta, solo a los datos.

parece que existe alguna incompatibilidad entre los formatos condicionales y los filtros avanzados, pues tras quitar
estos formatos de la fila de tuitulos (que eran los que se me quedaban en mis pruebas anteriores) la macro ha corrido
sin problemas

aunque no controlo nada sobre el tema, mirando la auyuda si me ha dado la impresion de que quizas se podrian capturar de
alguna manera los f.c., quitarlos para la macro y reponerlos despues, pero creo que esta seria otra historia, y a la
espera de lo que comente Jesus en cuanto a tus consultas del inicio, por mi parte doy por +/- cerrado el tema

para Jesus:

supongo que estaras leyendo esto (yo lo haria si fuera mi hilo). Como veras el problema parece venir de los formatos
condicionales, en tu mano esta buscar una solucion.a este nuevo tema.

en cuanto a lo anterior, creo que si contestas las preguntas citadas sera mas facil cerrar los flecos que aun quedan

un saludo
ivan




"Héctor Miguel" escribió en el mensaje news:u5JRc$

hola, Ivan !

1) me da la impresion de que los formatos incluyen *celdas combinadas* -?-

... no he conseguido encontrarlas, y he probado a eliminar todo lo sobrante, a quitar formatos por partes
y unas cuantas combinaciones mas, pero la unica forma en que de momento no se disparan los errores es borrando desde
edicion.
Aunque ahora que lo pienso no se me ha ocurrido intentar descombinar por codigo las posibles combis. Creo que echare
un ojo

=> prueba desde la hoja de calculo seleccionando una celda y pulsando {ctrl}+{espacio} <= atajo para seleccionar
toda la columna
si se *atraviesa* alguna celda combinada, lo que estaras seleccionando es MAS de una sola columna ;)

2.tambien me da la impresion de que debiera buscarse el mes ? -> Format(Date, "mm")

tienes razon, lo he puesto/copiado 50 veces desde ayer y no me habia dado ni cuenta.
Supongo que al coincidir el mes con el a#o y darme el resultado correcto ni me he vuelto a fijar. Muchas gracias
(Y espero que OP tome nota)
de todas formas seguro que existe alguna opcion de saber el trimestre en curso mas sencilla, pero no se me ocurrio
otra

=> tampoco son muy *cortas* que digamos [pero pudieran resutar mas... *claras*] prueba:
Trimestre = Int((Month(Date) + 2) / 3)
Trimestre = Evaluate("match("& Month(Date) & ",{1;4;7;10})")

saludos,
hector.

hola Jesus,

aparte de lo que supongo ya habras leido en las demas respuestas,
comentarte sobre esto==>>

En la propuesta 2, en la linea:
Trimestre = Int((CLng(Format(Date, "yy")) + 2) / 3)
n = Trimestre + 2
le hice el cambia a 3 y funciono tambien, ese funciono correctamente con ese
cambio, me envia las cumplidas y los pte a incumplidas, siempre y cuando
hayan cumplido ocon las 4.

aparte de modificar la instruccion cambiando "yy" por "mm", como
supongo ya habras hecho, si haces lo que comentas, (cambiar el 2 por
el 3) nunca te evaluara el trimestre en curso cuando ejecutes la
macro en el 3er mes de cada trimestre y te pondra los resultados en
el trimestre siguiente, haciendote un 'pequeño' lio.(creo)

si definitivamente lo que quieres es que te ponga lo que haya aunque
no hayas llegado al ultimo trimestre cambia esta parte del codigo

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

y dejala asi (no lo he probado, si no zurula lo comentas)


' sobreescribe/cambia lo anterior con esto
dim ultf as long ' esta variable puedes ponerla con las otras o
dejarla tal cual
ultf=.[a65536].end(xlup).row
With Worksheets("Cumplio_Todos")
.Columns.Clear
.Range("a1") = Worksheets("Resultados").Cells(1, 2 + n)
.Range("a2") = "Cumplio"
Worksheets("Resultados").Range("a1:f" & ultf).AdvancedFilter
_
Action:=xlFilterCopy, _
CriteriaRange:=.Range("a1:a2"), _
CopyToRange:=.Range("a4:f4")
End With

creo que esto valdria, pero te recomiendo volver a poner el '2' donde
estaba, o creo (tampoco lo he probado, pero) que en determinadas
fechas te acordaras de este hilo mas de una vez. Tambien te recomiendo
hacer un libro por año, pues sino en los cambios de año tambien puedes
tener mas de un conflicto

un saludo
Ivan

Gracias Ivan por tu respuesta y por tu ayuda...
Te confirmo que la columna A, siempre, contiene datos...
Sustituyendo, segun me indicas:
Rango_lista = .UsedRange.Address
por esto =>>
Rango_lista = "a1:i" & .range("a65536").end(xlup).row
me sale un mensaje que dice
"Error 1004 en tiempo de ejecución.
El rango de extracción tiene un nombre de campo inexistente o no permitido."
y colorea de amarillo a partir de ...
.Range(Rango_lista).AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Sheets(i).Range("H3:H4"), _
CopyToRange:=Sheets(i).Range("A6:I6")

Me he vuelto loco y no le saco punta...
¿Podrías ayudarme a ver que pasa".
Gracias de antemano por tu ayuda y por las molestias que te estoy ocasionando.

"Ivan" escribió:

hola Albymar,

con el permiso de Hector, y aunque solo sea por descargarle un poco de tarea,

> 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.

creo que podria valerte con cambiar esto =>>

Rango_lista = .UsedRange.Address

por esto =>>

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

suponiendo que la columna 'a' siempre va tener datos si la fila los tiene. Si no fuera asi cambia la 'a' de "a655362 por
la letra de la columna que siempre vaya a tenerlos

espero te valga y un saludo a todos
Ivan


"Albymar" escribió en el mensaje
news:
> 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.
>
>
>
>
>

Que tal Ivan y Hector Miguel, aqui de nueva cuenta, pues esoy viendo los
mensajes anteriores, ( como trabajo de lunes a viernes ), segun me comentas
que podria ver algo mas de, por ejemplo algun formato, te comento que nomas
es asi la lista y las anotaciones de que si Cumplio o Pte, estan echas a
mano, algo oculto de alguna formula no, al principio las llamaba desde otro
archivo con vinculo de = pero las para manejar mejor el archivo, seguire tus
consejos de agregarle de nuevo el dos y el codigo que me proporcionas lo
usare,. estare al pendiente a cualqueir cosa y muchas gracias y tambien
gracias por las molestia de apoyarme,..

saludos

Jesús Peralta
el_ultimo_profeta"alt+64"hotmail.com
Hermosillo, Sonora. Mexico
"Ivan" escribió en el mensaje
news:
hola Jesus,

aparte de lo que supongo ya habras leido en las demas respuestas,
comentarte sobre esto==>>

En la propuesta 2, en la linea:
Trimestre = Int((CLng(Format(Date, "yy")) + 2) / 3)
n = Trimestre + 2
le hice el cambia a 3 y funciono tambien, ese funciono correctamente con
ese
cambio, me envia las cumplidas y los pte a incumplidas, siempre y cuando
hayan cumplido ocon las 4.

aparte de modificar la instruccion cambiando "yy" por "mm", como
supongo ya habras hecho, si haces lo que comentas, (cambiar el 2 por
el 3) nunca te evaluara el trimestre en curso cuando ejecutes la
macro en el 3er mes de cada trimestre y te pondra los resultados en
el trimestre siguiente, haciendote un 'pequeño' lio.(creo)

si definitivamente lo que quieres es que te ponga lo que haya aunque
no hayas llegado al ultimo trimestre cambia esta parte del codigo

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

y dejala asi (no lo he probado, si no zurula lo comentas)


' sobreescribe/cambia lo anterior con esto
dim ultf as long ' esta variable puedes ponerla con las otras o
dejarla tal cual
ultf=.[a65536].end(xlup).row
With Worksheets("Cumplio_Todos")
.Columns.Clear
.Range("a1") = Worksheets("Resultados").Cells(1, 2 + n)
.Range("a2") = "Cumplio"
Worksheets("Resultados").Range("a1:f" & ultf).AdvancedFilter
_
Action:=xlFilterCopy, _
CriteriaRange:=.Range("a1:a2"), _
CopyToRange:=.Range("a4:f4")
End With

creo que esto valdria, pero te recomiendo volver a poner el '2' donde
estaba, o creo (tampoco lo he probado, pero) que en determinadas
fechas te acordaras de este hilo mas de una vez. Tambien te recomiendo
hacer un libro por año, pues sino en los cambios de año tambien puedes
tener mas de un conflicto

un saludo
Ivan