I'm getting an "Application-defined or object-defined error" on the
line below that I've identified...can anyone help me out on this?


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

The $ signs are on the wrong side....

Range("K1").Formula = "=IF(SUM('Working
Sheet'!RC[1]/MACRO!$G$11)),"",SUM('Working Sheet'!RC[1]/MACRO!$G$11)"

Rick


"S Himmelrich" <(E-Mail Removed)> wrote in message
news:24ccf015-f0cd-4db9-abac-(E-Mail Removed)...
> I'm getting an "Application-defined or object-defined error" on the
> line below that I've identified...can anyone help me out on this?
>
>
> Dim last7 As Long
> last7 = Worksheets("Working Sheet").Cells(Rows.Count,
> "J").End(xlUp).Row
> Range("K1").Formula = "=IF(SUM('Working Sheet'!RC[1]/MACRO!G
> $11$)),"",SUM('Working Sheet'!RC[1]/MACRO!G$11$)" <---LINE WITH ERROR
> Range("K1").AutoFill Destination:=Range("K1:K" & last7)

You're mixing R1C1 reference style with A1 reference style.

If you decide to use all R1C1 reference style, then use .formulaR1C1 =

(and just a little help: $g$11 is r11c7)


S Himmelrich wrote:
>
> I'm getting an "Application-defined or object-defined error" on the
> line below that I've identified...can anyone help me out on this?
>
> Dim last7 As Long
> last7 = Worksheets("Working Sheet").Cells(Rows.Count,
> "J").End(xlUp).Row
> Range("K1").Formula = "=IF(SUM('Working Sheet'!RC[1]/MACRO!G
> $11$)),"",SUM('Working Sheet'!RC[1]/MACRO!G$11$)" <---LINE WITH ERROR
> Range("K1").AutoFill Destination:=Range("K1:K" & last7)

--

Dave Peterson

Ps. You have a couple of other things wrong with your formula.

If you need to have double quotes show up in your formula, then you'll need to
double them in your code.

And you don't need =sum(). You're just dividing one number by another.

And it looks like you're putting this all on Working Sheet, if that's true, then
you could try this:

Dim last7 As Long
With Worksheets("working sheet")
last7 = .Cells(.Rows.Count, "J").End(xlUp).Row
.Range("K1:K" & last7).FormulaR1C1 _
= "=IF(RC[1]/MACRO!r11c7,"""",RC[1]/MACRO!r11c7)"
End With

I'm not sure what you're doing with that formula, but maybe you were checking
for errors???

= "=IF(iserror(RC[1]/MACRO!r11c7),"""",RC[1]/MACRO!r11c7)"

is how I'd check.

S Himmelrich wrote:
>
> I'm getting an "Application-defined or object-defined error" on the
> line below that I've identified...can anyone help me out on this?
>
> Dim last7 As Long
> last7 = Worksheets("Working Sheet").Cells(Rows.Count,
> "J").End(xlUp).Row
> Range("K1").Formula = "=IF(SUM('Working Sheet'!RC[1]/MACRO!G
> $11$)),"",SUM('Working Sheet'!RC[1]/MACRO!G$11$)" <---LINE WITH ERROR
> Range("K1").AutoFill Destination:=Range("K1:K" & last7)

--

Dave Peterson

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))"

What happens if Macro!G11 is empty or is equal to 0?
Why use the =sum() function.
Why did the column change from J to D?



S Himmelrich wrote:
>
> 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