do while not isempty(activeCell.offset(0,1))
if activecell.Value = "abc" then
activecell.offset(1,0)value = Worksheets("Data"). _
Range("B9").Value
end if
Activecell.offset(1,0).Select
Loop

--
Regards,
Tom Ogilvy

"yalex " wrote in message
...
I am currently in the process of trying to create a loop that includes
an IF statement. The result I am trying to achieve is to have the loop
run until the IF statement equals true. Once it is true, pull in a
certain piece of data from another sheet and then copy the code to the
next cell down and repeat the same process until there is no more data
in the column right next to it on the left side.

I would greatly appreciate it if someone can assist me in this task.
Let me know if more info. is needed.

Yalex


---
Message posted from http://www.ExcelForum.com/