FillDown

[Mike Fogleman]

What is happening with this code to FillDown a formula in one column to a
point where another column ends?

Range("E1").Formula = MyFormula
Range("E1", Range("A1").End(xlDown)).Offset(0, 1).FillDown

Any data that may be in columns B are all changed to whatever is on row 1
of the column. Only column A will always be a complete list so that needs to
be criteria for filling down. The code works great if the FillDown column is
next to column A, but not if it points across other columns of data. How can
I do this without re-arranging my data columns?

 

[Tom Ogilvy]

Sub tester1()
myFormula = "=sum(A11)"
Range("E1").Formula = myFormula
Range("E1", Range("A1").End(xlDown).Offset(0, 4)).FillDown

End Sub

Will filldown column E.

 

[Mike Fogleman]

Duh! Change the Offset column number. Thanks, Tom, for the slap.