Copy Formula Macro
 

I have the following formulas:
cell h3: =H3+SUMIF(G$3:$H3,"<x",E$3:$F3)
cell i3: =H2-E3

Assume my current cursor position is cell i53. I would
like a macro that would copy the above formulas down
columns H and I to the row above the active cell (row 52).

Any Ideas? Thanks,

Matt

Copy Formula Macro
 

You do know you've got circular references, right?

This isn't very adaptable, but it will do what you specified:

Public Sub FillDownH3I3Macro()
With Range("H3:I3")
.AutoFill Destination:=.Resize(ActiveCell.Row - 3, 2)
End With
End Sub


In article ,
"ME Pike" wrote:

I have the following formulas:
cell h3: =H3+SUMIF(G$3:$H3,"<x",E$3:$F3)
cell i3: =H2-E3

Assume my current cursor position is cell i53. I would
like a macro that would copy the above formulas down
columns H and I to the row above the active cell (row 52).

Any Ideas? Thanks,

Matt

Copy Formula Macro
 

Thanks, it worked perfectly.
-----Original Message-----
You do know you've got circular references, right?

This isn't very adaptable, but it will do what you
specified:

Public Sub FillDownH3I3Macro()
With Range("H3:I3")
.AutoFill Destination:=.Resize
(ActiveCell.Row - 3, 2)
End With
End Sub


In article ,
"ME Pike" wrote:

I have the following formulas:
cell h3: =H3+SUMIF(G$3:$H3,"<x",E$3:$F3)
cell i3: =H2-E3

Assume my current cursor position is cell i53. I
would
like a macro that would copy the above formulas down
columns H and I to the row above the active cell (row
52).

Any Ideas? Thanks,

Matt
.