Macro: If(And(...

[herve]

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

 

[paul.robinson]

Hi
No need for a macro. Simply highlight the column of cells in column E
you want to apply the formula too (with the first cell in the column
containing your formula) and do Edit, Fill Down.

regards
Paul

 

[herve]

Thanks Paul,
but i would like to run this in a macro in order to avoid this kind o
action (copy paste)

Thank

 

[Bob Phillips]

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]

Many Thanks Bob