Object Defined Error

[tourless]

Hi Folks,

I'm not sure why the following line of code fails...

wsCustomerReportCard.Cells(10, LastRow(wsCustomerReportCard)).FormulaR1C1 = "=(8, LastRow(wsCustomerReportCard))-(9, LastRow(wsCustomerReportCard)"

I'm simply trying to subtract with a last row reference as this included in a loop.

 

[Joe4]

What is "LastRow"?
Is it a User Defined Function you have created?
If so, what does that code look like?

Also, this does not look to be a valid formula:

[COLOR=#333333]=(8, LastRow(wsCustomerReportCard))-(9, LastRow(wsCustomerReportCard)[/COLOR]

 

[tourless]

What is "LastRow"?
Is it a User Defined Function you have created?
If so, what does that code look like?

Yes, it's a function...

Function LastRow(targetSheet As Worksheet, Optional targetCol As String = "A")

    With targetSheet
        LastRow = .Cells(.Rows.Count, targetCol).End(xlUp).row
    End With

End Function

While I've been waiting I've also tried making a local lRow as long and loading it's value from LastRow...

lRow = LastRow(wsCustomerReportCard)

then tried..

wsCustomerReportCard.Range("H" & lRow).Formula = "=F & lRow &- & G & lRow"

still no dice, same error. pretty sure it's a syntax error.

 

[Norie]

What are 8 and 9 in the formula meant to be?

Does this work?

wsCustomerReportCard.Cells(10, LastRow(wsCustomerReportCard)).FormulaR1C1 = "=RC8-RC9"

 

[tourless]

8 and 9 were meant to be column references and yes that worked perfectly. Thanks!