vba conditional loops

[Benoit]

This one should be easy for someone used to vba.
I've got three named ranges on the same sheet called "DataDownload"
(LSRatio, LongPrice, ShortPrice).
LSRatio is the range I want to populate
LongPrice and ShortPrice are price series going down different columns.
I want to do a loop in the LSRatio range that first checks that LongPrice
and ShortPrice are not empty, and if this is the case, calculate LSRatio as
LongPrice/ShortPrice until I reach the point where LongPrice and ShortPrice
end (ie cells become empty) at which point the procedure ends.
Any help would be greatly appricated

[Tom Ogilvy]

Assume Longprice and Shortprice will be the same size and populated to the
same extent

i = 0
for each cell in Rane("shortprice")
i = i + 1
if not isempty(cell) then
range("lsratio")(i).Value = Range("Longprice")(i).Value/cell.Value
else
exit for
end if
Next

--
Regards,
Tom Ogilvy


"Benoit" wrote:

> This one should be easy for someone used to vba.
> I've got three named ranges on the same sheet called "DataDownload"
> (LSRatio, LongPrice, ShortPrice).
> LSRatio is the range I want to populate
> LongPrice and ShortPrice are price series going down different columns.
> I want to do a loop in the LSRatio range that first checks that LongPrice
> and ShortPrice are not empty, and if this is the case, calculate LSRatio as
> LongPrice/ShortPrice until I reach the point where LongPrice and ShortPrice
> end (ie cells become empty) at which point the procedure ends.
> Any help would be greatly appricated