Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sum Multiple Ranges
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sum Multiple Ranges
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Can I create Multiple passwords to edit multiple ranges? | Excel Discussion (Misc queries) | |||
How do i update multiple data ranges across multiple worksheets? | Excel Discussion (Misc queries) | |||
Crteating Multiple GIFS from Multiple Ranges -- need someone to test my code to see why it fails | Excel Programming | |||
Crteating Multiple GIFS from Multiple Ranges -- need someone to test my code to see why it fails | Excel Programming | |||
Printing Multiple Ranges from Multiple Worksheets | Excel Programming |