worksheet function?

[Guest]

Mm..how to write average worksheet function in VBA? worksheetfunction.average?

How do I reference to the range of cells in another worksheet? Is it like
this, WorksheetFunction.Average (Range("fulldata for c1")("C3:C9"))?

Thanks!

 

[Frank Kabel]

Hi
msgbox application.worksheetfunction.average(Range("C3:C9"))

 

[Tom Ogilvy]

dblAvg = WorksheetFunction.Average
(Worksheets("Sheet1").Range("C3:C9").Value)

 

[Guest]

Do to write the below in VBA? I used

Range("C4").Select
Range("c4") = WorksheetFunction.Average(Range("M3:M9"))
Range("C4").Select
Selection.AutoFill Destination:=Range("C4:I4"), Type:=xlFillDefault
Range("C4:I4").Select
-----------------------------
in C4: =AVERAGE(M3:M9)

then copy across to I4

--------------------------------------------

 

[Bob Phillips]

Worksheetfunction.Average(Worksheets("fulldata for c1").Range("A1:G1"))

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Guest]

Do to write the below in VBA? I used

Range("C4").Select
Range("c4") = WorksheetFunction.Average(Range("M3:M9"))
Range("C4").Select
Selection.AutoFill Destination:=Range("C4:I4"), Type:=xlFillDefault
Range("C4:I4").Select

 

[Tom Ogilvy]

Sub AA()
Range("c4").Formula = "=Average(M3:M9)"
Range("C4").AutoFill Destination:=Range("C4:I4"), Type:=xlFillDefault
End Sub

 

[Tom Ogilvy]

Sub AA()
Range("c4").Formula = "=Average(M3:M9)"
Range("C4").AutoFill Destination:=Range("C4:I4"), Type:=xlFillDefault
End Sub