Macro to add a formula in a cell

[zoog25]

Hello All,

Here is my situation, I have a macro that when a certain item is column "D". It formats several other columns in the same row that the information is being added. My situation is that part of the formatting is erasing information. The problem is that in column "AE" there is a specific formula. The following formula is added to the cell

=IF(AD3="N/A",EDATE(AC3,12),EDATE(AD3,12))

So my questions is how do i code so the above formula is inputed in column AE. Note that "AD3" is just where i copied the formula from. The number of the row is currently stored in Target.Row so it changes based on which row the formula is inputted.

Thanks for any help.

 

[Logit]

.
Sheets("Sheet1").Range("F4").Value = "=IF(AD3=""N/A"",EDATE(AC3,12),EDATE(AD3,12))"

Edit the sheet name and the cell value as needed.

Note in the formula ... where there originally was one quotation mark .. there are now two.

 

[Peter_SSs]

.. how do i code so the above formula is inputed in column AE. Note that "AD3" is just where i copied the formula from. The number of the row is currently stored in Target.Row so it changes based on which row the formula is inputted.

Try

Range("AE" & Target.Row).Formula = Replace("=IF(AD#=""N/A"",EDATE(AC#,12),EDATE(AD#,12))", "#", Target.Row)

 

[zoog25]

Thank you Logit and Peter for the help. I believe the Peter's replace method is what i was looking for so thank you.

 

[Logit]

Glad to help.

 

[Peter_SSs]

Thank you Logit and Peter for the help. I believe the Peter's replace method is what i was looking for so thank you.

You're welcome. Thanks for the follow-up.