Sum a column

N

newbie04

i have a series of data :

2 2
5 5
7
1 1
0 0
3 3
6 6
10
2 2
9 9
11

The LHS is the original data while the RHS is the data i wanna obtain
My doubts is that what is the code for summing?

Thank you
 
N

newbie04

Sub testing()


z = 0
For m = 3 To Sheets.Count
For i = 6 To 200
If Worksheets(m).Cells(i, 15) = Worksheets(m).Cells(i + 1, 15) Then
z = z + 1
Else
If Worksheets(m).Cells(i, 15) <> Worksheets(m).Cells(i + 1, 15) An
Worksheets(m).Cells(i, 1) <> "" Then
Worksheets(m).Rows(i + 1).Font.Bold = True
Worksheets(m).Cells(i + 1, 9) = "=SUM(I" & (i - z) & ":I" & i
")"
Worksheets(m).Cells(i + 1, 10) = "=SUM(J" & (i - z) & ":J" & i
")"
Worksheets(m).Cells(i + 1, 11) = "=SUM(K" & (i - z) & ":K" & i
")"
Worksheets(m).Cells(i + 1, 13) = "=SUM(M" & (i - z) & ":M" & i
")"
z = 0
End If
End If
Next i
Next m

End Sub


Here's the code. i seem alrite to run in single sheet, but error
happen when it has to do the task over several sheets.
I guess the error are the SUM.... as it is not defined which column t
be taken from the sheets.

So how i can solve this?

Thks
 
N

Nick Cranham

newbie04,
Comments in line.

Also, what errors are you getting ?

NickHK


newbie04 > said:
Sub testing()


z = 0
For m = 3 To Sheets.Count
For i = 6 To 200
Click to expand...

'---- Use With Worksheets(m) to tidy the code --------
If Worksheets(m).Cells(i, 15) = Worksheets(m).Cells(i + 1, 15) Then
z = z + 1
Else
Click to expand...

'------ Not needed as you tested this above and must be true to reach
re --
 
Top