Hi,
Need the syntax to calculate the average of a range of cells and it will
know where to stop the range when it finds a blank cell.
Selection.Formula.....etc... (e.g. Just how the Sum (Sigma) function works
already)
Thanks for your help
Matt R
Hi,
Need the syntax to calculate the average of a range of cells and it will
know where to stop the range when it finds a blank cell.
Selection.Formula.....etc... (e.g. Just how the Sum (Sigma) function works
already)
Thanks for your help
Matt R
It took a while but was able to piece other pieces of code together to get to
it. Here it is......i'm sure just one of many possible solutions
Sub average()
Dim i As Long
Dim j As Long
Dim start As Long
i = ActiveCell.Row - 1
start = i
j = ActiveCell.Column
If Cells(i, j).Value = "" Then
Exit Sub
End If
Do While Cells(i, j).Value <> ""
i = i - 1
Loop
i = i + 1
Selection.Formula = "=average(" & Cells(i, j).Address & ":" & Cells(start,
j).Address & ")"
End Sub
"Matt R" wrote:
> Hi,
>
> Need the syntax to calculate the average of a range of cells and it will
> know where to stop the range when it finds a blank cell.
> Selection.Formula.....etc... (e.g. Just how the Sum (Sigma) function works
> already)
>
> Thanks for your help
>
> Matt R
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks