Sum Multiple Ranges

HI,

I have a 1 collumn which I have seperated in to ranges, of various lengths,
with 4 empty cells below each range I am trying to loop through and sum each
range on the 3rd cell below each range.

Thanks in Advance

Darren

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200603/1

Here's one way (you have to select the whole column, excluding any headings
and down to the third cell below the final number group):

Sub mySum()
Dim myCounter As Long
Dim myTotal As Double
myTotal = 0
myCounter = 0
Do While myCounter <= Selection.Rows.Count
If ActiveCell.Offset(myCounter, 0).Value <> "" Then
myTotal = myTotal + ActiveCell.Offset(myCounter, 0).Value
Else
ActiveCell.Offset(myCounter + 2, 0).Value = myTotal
myTotal = 0
myCounter = myCounter + 3
End If
myCounter = myCounter + 1
Loop
End Sub


"FIRSTROUNDKO via OfficeKB.com" wrote:

> HI,
>
> I have a 1 collumn which I have seperated in to ranges, of various lengths,
> with 4 empty cells below each range I am trying to loop through and sum each
> range on the 3rd cell below each range.
>
> Thanks in Advance
>
> Darren
>
> --
> Message posted via OfficeKB.com
> http://www.officekb.com/Uwe/Forums.a...mming/200603/1
>

Name your ranges rng1, rng 2 rng3, etc then use the following code:

Sub SumRngs()
Dim RngRows As Long
Dim c As String
Dim rngsum As Range
Dim cntr As Long

For cntr = 1 To 3
RngRows = Range("rng" & cntr).Rows.Count
c = Range("rng" & cntr).Address
Range(c).Range("A1").Offset(RngRows + 2, 0).Value =
WorksheetFunction.Sum(Range("rng" & cntr))
Next cntr
End Sub

MIke F

"FIRSTROUNDKO via OfficeKB.com" <u15639@uwe> wrote in message
news:5d94e5ae8093b@uwe...
> HI,
>
> I have a 1 collumn which I have seperated in to ranges, of various
> lengths,
> with 4 empty cells below each range I am trying to loop through and sum
> each
> range on the 3rd cell below each range.
>
> Thanks in Advance
>
> Darren
>
> --
> Message posted via OfficeKB.com
> http://www.officekb.com/Uwe/Forums.a...mming/200603/1