Combine Two vba Lines(If Condition + Vlookup)

[helmekki]

Hi there

Please Login or Register  to view this content.

how to combine these tow line to be written in one VBA line?

[tony h]

If IsEmpty(Cells(r, 14)) Then
Cells(r, 15) = Null
Else
Cells(r, 15) = Application.VLookup(Cells(r, 4), AccChart2, 2, False)
End If


I think this is what you are trying to do

[Bob Phillips]

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" <helmekki.1t6tar_1123070736.8817@excelforum-nospam.com> wrote in
message news:helmekki.1t6tar_1123070736.8817@excelforum-nospam.com...
>
> 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
>

[helmekki]

Thank u very much