macro code to find last record in excel
MsgBVox Cells(LastRow,LastCol).Value
'-----------------------------------------------------------------
Function LastRow() As Long
'-----------------------------------------------------------------
LastRow = Cells.Find(What:="*", _
After:=Range("A1"), _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
End Function
'-----------------------------------------------------------------
Function LastCol() As Long
'-----------------------------------------------------------------
LastCol = Cells.Find(What:="*", _
After:=Range("A1"), _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
End Function
--
HTH
Bob Phillips
(replace somewhere in email address with gmail if mailing direct)
"Raj" wrote in message
...
Hi
Please send me an example code to get the last record number in a
worksheet
|