VBA increment value until a condition is met

[RPM7]

Would anyone be able to help me with the following VBA?
I've no idea of how to do it.

If D15 < K15, then increment Y15 value+1 (This would need to loop until the condition is met)
Then go to next row and check the same.

This would have to apply to rows 15 to 44

Thanks

 

[bebo021999]

If I am right, you want to trigger change in D15 and K15, to see if D15<K15?
What is in D15 and K15, formula or value inputed manually?

 

[RPM7]

If I am right, you want to trigger change in D15 and K15, to see if D15<K15?
What is in D15 and K15, formula or value inputed manually?

Hi @bebo021999, thanks for the quick reply.

I only want to trigger a change to Y15. This cell is a manually inputted value.
D15 and K15 are formula driven cells and will update when Y15 changes.

 

[footoo]

Try :

Sub v()
[Y15:Y44] = Evaluate("IFERROR(IF(D15:D44<K15:K44,(Y15:Y44)+1,Y15:Y44),"""")")
End Sub

 

[RPM7]

Try :

Sub v()
[Y15:Y44] = Evaluate("IFERROR(IF(D15:D44<K15:K44,(Y15:Y44)+1,Y15:Y44),"""")")
End Sub

Thanks @footoo, is there a way to run this as a loop, instead of manually incrementing one at a time?

 

[footoo]

Having read your post #3, maybe this :

Sub v()
[Y15:Y44] = Evaluate("IF(D15:D44<K15:K44,Y15:K44+K15:K44-D15:D44,Y15:Y44)")
End Sub

 

[RPM7]

Having read your post #3, maybe this :

Sub v()
[Y15:Y44] = Evaluate("IF(D15:D44<K15:K44,Y15:K44+K15:K44-D15:D44,Y15:Y44)")
End Sub

Thanks footoo. Unfortunately, that version is changing the Y cells into multiple decimal places instead of just incrementing as an integer.
It also stopped prematurely on some of the rows where the condition wasn't met.

 

[footoo]

What are the formulas, results and formatting in D15 and K15?

 

[RPM7]

What are the formulas, results and formatting in D15 and K15?

It's a bit complicated unfortunately.

K15 is linked to a value in another worksheet, it's format is (Number).

D15 is calculated by a lot of stacked formulas on the current worksheet. All of these formulas are updated when Y15 is changed.
D15's format is (Number)

Y15 is a static number, but the cell's format is currently (General)

 

[footoo]

Try this (untested) :

Sub vv()
Dim cel As Range, x%
Do
    x = 0
    For Each cel In Range("Y15:Y44")
        If cel.Offset(0, -21).Value < cel.Offset(0, -14).Value Then
            cel = cel + 1
        Else: x = x + 1
        End If
    Next
Loop While x < 30
End Sub