Summing specified intervals

[pssureshbabu]

Auswertung_2_test.xls
	M	N	O	P	Q	R
25	25		DeltaEpsilon
26	10	0	0		0	0
27	0-10%	1	0.1		0	0.1
28	10-20%	2	0.2		0.1	0.2
29	20-50%	5	0.6		0.2	0.3
30	50-100%	10	1		0.3	0.4
31					0.4	0.5
32					0.5	0.6
33					0.6	0.7
34					0.7	0.8
35					0.8	0.9
36					0.9	1
37					1	1.2
38					1.2	1.4
39					1.4	1.6
40					1.6	1.8
41					1.8	2
42					2	2.6
43					2.6	3.2
44					3.2	3.8
45					3.8	4.4
46					4.4	5
47					5	6
48					6	7
49					7	8
50					8	9
51					9	10
Daten

I have around 5000 values ranging from 0 to 10 in ascending order as given in cell M26. Sub task is to reduce the 5000 values down to user defined number of values in this case user input is 25 as in cell M25. After calculating the difference for each % intervals as in column O, how do I write formula to fill automatically my Column R? Here I did it manually by comparing the column N and O.

Thanks for your help!

Babu

 

[pssureshbabu]

Guys, I need a macro to do the following for the above mentioned problem.

Start a cell with value = "O27"
And then go to next cell in the column which = O27+R27
Do this until the cell value = N27
Then go down the next cell which = O28 + R36
Do this until the cell value = N28
Then go down the next cell which = O29 + R41
Do this until the cell value = N29
....
....
...

I hope this time I made my question bit clearer. Please help with VBA macro loop!!!!!!!

Thanks

 

[pssureshbabu]

Can anybody help me with that macro? Pleaseeeeeeeeeeee

Thanks

 

[SydneyGeek]

Put this formula in R28 and fill down:

=R27+IF(COUNTIF($N$26:$N$30,R27)>0,INDEX($O$26:$O$30,MATCH(R27,$N$26:$N$30,1)+2,1),INDEX($O$26:$O$30,MATCH(R27,$N$26:$N$30,2)+1,1))

Denis

 

[pssureshbabu]

Sub test()
Dim EndRow As Integer
Dim StartRow As Integer
Dim i As Integer

StartRow = 4
EndRow = StartRow + [a2].Value - 1
j = 4
For i = StartRow To EndRow
If Cells(i - 1, "F") < Cells(j, "B").Value Then
Cells(i, "F") = Cells(i - 1, "F") + Cells(j, "C").Value
Else
j = j + 1
Cells(i, "F") = Cells(i - 1, "F") + Cells(j, "C").Value
End If
Next i
End Sub

This is the thing I needed. Anyhow thanks for everybody who looked into this problem.