Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
summing ranges
Hi newsgroup, I've got some problems with summing ranges, maybe someone could give me a tip? I have a range of 744 entries and I want to sum every 24 cells from the first cell of the range - this sum should be written in another range which also has 744 entries - so this second range should get the sum, then 23 empty cells and then the sum of the next 24 cells from the first range... Now I'm thinking about a solution with modulo but therefore I would need the cell index or something else... but maybe someone knows a better solution? Nevertheless, how can I relatively address a cell within a range? Thanks a lot in advance. Best regards! Markus .. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
summing ranges
Sub test()
Const cInterval = 24 Dim rngS As Range, rngD As Range, i As Long Set rngS = Range("A1") Set rngD = Range("C1") For i = 0 To 744 - 1 Step cInterval rngD.Offset(i).Value = WorksheetFunction.Sum(rngS.Offset(i).Resize(cInter val)) Next End Sub -- Rob van Gelder - http://www.vangelder.co.nz/excel "Markus Scheible" wrote in message ... Hi newsgroup, I've got some problems with summing ranges, maybe someone could give me a tip? I have a range of 744 entries and I want to sum every 24 cells from the first cell of the range - this sum should be written in another range which also has 744 entries - so this second range should get the sum, then 23 empty cells and then the sum of the next 24 cells from the first range... Now I'm thinking about a solution with modulo but therefore I would need the cell index or something else... but maybe someone knows a better solution? Nevertheless, how can I relatively address a cell within a range? Thanks a lot in advance. Best regards! Markus . |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
summing ranges
Hi Rob,
Sub test() Const cInterval = 24 Dim rngS As Range, rngD As Range, i As Long Set rngS = Range("A1") Set rngD = Range("C1") For i = 0 To 744 - 1 Step cInterval rngD.Offset(i).Value = WorksheetFunction.Sum(rngS.Offset(i).Resize(cInte rval)) Next End Sub pretty good :o) Thanks a lot and have a nice day! Markus |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
summing to defined ranges | Excel Worksheet Functions | |||
REF# error on summing ranges | Excel Worksheet Functions | |||
Summing ranges | Excel Discussion (Misc queries) | |||
summing non contiguous ranges | Excel Discussion (Misc queries) | |||
Summing ranges... | Excel Programming |