Looping thorugh formulae

[keeffe]

Hi all,

I currently have a piece of code as follows, which i want to adapt to loop through a list instead of just what i have defined in Range("C4") to say Range("C4:C35")... and then loop through what i have set y to be...

Should i use recordset or can i do this as i amusing an excel formula as y???



Sub getrequest()
Worksheets("Sheet2").Activate
Entrydate = Range("C2")
Enddate = Range("C3")
Request = Range("C4")
Worksheets("NI").Select
Worksheets("NI").Activate


'this retuns total amount of defined request in period
Set Rng1 = Worksheets("NI").Range("E:E")

y = Evaluate("=SUMPRODUCT(--(NI!E1:E1000=C4),--(NI!D1:D1000>C2),

--(NI!D1:D1000<C£))")< p> <C3))") '.....
<C3))")< p><C3)") p <>x = Application.WorksheetFunction.CountIf(Rng1, Request)

Thanks for any help/suggestions
<C3))")X p="Application.WorksheetFunction.CountIf(Rng1," Request)<>

 

[keeffe]

.