End of Column
 

How do you take a column, find the last entry in it and list the row # of the
last entry?

End of Column
 

hi,
try this
Sub findendcol()
Dim c As Long
c = Cells(Rows.Count, "B").End(xlUp).Row
MsgBox c
End Sub

regards
FSt1

"Philosophaie" wrote:

How do you take a column, find the last entry in it and list the row # of the
last entry?

End of Column
 

Without VBA

=ADDRESS(MATCH(99^99,A:A),1,4) address of last numeric cell

=ADDRESS(MATCH(REPT("z",255),A:A),1,4)

to find address of last text cell in column

Note the 4 returns relative-------1,2,3,4 are options

With VBA

Sub lastcell()
Dim lrow As Long
lrow = Cells(Rows.Count, 1).End(xlUp).Row
MsgBox lrow
End Sub


Gord Dibben MS Excel MVP

On Wed, 4 Mar 2009 17:26:00 -0800, Philosophaie
wrote:

How do you take a column, find the last entry in it and list the row # of the
last entry?

End of Column
 

How do you add that to a range select?

Range("A1:H9").Select

Replace "9" with "Irow".

End of Column
 

Sub lastcell()
Dim lrow As Long
lrow = Cells(Rows.Count, 1).End(xlUp).Row
Range("A1:H" & lrow).Select
End Sub


Gord

On Wed, 4 Mar 2009 18:06:00 -0800, Philosophaie
wrote:

How do you add that to a range select?

Range("A1:H9").Select

Replace "9" with "Irow".