Run time error 1004 Unable to get Averageif property of Worksheet function class

[sangamk_81]

Dear All,

I am facing error - Run time error 1004 Unable to get Averageif property of Worksheet function class.

Sub CaptureSeasonality()

Dim wb As Workbook, ws As Worksheet, LastRow As Long

Set wb = ThisWorkbook

Set ws = wb.Sheets("Calculations")

Worksheets("Calculations").Activate

With Sheets2


LastRow = Cells.CurrentRegion.Rows.Rows.Count

Range("=Calculations!H2").Value = "Seasonality"


Dim rng1 As Range, rng2 As Range

Set rng1 = ws.Range(Cells(7, 3), Cells(17, 3))

Set rng2 = ws.Range(Cells(7, 7), Cells(17, 7))

Dim x As Long

For x = 1 To LastRow

Range("=Calculations!H" & x + 2).Value = Round(WorksheetFunction.AverageIf(rng1, (ws.Cells((x + 2), 3).Value), rng2), 3)


Next

End With

End Sub

 

[Peter_SSs]

Duplicate to: Excel Run TIme Error 1004 - Unable to get Averageif Property of Worksheetfunction class

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread. If you do not receive a response, you can "bump" it by replying to it yourself, though we advise you to wait 24 hours before doing so, and not to bump a thread more than once a day.