Looking for formula that selects last value entered in a column?

[Bernard Liengme]

Here is a subroutine that does it:
Sub OneColLastRow()

If Range("A" & Rows.Count).End(xlUp) = "" Then GoTo Finish

'give the last row
myrow = Range("A" & Rows.Count).End(xlUp).Row
Cells(myrow, "A").Select
Exit Sub

Finish:
MsgBox "No formulas or data found"
End Sub

This is adapted from http://vbaexpress.com/forum/showthread.php?t=9774

Need help with VBA? See David McRitchie's site on "getting started" with VBA

http://www.mvps.org/dmcritchie/excel/getstarted.htm

best wishes

 

[Billy Liddel]

Here's a formula as you asked for one

=INDIRECT(ADDRESS(COUNTA(D4500)+3,4))

It assumes that you have headers in the first three rows and you want the
last value in column D

Regards

Peter