hi,

try replacing:

Set Arng = Sheet2.Range("D2:D" & Range("AJ" & Rows.Count).End(xlUp).Row)

by

Set Arng = Sheet2.Range("D2:D" & Sheet2.Range("AJ" & Rows.Count).End(xlUp).Row)


--
isabelle


Le 2012-10-26 18:32, Hans Hamm a écrit :
On Friday, October 26, 2012 5:55:16 PM UTC-4, joeu2004 wrote:
Errata (typos).... I wrote:

"wrote:
Set Srng = Sheet1.Range("C1")
Set Erng = Sheet1.Range("E1")
Set Arng = Sheet2.Range("D2:D" & Range("AJ" & Rows.Count).End(xlUp).Row)
[....]

WorksheetFunction.AverageIfs(Arng,Arng,"=" & Range("C1"),
Arng,"<=" & Range("E1"))


Of course, the Range references should be Sheet1.Range references. But

since you set Srng and Erng, we should use them, to wit:



WorksheetFunction.AverageIfs(Arng,Arng,"=" & Srng,Arng,"<=" & Erng)
Joe,
I just tried that one...
Dim OArng As Range 'Cell Where Average is reported
Dim Arng As Range 'Range of Dates to Average
Dim Srng As Range 'Start Date
Dim Erng As Range 'End Date

Set OArng = Sheet1.Range("F3")
Set Arng = Sheet2.Range("D2:D" & Range("AJ" & Rows.Count).End(xlUp).Row)
Set Srng = Sheet1.Range("C1")
Set Erng = Sheet1.Range("E1")

With OArng
Application.WorksheetFunction.AverageIfs(Arng,Arng ,"="&Srng,Arng,"<="&Erng)
End With

And I get an error stating; Compile error Expected:=
Any ideas? Thanks!