Accumulate Sum that meets a condition

[borge]

Hi guys,

I've been struggling with a macro, I'm really new at this.

I'm trying to do a cumulative sum from some values at Excel spreadsheet until that variable meets a given condition. Then, when that condition is met, I want a cell of Excel to take a value of another cumulative sum.

Sub InventoryDays()
Dim AcumCOGS As Long
Dim AcumDays As Long
For j = 0 To 12
ActiveSheet.Range("C24").Select
ActiveCell.Offset(0, j).Select
AcumCOGS = 0
AcumDays = 0
i = 0
AcumCOGS = AcumCOGS + ActiveCell.Offset(-2, i + 1)
AcumDays = AcumDays + ActiveCell.Offset(-17, i + 1)
Do
i = i + 1
Loop Until ActiveCell.Offset(-19, j).Value < AcumCOGS < AcumCOGS + ActiveCell.Offset(-2, i + 2).Value
ActiveCell.Value = AcumDays
Next j
ActiveSheet.Range("C24").Select
End Sub



Hope you can help me!

Thanks!