sumproduct by date and number

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have a data table which have inputs of dates(A) and values(B). The data
table starts at row 4 to 2000.
Is there a way to find the date at which the sum total is 100. Then sum the
values under 100.
 
Sub dototals()
lr = Cells(Rows.Count, "f").End(xlUp).Row
For Each c In Range("f1:f" & lr)
mysum = mysum + c
If mysum >= 100 Then
sr = c.Row + 1
Exit For
End If
Next
MsgBox sr
MsgBox Application.Sum(Range(Cells(sr, "f"), Cells(lr, "f")))
End Sub
 
Back
Top