Total a Variable Based on Another Variable Please

[Paul Black]

Hi,

The Snippet of Code Below Works Great.
i is a Loop Counter that Produces the Numbers from 23 to 324 in a Column
"C".
The nType(i) Produces the Results Associated with the i Values in Column
"D".
Then at the Bottom the nTypeTotal Produces the Total Sum for the nType
Values.

nTypeTotal = ActiveCell.Row

For i = 23 To 324
ActiveCell.Offset(1, 0).Value = "Count for"
ActiveCell.Offset(1, 1).Value = i
ActiveCell.Offset(1, 2).Value = nType(i)
ActiveCell.Offset(1, 0).Select
Next i

Set rng = ActiveCell.Offset(1, 2)
rng.FormulaR1C1 = "=Sum(R" & nTypeTotal & "C:R[-1]C)"
rng.Formula = rng.Value

What I would like, is After the nTypeTotal ( Starting 2 Rows Down and
Continuing Down ), the Sum Total of the Following Please :-

If i >= 23 And If i <= 50 Then the nType Total Associated with i >= 23
And i <= 50.
If i >= 51 And If i <= 100 Then the nType Total Associated with i >= 51
And i <= 100.
If i >= 101 And If i <= 150 Then the nType Total Associated with i >=
101 And i <= 150.
If i >= 151 And If i <= 200 Then the nType Total Associated with i >=
151 And i <= 200.
If i >= 201 And If i <= 250 Then the nType Total Associated with i >=
201 And i <= 250.
If i >= 251 And If i <= 300 Then the nType Total Associated with i >=
251 And i <= 300.
If i >= 301 And If i <= 324 Then the nType Total Associated with i >=
301 And i <= 324.

Is this Possible Using Code like the nTypeTotal to Output the Values
Only, Instead of the Code Entering Formulas into the Worksheet Please.

Thanks in Advance.
All the Best.
Paul




*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!