UDF For Each to end after certain range

[VBE313]

I was thankful enough to receive a UDF from Rick Rothstein. https://www.mrexcel.com/forum/excel...-not-blank-again-post5294214.html#post5294214

I was wondering if someone can help me and figure out a Do Until a certain range, I have to uses over 30 of these functions in one sheet and it calculates very very slow.

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

Thanks
​

 

[Fluff]

Maybe

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

This will exit when col A is blank

 

[VBE313]

Thank you Fluff! I am going to try this now.