T
teresa
Hi, would like to do the following operation with columns C:H
and then columns K:M,
Im missing a couple of lines in my code below which will loop through
necessary cols, any help is much appreciated
sub()
Dim intNumRows As Integer, c As Variant, lngCellTotal As Long
Dim x As Integer
intNumRows = Cells(50, "c").End(xlUp).Row
With Range("c" & intNumRows + 1)
.Borders(xlEdgeTop).Weight = xlMedium
End With
For Each c In Range("c1", "c" & intNumRows)
lngCellTotal = lngCellTotal + c.Value
Next
Range("c" & intNumRows + 1) = lngCellTotal
end sub
and then columns K:M,
Im missing a couple of lines in my code below which will loop through
necessary cols, any help is much appreciated
sub()
Dim intNumRows As Integer, c As Variant, lngCellTotal As Long
Dim x As Integer
intNumRows = Cells(50, "c").End(xlUp).Row
With Range("c" & intNumRows + 1)
.Borders(xlEdgeTop).Weight = xlMedium
End With
For Each c In Range("c1", "c" & intNumRows)
lngCellTotal = lngCellTotal + c.Value
Next
Range("c" & intNumRows + 1) = lngCellTotal
end sub