Need help to have macro populate a column with formula to end ofcolumn.

[S Himmelrich]

My formula that should populate column K is: =SUM(J1/MACRO!G11), which
takes the value in the same row (column J) and divides into a
refereced cell, which will stay the same always. The macro should
evaluate until the end of the column.

 

[Susan]

how does the program decide where the end of the column is?
susan

 

[GTVT06]

My formula that should populate column K is: =SUM(J1/MACRO!G11), which
takes the value in the same row (column J) and divides into a
refereced cell, which will stay the same always.  The macro should
evaluate until the end of the column.

Not sure I fully understood your message, but I think your looking for
a macro that will fill down the formula in Column K until it matches
the lenght of Column J? If so try this:

Sub filldown()
Dim rng As Range
' 'Fill Formula down formula in K until last J with data
Set rng = Range(Cells(1, "J"), Cells(Rows.Count, "J").End(xlUp))
rng.Offset(0, 1).Formula = "=SUM(J1/MACRO!$G$11)"
End Sub

 

[S Himmelrich]

Here is what I'm looking for, however I get an error on the row I've
designated as an error:

Dim last7 As Long
last7 = Worksheets("Working Sheet").Cells(Rows.Count,
"D").End(xlUp).Row
Range("K1").Formula = "=IF(RC[1]="","",SUM(RC[1]/MACRO!$G$11))"
Range("K1").AutoFill Destination:=Range("K1:K" & last7) <---ERROR
HERE

 

[GTVT06]

Here is what I'm looking for, however I get an error on the row I've
designated as an error:

    Dim last7 As Long
    last7 = Worksheets("Working Sheet").Cells(Rows.Count,
"D").End(xlUp).Row
    Range("K1").Formula = "=IF(RC[1]="","",SUM(RC[1]/MACRO!$G$11))"
    Range("K1").AutoFill Destination:=Range("K1:K" & last7)  <---ERROR
HERE

Try mine but Substitue J for D, try this:

Sub filldown()
Dim rng As Range
' 'Fill Formula in K dowun until last D with data
Set rng = Range(Cells(1, "D"), Cells(Rows.Count, "D").End(xlUp))
rng.Offset(0, 7).Formula = "=IF(J1="""","""",SUM(J1/MACRO!$G
$11))"
End Sub

 

[Dave Peterson]

Check your first thread.

My formula that should populate column K is: =SUM(J1/MACRO!G11), which
takes the value in the same row (column J) and divides into a
refereced cell, which will stay the same always. The macro should
evaluate until the end of the column.

 

[S Himmelrich]

Solution:

Dim rng As Range
Set rng = Range(Cells(1, "D"), Cells(Rows.Count, "D").End(xlUp))
rng.Offset(0, 7).Formula = "=IF(J1="""","""",SUM(J1/MACRO!$G$11))"

 

[Dave Peterson]

You have a response to this similar post at the original thread.