Sub ABCD()
Dim i as Long, lastrow as Long
lastrow = cells(rows.count,1).End(xlup).row
for i = 5 to Lastrow
if cells(i,1).Value < "" and cells(i,"K").Value = "" then
cells(i,"K").value = cells(4,"K").value
end if
Next i
End sub

--
Regards,
Tom Ogilvy
"mthomas" wrote in
message ...

I am building a utility that will allow the user to iterate down an
undermined amount of rows. The script needs to evaluate the following
on the active row: If the active cell in column a < "" and the active
cell in column k = "" then the active cell in column k = k4.value.

Thanks in advance for your assistance!


--
mthomas
------------------------------------------------------------------------
mthomas's Profile:
http://www.excelforum.com/member.php...o&userid=25649
View this thread: http://www.excelforum.com/showthread...hreadid=390580