|
Posted to microsoft.public.excel.programming
|
|
|
Inserting a function
Hi
should be:
=fzLastValue(B1)
"Frank Kabel" wrote:
Hi
you have to enter this function for example in a cell. e.g.
=fzLastValue(2)
for column B
"Darin Kramer" wrote:
Howdie,
I want to insert the function below into VBA.
I create a new module and paste it in, but how do I run it, or see the
results of it?
Thanks
Darin
Function fzLastValue(RangeId As Variant, Optional byColumn As Boolean =
True)
Dim cLast As Long
Dim oLast As Range
Application.Volatile
If byColumn Then
cLast = Cells(Rows.Count, RangeId).End(xlUp).Row
Set oLast = Range(RangeId & cLast)
Else
cLast = Cells(RangeId, Columns.Count).End(xlToLeft).Column
Set oLast = Cells(RangeId, cLast)
End If
fzLastValue = oLast.Value
End Function
*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!
|