Suma de Incidencias

Hola JJGarcia. Por lo que veo "se perdió" la respuesta que te puse. LA
REPITO:
Si se produce desbordamiento es porque no has escrito los IDs en la columna
ID, tal como te comento en el punto 2 de mi mensaje. Me refiero a una lista
con todos los IDs (sin repetir).

Saludos desde Tenerife
*****************************
"JJGarcia" escribió en el mensaje
news:
Hector, AnSanVal,
Eh probado ambos metodos, la formula de Hector funciona muy bien,
solo en los dos primeros registros pone un '#¡Ref!', solo en las dos
primeras lineas de ahi en fuera realiza la funcion que esperaba y si es
mas sencillo filtrar el listado por 'Verdadero', Hector, una pregunta,
que es lo que hace la formula, me refiero a las operaciones que
realiza, que son?, como realiza la evaluacion?, serias tan amable de
explicarme que hace?, estoy tratando de comprender como es que hace su
trabajo porque el producto que obtengo es que le que necesito y me
interesa saber como es que hace la evaluacion de los registros.

AnSanVal, intente correr el codigo con un copy/paste y me devolvio un
error de desbordamiento, modifique en el codigo el rango de datos, lo
volvi a ejecutar y no me devuelve nada, de igual forma, estoy tratando
de comprender que es lo que hace el codigo para saber donde puede estar
el posible error que de antemano se que es de mi parte, algo no eh de
estar haciendo bien.

Saludos, JJGarcia


JJGarcia wrote:
> Hector, AnSanVal,
>
> Un ID puede tener multiples incidencias, en ocasiones puede ser la
> misma, cuando es la misma se distinguen por un comentario al final,
> pero para el reporte es irrelevante por lo que a eso es a lo que me
> refiero con 'agrupar por' puesto que agruparia primero que nada por ID,
> despues por incidencia y despues por fecha, puede haber 3 incidencias
> 'GOOD' en una misma fecha(manejo de prod) por lo que al agruparla solo
> quedara una, al final de cuentas, la unica incidencia que nos interesa
> REALMENTE es la que esta marcada con el status 'BAD' y nos interesa si
> y solo si se dio la misma incidencia en 4 dias seguidos, esto significa
> un foco rojo y una oportunidad de mejora para X departamento que haya
> incurrido en las incidencias.
>
> Y... no, no eh tenido oportunidad de probrar con ninguno de los metodos
> que tuvieron a bien enviarme, hare las pruebas y les dejare saber que
> tal me ah ido.
>
> saludos, JJGarcia
>
> AnSanVal wrote:
> > Hola Hector. No, mis preguntas no te las dirigia a ti :-) (faltaría
> > más),
> > se las dirigía a JJGarcia, porque no tengo claro lo que él considera
> > consecutivos. Cuando puse mi respuesta no habia visto la tuya, eso me
> > ocurre
> > cuando contesto sin actualizar en el O. Expres.
> >
> > Saludos desde Tenerife.
> > *********************************
> > "Héctor Miguel" escribió en el mensaje
> > news:
> > > hola, AnSanVal !
> > >
> > > no se si algo he dejado fuera de las consideraciones ?
> > > - filtros avanzados / unicos / copiar a la columna ID los productos
> > > - datos en columnas A:C
> > > - libres las columnas J:L
> > > - copiado/pegado y ejecutado el codigo propuesto y... nada -?-
> > >
> > > saludos,
> > > hector.
> > >
> > >> Los señalados con "<" (y sólo esos) ¿se consideran consecutivos?.
> > >> (mismo ID, Incidencia = "Bad" y días consecutivos)
> > >> producto incidencia Fecha
> > >> 3086 Bad 28/Jul/06
> > >> 33086 Bad 28/Jul/06
> > >> 33089 Bad 28/Jul/06
> > >> 33086 Good 29/Jul/06
> > >> 33086 Good 29/Jul/06
> > >> 3086 Good 29/Jul/06
> > >> 33086 Bad 31/Jul/06 <
> > >> 33083 Bad 31/Jul/06
> > >> 73086 Bad 31/Jul/06
> > >> 33086 Bad 01/Ago/06 <
> > >> 23087 Bad 01/Ago/06
> > >> 33086 Bad 01/Ago/06 <
> > >> 53086 Bad 01/Ago/06
> > >> 33062 Bad 02/Ago/06
> > >> 33021 Bad 02/Ago/06
> > >> 33086 Bad 02/Ago/06 <
> > >> Si es asi prueba este código, siempre que:
> > >> 1.- Datos en A:C.
> > >> 2.- En columna ID (a partir de ID1) están los IDs no repetidos.
> > >> 3.- Esten libres las columnas J:L.
> > >> Sub consecutivos()
> > >> Dim ID As Double
> > >> Dim filaID As Integer
> > >> Dim filaDatos As Double
> > >> Dim filaDestino As Integer
> > >> Dim contador As Integer
> > >> Dim borra As Integer
> > >> filaDestino = 1
> > >> For filaID = 1 To Range("ID1").End(xlDown).Row
> > >> If contador < 4 Then
> > >> Range(Cells(filaDestino - contador, 10), _
> > >> Cells(filaDestino, 12)).ClearContents
> > >> filaDestino = filaDestino - contador
> > >> End If
> > >> contador = 0
> > >> For filaDatos = 2 To Cells(1, 1).End(xlDown).Row
> > >> If Cells(filaDatos, 1) = Cells(filaID, 238) And _
> > >> Cells(filaDatos, 2) = "Bad" Then
> > >> If filaDestino = 1 Then
> > >> Cells(1, 10) = Cells(filaDatos, 1).Value
> > >> Cells(1, 11) = Cells(filaDatos, 2).Value
> > >> Cells(1, 12) = Cells(filaDatos, 3).Value
> > >> filaDestino = 2
> > >> contador = 1
> > >> GoTo 1
> > >> End If
> > >> If Cells(filaDatos, 3) < Cells(filaDestino - 1, 12) + 2 Then
> > >> Cells(filaDestino, 10) = Cells(filaDatos, 1).Value
> > >> Cells(filaDestino, 11) = Cells(filaDatos, 2).Value
> > >> Cells(filaDestino, 12) = Cells(filaDatos, 3).Value
> > >> filaDestino = filaDestino + 1
> > >> contador = contador + 1
> > >> Else
> > >> Range(Cells(filaDestino - contador, 10), _
> > >> Cells(filaDestino, 12)).ClearContents
> > >> filaDestino = filaDestino - contador
> > >> Cells(filaDestino, 10) = Cells(filaDatos, 1).Value
> > >> Cells(filaDestino, 11) = Cells(filaDatos, 2).Value
> > >> Cells(filaDestino, 12) = Cells(filaDatos, 3).Value
> > >> filaDestino = 2
> > >> contador = 1
> > >> End If
> > >> 1
> > >> End If
> > >> Next filaDatos
> > >> Next filaID
> > >> If contador < 4 Then Range(Cells(filaDestino - contador, 10), _
> > >> Cells(filaDestino, 12)).ClearContents
> > >> End Sub
> > >
> > >