ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   average of the range (https://www.excelbanter.com/excel-programming/350832-average-range.html)

saziz[_63_]

average of the range
 

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

--
sazi
-----------------------------------------------------------------------
saziz's Profile: http://www.excelforum.com/member.php...nfo&userid=635
View this thread: http://www.excelforum.com/showthread.php?threadid=50269


Dave Peterson

average of the range
 
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)

saziz wrote:

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 range
which starts from cell A2

Appreciate your help.
Thank you
syed Aziz

--
saziz
------------------------------------------------------------------------
saziz's Profile: http://www.excelforum.com/member.php...fo&userid=6350
View this thread: http://www.excelforum.com/showthread...hreadid=502698


--

Dave Peterson

saziz[_64_]

average of the range
 

Thank you Dave. One more thing I added to my list of "things learnt
today"
using the .formular1c1..
Thanks
Syed


--
saziz
------------------------------------------------------------------------
saziz's Profile: http://www.excelforum.com/member.php...fo&userid=6350
View this thread: http://www.excelforum.com/showthread...hreadid=502698



All times are GMT +1. The time now is 04:53 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com