Sum a column
 

To sum all the numbers in column A...
=SUM(a1:a11)
To sum all the numbers in column B...
=SUM(b1:b11)

----- newbie04 wrote: -----

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.


---
Message posted from http://www.ExcelForum.com/

Sum a column
 

but how abt if my number is represent by an alphabet?

To sum all the numbers in column A...
=SUM(a1:a11)

To sum all the numbers in column B...
=SUM(b1:b11)

If my 1=i, 11=j,
then how do i do this?


---
Message posted from http://www.ExcelForum.com/

Sum a column
 

newbie04,
In code you need something like:
activecell.Formaula="=SUM(B" & i & ":B" & j & ")"

NickHK

"newbie04 " wrote in message
...
but how abt if my number is represent by an alphabet?

To sum all the numbers in column A...
=SUM(a1:a11)

To sum all the numbers in column B...
=SUM(b1:b11)

If my 1=i, 11=j,
then how do i do this?


---
Message posted from http://www.ExcelForum.com/

Sum a column
 

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

--
Message posted from http://www.ExcelForum.com

Sum a column
 

newbie04,
Comments in line.

Also, what errors are you getting ?

NickHK


"newbie04 " wrote in message
...
Sub testing()


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

'---- 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

'------ Not needed as you tested this above and must be true to reach
re --
If Worksheets(m).Cells(i, 15) < Worksheets(m).Cells(i + 1, 15) And
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 errors
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 to
be taken from the sheets.

So how i can solve this?

Thks.


---
Message posted from http://www.ExcelForum.com/