Don't forget the macro recorder to get the information you need.
Sub Totals()
Dim eRow As Long
Dim fRow As Long
Dim lRow As Long
eRow = Cells(Rows.Count, 1).End(xlUp).Row
fRow = 4
Do Until lRow = eRow + 1
lRow = Cells(fRow, 10).End(xlDown).Row + 1
With Cells(lRow, 10)
.Font.Bold = True
.FormulaR1C1 = _
"=SUM(R[-" & lRow - fRow & "]C:R[-1]C)"
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlDouble
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With
fRow = lRow + 2
Loop
End Sub
--
Regards,
Tom Ogilvy
"Tempy" wrote in message
...
Good day all, i need some help modifing some code that i got of this
site to insert the total at the bottom of a column.
The code works great, i just need to format the cell with the total in
with code, making it bold and putting a single line on top and a double
line underneath and i do not know how to do it.
Sub Totals()
Dim eRow As Long
Dim fRow As Long
Dim lRow As Long
eRow = Cells(Rows.Count, 1).End(xlUp).Row
fRow = 4
Do Until lRow = eRow + 1
lRow = Cells(fRow, 10).End(xlDown).Row + 1
Cells(lRow, 10).FormulaR1C1 = _
"=SUM(R[-" & lRow - fRow & "]C:R[-1]C)"
fRow = lRow + 2
Loop
End Sub
Tempy
*** Sent via Developersdex http://www.developersdex.com ***