UDF to sum until certain column is not blank again

[VBE313]

Is there a UDF that someone can think of that can sum the column "A" UNTIL column "B" says "Yes" again and put the formula in column C?

I have seen similar UDFs but I cannot wrap my head around this one.
[TABLE="width: 246"]
<colgroup><col span="3"></colgroup><tbody>[TR]
[TD] [/TD]
[TD]Yes[/TD]
[TD] $ 1.76[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] $ 0.76[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] $ 0.12[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] $ 0.76[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] $ 0.12[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] $ 0.01[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] $ - [/TD]
[TD]Yes[/TD]
[TD] $ 3.28[/TD]
[/TR]
[TR]
[TD] $ - [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] $ 0.76[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] $ 0.12[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] $ 2.28[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] $ 0.12[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] $ 0.01[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] $ - [/TD]
[TD]Yes[/TD]
[TD] $ 1.76[/TD]
[/TR]
[TR]
[TD] $ - [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] $ 0.76[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] $ 0.12[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] $ 0.76[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] $ 0.12[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] $ 0.01[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] $ - [/TD]
[TD]Yes[/TD]
[TD] $ 3.28[/TD]
[/TR]
</tbody>[/TABLE]

 

[VBE313]

https://superuser.com/questions/1248988/how-to-sum-a-row-until-a-condition-is-met

This is the only URL that somewhat helped me understand. But this goes through columns not rows, my "Yes" can also be 0 if need be.

Thanks

 

[Rick Rothstein]

I am not sure why, but you example totals each are $0.01 too small. Anyway, give the following UDF a try...

Function SumToYes()
  Dim R As Long
  R = Application.Caller.Row + 1
  Do While Cells(R, "B").Value <> "Yes"
    SumToYes = SumToYes + Val(Cells(R, "A").Value)
    R = R + 1
  Loop
End Function

 

[VBE313]

Hi Rick,

Thank you for this UDF! I am very new to UDFs, so how how i type this in the cell?

Thanks!

 

[VBE313]

Hi Rick,

i just entered that with nothing else in it and it worked.

Thank you so much!