How about a better way to write this

[Nlhicks]

(What makes this more difficult is that we are only interested in every other row in the main range). Would it be:

For i= 11 to 18
If .Range("B" & i)<>.Range("E" & i) Then
.Range("L11" & i).Value = .Range("E" & i)-.Range("B" & i)
End If
Next i




If Worksheets("Line Update").Range("B11") <> Worksheets("Line Update").Range("E11") Then

Worksheets("Line Update").Range("L11").Value = Worksheets("Line Update").Range("E11") - Worksheets("Line Update").Range("B11")

End If

If Worksheets("Line Update").Range("B13") <> Worksheets("Line Update").Range("E13") Then

Worksheets("Line Update").Range("L12").Value = Worksheets("Line Update").Range("E11") - Worksheets("Line Update").Range("B13")

End If

If Worksheets("Line Update").Range("B15") <> Worksheets("Line Update").Range("E15") Then

Worksheets("Line Update").Range("L13").Value = Worksheets("Line Update").Range("E15") - Worksheets("Line Update").Range("B15")

End If
If Worksheets("Line Update").Range("B17") <> Worksheets("Line Update").Range("E17") Then

Worksheets("Line Update").Range("L14").Value = Worksheets("Line Update").Range("E17") - Worksheets("Line Update").Range("B17")

End If

 

[RoryA]

If you only want every other row, you can add a Step clause:

For i= 11 to 18 Step 2

 

[Nlhicks]

Awesome thanks

 

[Nlhicks]

Rory, I rewrote this like this and it is only giving me one calculation which by the way is incorrect. It should be 14 in the top box but it is 10.

Sub DoMath()

Dim WS As Worksheet
Dim i As Long, j As Long


Set WS = Sheets("Line Update")

For i = 11 To 18 Step 2
For j = 11 To 14
If Range("B" & i) <> Range("E" & i) Then
Range("L" & j).Value = Range("E" & i) - Range("B" & i)

End If

Next j

Next i

 

[RoryA]

It's 10 because you loop the same rows for j for every iteration of i. That means that the same final calculation (169-159) is put into L11:L14, overwriting all the previous calculations.

I suspect you only wanted one loop, like this:

For i = 0 to 3
If ws.cells(11+ (i * 2), "B").value <> ws.cells(11+ (i * 2), "E").Value then
ws.cells(11 + i, "L").Value = ws.cells(11+ (i * 2), "E").Value - ws.cells(11+ (i * 2), "B").Value
End If
next i

 

[Nlhicks]

Perfect, I have to remove the .Value in the second row of code and then it works perfectly Thank you