Question

I need to summarize some info depending on the date. I mean, I need to sum some info if the date correspondig to that info is within an interval.

Is there anyway to do it?

I have seen “DATEDIFF”, but what I need would be something like:

‘If the data evaluted is whitin the next interval sum the value.

Hope you understood my question.

Thanks in advance.

EDITED: I added a pic to make it more understandable

Answer 1

This will do it. I don’t know where you want to use total, so now you just get a messagebox.

Sub SumBetweenTwoDates()

Dim total As Integer
total = 0

Dim firstDate As Date, secondDate As Date
firstDate = DateValue("20/11/2012")
secondDate = DateValue("20/12/2012")

For i = 1 To 5
    If Range("A" & i).Value >= firstDate And Range("A" & i).Value <= secondDate Then
        total = Range("B" & i).Value + total
    End If
Next i

MsgBox total

End Sub