Cumulative Totalling (how to...)

[alagoritma]

Hello all,

Good days...

Subject: How to cumulate a time based variable within its limits via VBA code?

Assume that I have two columns (A & B); A is for time stamp of the values and B holds the values...

A B
1 12:43 23.92
2 12:44 23.93
3 12:45 23:91

My question is: How to integrate the values within a time interval, from a starting time to a ending time?

I have seen some replies, as if an answer to my question but frankly I could not manage the code...Is any there gentle(wo)man, helping me?...

Thanks...


Regards,


Hilmi

 

[Harvey]

for each cell in Range(listoftimevalues)
  if cell.value => cellcontainingstartingtime and _
    cell.value <= cellcontainingendingtime then
    sumofthevaluesinthenextcolumn = sumofthevaluesinthenextcolum + cell.offset(1,0)
  end if
next cell

 

[alagoritma]

Harvey,

Your "narrative" code seems pretty may be...but still I need a translator...

Do you mind sending me a running example, if posssible?...

Thanks....

 

[Harvey]

this is how your sheet should look like:

Map2
	A	B	C	D	E	F	G	H
1	11:00	2
2	13:10	3
3	14:10	4
4	14:30	5				13:00	15:10	18
5	15:09	6
6	15:20	7
Blad1

A1:A6 is the range where the times are in.
B1:B6 (offset 1) is the range where the sum values are in
F4 is where the starting time is in
G4 is where the ending time is in
H4 is where the values will be put

Sub x()

For Each cell In Range("A1:A6")
  If cell.Value >= Range("F4") And _
    cell.Value<= Range("G4") Then
    sumvalues = sumvalues + cell.Offset(0, 1)
  End If
Next cell

    Range("H4").Value = sumvalues

End Sub