Gtrain
04-09-2008, 12:03 AM
ok team awesome,
looks like i new some assistance again
i am trying to dynamically update a formula based on the last row returned from an sql query, but i keep getting run time error 438
object doesn't suppot this property or method.
Any thoughts
Sub brform()
Dim wkrs As Worksheet
Dim Lastrn
Dim LastRowNumber As String
Set wkrs = ActiveWorkbook.Worksheets("BR KPI Report")
Set Lastrn = wkrs.Range("a65536").End(xlUp)
LastRowNumber = Lastrn.Row + 1
wkrs.Range("j3").Forumla = "=SUMIF(H2:H" & LastRowNumber & ","">0"")/COUNTIF(H2:H" & LastRowNumber & ", "">0"")"
End Sub
looks like i new some assistance again
i am trying to dynamically update a formula based on the last row returned from an sql query, but i keep getting run time error 438
object doesn't suppot this property or method.
Any thoughts
Sub brform()
Dim wkrs As Worksheet
Dim Lastrn
Dim LastRowNumber As String
Set wkrs = ActiveWorkbook.Worksheets("BR KPI Report")
Set Lastrn = wkrs.Range("a65536").End(xlUp)
LastRowNumber = Lastrn.Row + 1
wkrs.Range("j3").Forumla = "=SUMIF(H2:H" & LastRowNumber & ","">0"")/COUNTIF(H2:H" & LastRowNumber & ", "">0"")"
End Sub