SUMA CONDICIONAL 2 CONDICIONES

[Renzo G]

JP,

Tengo una tabla de 2 columnas, en la primera estan las horas (formato horas) en la segunda columna el numero de elementos que llegaron a esa hora.
Lo que quiero es hacer una tabla de resumen tipo histograma que sume los elementos en intervalos de 30 minutos.
Gracias de antemano,

Renzo

 

[t4373125]

Hola.

Prueba esta macro y dime si hay algo que no entiendas. Puedes modificar los valores iniciales para que se adapte a tus necesidades.

Sub ResumenHoras()

Dim Hora As Date
Dim i As Integer

i = 2
'especificar la primera hora del resumen
Hora = #8:00:00 AM#
Range("E" & i).Value = Hora

'comenzar a analizar los datos
Range("A2").Select

'mientras queden datos
While ActiveCell.Value <> ""
'caso que no se tenga que cambiar la hora
If ActiveCell.Value < Hora + #12:30:00 AM# Then
'sumar la cantidad
Range("F" & i).Value = Range("F" & i).Value + ActiveCell.Offset(0, 1).Value
'caso que se tenga que cambiar de hora
Else
'nueva hora
i = i + 1
Hora = Hora + #12:30:00 AM#
Range("E" & i).Value = Hora
While ActiveCell.Value >= Hora + #12:30:00 AM#
'nueva hora
i = i + 1
Hora = Hora + #12:30:00 AM#
Range("E" & i).Value = Hora
Wend
'sumar la cantidad
Range("F" & i).Value = Range("F" & i).Value + ActiveCell.Offset(0, 1).Value
End If
'ir al siguiente valor
ActiveCell.Offset(1, 0).Select
Wend

End Sub


Un saludo.