About Us

vbnewbie

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

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
find last non empty cell in a column and display value in msgbox	SeanC UK[_2_]	Excel Programming	1	February 2nd 09 12:12 PM
find last non empty cell in a column and display value in msgb	vbnewbie	Excel Programming	0	February 2nd 09 11:57 AM
find empty cells in a column then append row that empty cell is in	vbnewbie	Excel Programming	9	January 29th 09 09:27 AM
Test for 1 occurances meet same criteria. Display address in MsgB	John	Excel Programming	0	August 28th 08 01:07 PM
How to: Find first empty cell in column	DW	Excel Worksheet Functions	18	October 12th 07 05:57 AM

Menu

About Us