Dim iLastRow As Long
iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("E12").Resize(iLastRow - 11).Formula = _
"=IF(AND(B12="""",C12="""",D12<>""""),D12,"""")"



--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"herve" <herve.28rlpm_1149234902.4708@excelforum-nospam.com> wrote in
message news:herve.28rlpm_1149234902.4708@excelforum-nospam.com...
>
> Hi All,
> anyone could help me to write a Macro for:
>
> In Colomn A, From A12 to A?? I have Text.
> The last Cell in Colomn A is variable, (is A50 now but tom, can be
> A500)
>
> I want a Macro that does:
> In Cell E12, the Formula :
> E12 = If(And(B12="",C12="",D12<>""),D12)
> and copy the formula to Cell E...(last Value in Colomn A).
> E13 = if(and(B13="",C13="",D13<>""),D13)
> ...
> ...
> Exx = if(and(Bxx="",Cxx="",Dxx<>""),Dxx)
>
> Regards
> Herve
>
>
> --
> herve
> ------------------------------------------------------------------------
> herve's Profile:
http://www.excelforum.com/member.php...o&userid=27314
> View this thread: http://www.excelforum.com/showthread...hreadid=547758
>