find last non empty cell in a column and display value in msgb
See previous post!
"Gary''s Student" wrote:
and if you don't want to see the formula result, try:
Sub lvalue()
Dim n As Long, i As Long
n = Cells(Rows.Count, 2).End(xlUp).Row
For i = n To 1 Step -1
If Cells(i, 2).HasFormula Then
Else
MsgBox (Cells(i, 2).Value)
Exit Sub
End If
Next
End Sub
--
Gary''s Student - gsnu200830
"vbnewbie" wrote:
I have a column of numbers and wish to display the last non empty cell value
in the column in a msgbox. In rows where there are no values entered the
cells in this column have formulae until updated manually.
e.g.
Row Column A Column B
1 28/01/19 2106
2 30/01/09 2107 < value I wish to display in msgbox
3 =SUM(B2+1 )
I wish to add the value using a macro
Thanks in advance
|