On 5/20/2016 1:12 AM, Peter T wrote:
"Mike S" wrote in message

For n = 34 To 81
Cells(n, 4).Formula = "=IF(D31," & Cells(n, 2).Address & " /" &
Cells(31, 4).Address & ", 0)"
Next

FWIW this would do the same

Cells(34, 4).Resize(81 - 34 + 1).Formula = "=IF($D$31," & Cells(34,
2).Address(0, 0) & "/ $D$31, 0)"

or this

addr0 = Cells(34, 4).Resize(81 - 34 + 1).Address ' could be absolute or
relative
addr1 = Cells(31, 4).Address ' absolute
addr2 = Cells(34, 2).Address(False, False) ' R & C both relative
Range(addr0).Formula = "=IF(" & addr1 & "," & addr2 & "/" & addr1 & ",0)"

or
Range(Cells(34, 4), Cells(81, 4)).Formula = etc

IOW, if a formula can be "filled" it can be written in one go with the
formula of the first cell

Peter T

Is this the same as copying and pasting the formula? If so I tried that
and maybe I did it incorrectly but it didn't work. I have a single cell
I divide the whole column of numbers by and the reference to that cell
got incremented every time I pasted the formula to a new row. Maybe
there's a different method of pasting that I'm not aware of. I'll read
up on the "resize" command to see what you're doing. I never used or
heard of ".address" before now either, so thank you adn isabelle, I
appreciate the tutoring.