MS+T
Personally, I'd have a look at writing custom functions for this, maybe something like:
=LastNonZeroInRange(A:A)
where LastNonZeroInRange would be a function like:
Function LastNonZeroInRange(rng As Range) As Integer
'counting from the bottom up, find the first non-zero value
Dim r, c As Integer
r = 65536
c = rng.Column
Do Until Cells(r, c).Value <> 0 And Not (IsNull(Cells(r, c)))
r = r - 1
Loop
LastNonZeroInRange = Cells(r, c).Value
End Function
but then again, that's just what I'd do
Hope this helps.
wabbit
Personally, I'd have a look at writing custom functions for this, maybe something like:
=LastNonZeroInRange(A:A)
where LastNonZeroInRange would be a function like:
Function LastNonZeroInRange(rng As Range) As Integer
'counting from the bottom up, find the first non-zero value
Dim r, c As Integer
r = 65536
c = rng.Column
Do Until Cells(r, c).Value <> 0 And Not (IsNull(Cells(r, c)))
r = r - 1
Loop
LastNonZeroInRange = Cells(r, c).Value
End Function
but then again, that's just what I'd do
Hope this helps.
wabbit