Macro to quickly add if statement to already filled cells

[d2theustin]

Hello there,

I have a spreadsheet with already filled data/formulas. I want to add an if statement to ensure if the reference cell is blank it shows the cell blank until a value is filled.. like: =IF(ISBLANK(E24),"",F24/G24).. I know how to do that.

However, I don't want to go through every single cell and do this as there are a lot of data points/calculations. so is there a way to create a macro to do this for me.. Here's my sheet:
https://drive.google.com/open?id=1wdg-gLFHuO54uA3DklhSoRrYSSkTWlRE

So basically, I want to add =IF(ISBLANK(E4),"",ALREADY ENTERED FORMULA) to all the cells in Cols I-N. and have the macro understand to change E4 to E5 and so on as it goes down the sheet.

Just trying to save some time to not go through and re-type all the formulas.

Hope this makes sense..

D

 

[Rick Rothstein]

Give this macro a try...

[table="width: 500"]
[tr]
	[td]Sub AddTestForBlanksToFormulas()
  Dim LastRow As Long, Cell As Range
  LastRow = Columns("I:N").Find("*", , xlFormulas, , xlRows, xlPrevious, , , False).Row
  For Each Cell In Range("I2:N" & LastRow)
    If Cell.HasFormula Then Cell.Formula = "=IF(ISBLANK(E" & Cell.Row & "),""""," & Mid(Cell.Formula, 2) & ")"
  Next
End Sub[/td]
[/tr]
[/table]