C
colwyn
I have the following code which sums column O until a blank cell is
found. It puts the sum in the blank cell then continues down the
column doing same. I want to have the total go into another column and
row. Can anyone help by tweaking the code so I can achieve this
end ???
Sub sum()
EndRow = Cells(Rows.Count, "O").End(xlUp).Row
firstRow = 2
RowCount = 2
Do While RowCount <= EndRow + 1
If IsEmpty(Cells(RowCount, "O")) Then
lastRow = RowCount - 1
Cells(RowCount, "O").FormulaR1C1 = _
"=SUM(R" & CStr(firstRow) & "C15:R" & _
CStr(lastRow) & "C15)"
firstRow = RowCount + 1
RowCount = RowCount + 1
End If
RowCount = RowCount + 1
Loop
End Sub
Big thanks.
Colwyn.
found. It puts the sum in the blank cell then continues down the
column doing same. I want to have the total go into another column and
row. Can anyone help by tweaking the code so I can achieve this
end ???
Sub sum()
EndRow = Cells(Rows.Count, "O").End(xlUp).Row
firstRow = 2
RowCount = 2
Do While RowCount <= EndRow + 1
If IsEmpty(Cells(RowCount, "O")) Then
lastRow = RowCount - 1
Cells(RowCount, "O").FormulaR1C1 = _
"=SUM(R" & CStr(firstRow) & "C15:R" & _
CStr(lastRow) & "C15)"
firstRow = RowCount + 1
RowCount = RowCount + 1
End If
RowCount = RowCount + 1
Loop
End Sub
Big thanks.
Colwyn.