average of the range

  • Thread starter Thread starter saziz
  • Start date Start date
S

saziz

Hi All,

I am trying to get an average of a set of data input by operator.
I am not familiar with cyntax for average of the range..

Sub Average()
Dim mynum As Integer
Dim lRow As Integer
Dim Arange As Range

ActiveSheet.Range("A2").Value = InputBox("No. Pls?")
'ActiveSheet.cell("A2").Value = mynum
ActiveSheet.Range("A2").Select
Selection.Copy
Range("A3").Select
Selection.Insert Shift:=xlDown

lRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

Now I want to say at the last row to do an average of the whole rang
which starts from cell A2

Appreciate your help.
Thank you
syed Azi
 
dim lRow as long
with activesheet
lRow = .Cells(.Rows.Count, 1).End(xlUp).Row
.cells(lrow+1,1).formular1c1 = "=sum(r2c:r[-1]c)"
end with

(one of the nice things about using the .formular1c1)
 
Thank you Dave. One more thing I added to my list of "things learnt
today"
using the .formular1c1..
Thanks
Syed
 
Back
Top