sum up range
 

i want to sum up certain range but i dont get the range as it is
different in every time when running program.how do i write a macro to
sum up range. i have already used "alt+=", but it cant satisify because
it return the designated range.



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/

sum up range
 

if the ActiveCell is at the top of the range
Set rng = Range(ActiveCell, ActiveCell.End(xldown))
tot = Application.Sum(rng)

if the activeCell is at the bottom of the range (next blank cell

set rng = Range(ActiveCell.Offset(-1,0),ActiveCell(-1,0).End(xlup))
tot = Application.Sum(rng)

or
ActiveCell.Formula = "=Sum(" & rng.Address & ")"

--
Regards,
Tom Ogilvy



"raymondsum" wrote in message
...
i want to sum up certain range but i dont get the range as it is
different in every time when running program.how do i write a macro to
sum up range. i have already used "alt+=", but it cant satisify because
it return the designated range.



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/

sum up range
 

Dear Tom,

I wrote the following but there was no respone.

Dim rng As Range
Dim tot As Long
Set rng = Range(ActiveCell.Offset(-1, 0), ActiveCell(-1, 0).End(xlUp))
tot = Application.Sum(rng)

Regards

Raymond



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/

sum up range
 

Well, I don't know what you want to do with the sum - if you want a
response, add this

Dim rng As Range
Dim tot As Double
Set rng = Range(ActiveCell.Offset(-1, 0), ActiveCell(-1, 0).End(xlUp))
tot = Application.Sum(rng)
msgbox tot

--
Regards,
Tom Ogilvy


"raymondsum" wrote in message
...
Dear Tom,

I wrote the following but there was no respone.

Dim rng As Range
Dim tot As Long
Set rng = Range(ActiveCell.Offset(-1, 0), ActiveCell(-1, 0).End(xlUp))
tot = Application.Sum(rng)

Regards

Raymond



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/

sum up range
 

Dear Tom,

I actually want to sum up certain range but I don't know how many rows
to sum up.

The macro was suggested by you to me, but it was no respone. Therefore,
I hope you can explain to me more details or suggest me to add more
lines in the programming to let it work.

Regards

Raymond



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/

sum up range
 

I already answered you.

--
Regards,
Tom Ogilvy

"raymondsum" wrote in message
...
Dear Tom,

I actually want to sum up certain range but I don't know how many rows
to sum up.

The macro was suggested by you to me, but it was no respone. Therefore,
I hope you can explain to me more details or suggest me to add more
lines in the programming to let it work.

Regards

Raymond



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/

sum up range
 

Dear Tom,

Thanks

Regards

Raymond



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/