This seems too simplistic, but do you mean
IF Not isempty(cells(r,14))
Cells(r, 15) = Application.VLookup(Cells(r, 4), AccChart2, 2, False)
End If
--
HTH
Bob Phillips
"helmekki" wrote in
message ...
Hi there
Code:
--------------------
'IF isempty(cells(r,14)) then leave Cells(r, 15) empty.
Cells(r, 15) = Application.VLookup(Cells(r, 4), AccChart2, 2, False)
--------------------
how to combine these tow line to be written in one VBA line?
--
helmekki
------------------------------------------------------------------------
helmekki's Profile:
http://www.excelforum.com/member.php...fo&userid=6939
View this thread: http://www.excelforum.com/showthread...hreadid=392467