Looping through a Range in Excel

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

smartnhandsome - 11 Apr 2008 17:45 GMT

Can any one suggest a way to loop through an Excel worksheet rows till
i see a null in the contents of the cell Here is sort of pseudo code.

Start
Worksheet("sheet").cell(row,col) <> ""
Worksheet("sheet").range(namedrange).value=Worksheet("sheet").range(namedrange).value
& worksheet("sheet").cell(row,col).value
end the loop

Reply to this Message

Jason Lepack - 11 Apr 2008 17:54 GMT

public sub test()
dim r as range
set r = activeworksheet.range("A1")
do while not r =""
debug.print r.address
set r = r.offset(1,0)
loop
set r = nothing
end sub

Cheers,
Jason Lepack

> Can any one suggest a way to loop through an Excel worksheet rows till
> i see a null in the contents of the cell Here is sort of pseudo code.
[quoted text clipped - 4 lines]
> & worksheet("sheet").cell(row,col).value
> end the loop

Reply to this Message

smartnhandsome - 11 Apr 2008 22:14 GMT

thanks for your help Jason Lepack

Reply to this Message