Add a loop that takes user input, if user inputs 3 the loop should run through three times putting data on three separate lines

[Nlhicks]

This code works perfectly with only one input but if the user want to enter 3 different lines then I need it to capture all three lookups in different lines.

Sub DoMath()

Dim Ws As Worksheet
Dim i As Long

Set Ws = Sheets("Line Update")
For x = 1 To InputBox
For i = 0 To 1
If Ws.Cells(11, "C").Value <> Ws.Cells(11, "F").Value Then
Ws.Cells(13, "L").Value = Ws.Cells(11, "F") - Ws.Cells(11, "C")
End If

If Ws.Cells(13 + i, "C").Value <> Ws.Cells(13 + i, "F").Value Then
Ws.Cells(13, "M").Value = Ws.Cells(13, "F") - Ws.Cells(13, "C")
End If

If Ws.Cells(15 + i, "C").Value <> Ws.Cells(15 + i, "F").Value Then
Ws.Cells(13, "O").Value = Ws.Cells(15, "F") - Ws.Cells(15, "C")
End If

If Ws.Cells(17 + i, "C").Value <> Ws.Cells(17 + i, "F").Value Then
Ws.Cells(13, "P").Value = Ws.Cells(17, "F") - Ws.Cells(17, "C")
End If
Next i
Next x
End Sub

 

[Trebor76]

Hi Nlhicks,

Maybe this:

Option Explicit
Sub DoMath()

    Dim Ws As Worksheet
    Dim i As Long, j As Long
    Dim InputBox As Long
    
    Application.ScreenUpdating = False
    
    Set Ws = Sheets("Line Update")
    InputBox = 3
    
    For j = 0 To InputBox
        Ws.Cells(13, "L").Offset(0, j).Value = Ws.Cells(11 + (2 * j), "F") - Ws.Cells(11 + (2 * j), "C")
    Next j
    
    Application.ScreenUpdating = True
    
End Sub

Regards,

Robert