Edit a formula in multiple cells

[migueltr14]

Hi!,

I want to have a macro that would allow me to change the formula (A1-B1) to +if(abs(A1-B1)<0.000000001,0,A1-B1) to multiple cells in a range.

Thanks!

 

[FormR]

Hi, you could try this on a copy of your workbook.

Select the cells you want to change and run the macro.

Note: this will change every formula in the selected range.

Sub m()
Dim c As Range
For Each c In Selection
    If c.HasFormula Then c.Formula = "=IF(" & Mid(c.Formula, 2) & "<0.000000001,0," & Mid(c.Formula, 2) & ")"
Next c
End Sub

 

[migueltr14]

Thanks, FormR! it worked!, I just added the abs function and it's amazing. Thanks again!

Sub m()
Dim c As Range
For Each c In Selection
    If c.HasFormula Then c.Formula = "=IF(abs(" & Mid(c.Formula, 2) & ")<0.000000001,0," & Mid(c.Formula, 2) & ")"
Next c
End Sub