Hi all,
I have 3 columns with the following values:
71642 19174 18888
71642 20974 18888
What I would like to do is create a loop that looks at the cells under these values, and if the values have increased by 1800, add another 1800, and if the cell values haven't increased, copy the number from above, such that I end up with:
71642 19174 18888
71642 20974 18888
71642 22774 18888
71642 24574 18888
71642 26374 18888
71642 28174 18888
71642 29974 18888
71642 31774 18888
71642 33574 18888
71642 35374 18888
71642 37174 18888
I have tried something simple for an individual column:
Sub Macro9()
Dim iRow As Integer
For iRow = 16 To 50
If Cells(7, iRow) <> "" Then
Cells(7, iRow).Value = "hello"
Next iRow
End Sub
But I can't get this to work let alone add the value from above.
Can anyone point me in the right direction?
Cheers
John
I have 3 columns with the following values:
71642 19174 18888
71642 20974 18888
What I would like to do is create a loop that looks at the cells under these values, and if the values have increased by 1800, add another 1800, and if the cell values haven't increased, copy the number from above, such that I end up with:
71642 19174 18888
71642 20974 18888
71642 22774 18888
71642 24574 18888
71642 26374 18888
71642 28174 18888
71642 29974 18888
71642 31774 18888
71642 33574 18888
71642 35374 18888
71642 37174 18888
I have tried something simple for an individual column:
Sub Macro9()
Dim iRow As Integer
For iRow = 16 To 50
If Cells(7, iRow) <> "" Then
Cells(7, iRow).Value = "hello"
Next iRow
End Sub
But I can't get this to work let alone add the value from above.
Can anyone point me in the right direction?
Cheers
John