Comments on: How To Find the Last Row That Contain Data in Excel?

By: Adam

Adam — Mon, 24 May 2010 17:11:24 +0000

I want to add a row with a condtion
if in column a the last date is not current date then insert date
can any one help me

By: Poer

Poer — Mon, 08 Jun 2009 09:09:09 +0000

Thanks Nuovella >:D<

By: Mike

Mike — Wed, 22 Apr 2009 14:25:19 +0000

Thanks, Nuovella!

By: anand

anand — Tue, 31 Mar 2009 14:21:32 +0000

Can anyone please let me know whether it is possible to take the values from workbook B to workbook A without opening workbook B?

By: Vera

Vera — Tue, 10 Feb 2009 01:40:23 +0000

Correction
I need vba to find the last cell in column A that is blank (“”) but is not empty.

By: Vera

Vera — Tue, 10 Feb 2009 01:28:29 +0000

Please I need vba to find the last cell in column A that is not blank but is not empty. I have formulas from A14 to A35 that returns a number or “”. I need the code to find the last cell in range A14:A35 that has a number. All that I found on the net will return A35 because it has a formula in it, even if the result is “”.

Thank you.

By: Nuovella

Nuovella — Sat, 13 Dec 2008 13:55:22 +0000

'
'=======================================================
' Find the last used Cell on a Worksheet - Robust version 3 by Nuovella
' This the simplest and best - it is robust against any type of hidden cells,
' hidden rows, hidden columns or filters
'=======================================================
Function FindLastCell() As String

  With ActiveSheet.UsedRange
            MyUsedRange = .Address
            nUsedRows = .Rows.Count
            nUsedCols = .Columns.Count
            lastRow = .Rows(nUsedRows).Row
            lastCol = .Columns(nUsedCols).Column
    End With
    FindLastCell = Cells(lastRow, lastCol).Address

End Function

By: Nuovella

Nuovella — Sat, 13 Dec 2008 11:51:34 +0000

'
'============================================
'Find the last used Cell on a Worksheet - Robust version2
'============================================
Function FindLastCell() As String

    Dim afRange As String, afRangeNrows As Long, afRangeNcols As Long
    Dim afRangeLastRow As Variant, afRangeLastCol As Variant
    Dim lastRow As Variant, lastCol As Variant

    lastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
    lastCol = Cells.SpecialCells(xlCellTypeLastCell).Column

    If (ActiveSheet.AutoFilterMode = True) Then
        With ActiveSheet.AutoFilter.Range
            afRange = .Address
            afRangeNrows = .Rows.Count
            afRangeNcols = .Columns.Count
            afRangeLastRow = .Rows(afRangeNrows).Row
            afRangeLastCol = .Columns(afRangeNcols).Column
        End With

        If (lastRow < afRangeLastRow) Then
            lastRow = afRangeLastRow
         End If

        If (lastCol < afRangeLastCol) Then
            lastCol = afRangeLastCol
        End If
    End If 'filter mode is on
    MsgBox afRange
    'MsgBox Cells(LastRow, LastCol).Address
    FindLastCell = Cells(lastRow, lastCol).Address

End Function

By: Nuovella

Nuovella — Sat, 13 Dec 2008 11:40:09 +0000

'
'==========================================
'Find the last used Cell on a Worksheet - Robust version
'==========================================
Function FindLastCell() As String

    Dim afRange As String, afRangeNrows As Long, afRangeNcols As Long
    Dim afRangeLastRow As Variant, afRangeLastCol As Variant
    Dim lastRow As Variant, lastCol As Variant

    lastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
    lastCol = Cells.SpecialCells(xlCellTypeLastCell).Column

    If (ActiveSheet.FilterMode = True) Then
        With ActiveSheet.AutoFilter.Range
            afRange = .Address
            afRangeNrows = .Rows.Count
            afRangeNcols = .Columns.Count
            afRangeLastRow = .Rows(afRangeNrows).Row
            afRangeLastCol = .Columns(afRangeNcols).Column
        End With

        If (lastRow < afRangeLastRow) Then
            lastRow = afRangeLastRow
         End If

        If (lastCol < afRangeLastCol) Then
            lastCol = afRangeLastCol
        End If
    End If 'filter mode is on

    'MsgBox Cells(LastRow, LastCol).Address
    FindLastCell = Cells(lastRow, lastCol).Address

End Function

By: Don

Don — Thu, 30 Oct 2008 20:24:04 +0000

TQ’s method assumes that the most rows possible is 65,536 rows. In Office 2007 this restriction was lifted. A revised method which works will all versions of office is:

Function LastRow(Col As String)
LastRow = Range(Col & Rows.Count).End(xlUp).Row
End Function