Quote:
Originally Posted by Purfleet
Run it and you will see that in a15 to j15 each column is now a sum of 1:14 as we have not put the $ the ranges are not locked so the columns are relative
The same for the rows
if you want to sum the corner you can just do range(k15) = Sum(a1:j14)
|
Sub sumthe()
Columns("k:k").ClearContents
Rows("15:15").ClearContents
Range("a15:j15") = "=sum(a1:a14)"
Range("k1:k14") = "=Sum(a1:j1)"
Range("k15") = "=Sum(a1:j14)"
End Sub
thx