Restore Formula VBA

[jonathann3891]

I'm trying to write a simple macro that will restore my formulas in a certain column.

The formula is: =IF(ISNUMBER(E3),PML!S10,"")

I can not get it to work with the equal symbol in the formula. Is there a simplier way to accomplish this?

Also every cell in the column has to have the representing number in place of E3.

 

[Asala42]

I'd probably use:

Range("E3").Formula = "=IF(ISNUMBER(E3),PML!S10,"""")"

 

[jonathann3891]

Is there a faster solution than this?

Sheets("Sheet 1").Activate
Range("G3").Formula = "=IF(ISNUMBER(E3),PML!S10,"""")"
Range("G4").Formula = "=IF(ISNUMBER(E4),PML!S10,"""")"
Range("G5").Formula = "=IF(ISNUMBER(E5),PML!S10,"""")"
Range("G6").Formula = "=IF(ISNUMBER(E6),PML!S10,"""")"
Range("G7").Formula = "=IF(ISNUMBER(E7),PML!S10,"""")"

The range is going all the way to G67 on 25 Sheets

 

[Asala42]

Sure. For example:

Sheets("Sheet 1").Activate
Range("G3").Formula = "=IF(ISNUMBER(E3),PML!S10,"""")"

Range("G3").Copy
Range("G4:G67").Paste

 

[jonathann3891]

Did you notices that the cells are in numerical order as they go down?

 

[Asala42]

That's still fine. E3 in your formula is a relative reference, so the next row would reference E4, then E5 etc as you go down.

It would be a problem if we locked the reference. Such as "=IF(ISNUMBER($E$3),PML!S10,"""")"