VBA Delete Excel Rows Based on Certain Date

Let say I have a bunch of formatted data in my Excel sheet, and in Column A I have a dates. Then I wanna filter all the data base on certain date, for example 1 Jan 2009, and delete all others data before that date.

The algorithm is like this: I’ll create a loop from the first row until the last row with data and check if the date is before Jan 1st, 2009 or not, if it is, simply delete that row.

Sub DeleteFilteredRows()
    Dim i As Long

    For i = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
        Debug.Print Cells(i, "A").Value
        If CDate(Cells(i, "A")) < CDate("1/jan/2009") Then
            Cells(i, "A").EntireRow.Delete
        End If
    Next i

End Sub

Of course I’ll make an adjustment to the code above to meet my current condition.

FIN.

Posts Related to VBA Delete Excel Rows Based on Certain Date

How To Find the Last Row That Contain Data in Excel?
UPDATE June 13, 2008: Another alternative way to find the last row with data : Function LastRow() As Long Dim ix As Long ix = ...
Handy VBA To Calculate Person Age
This handy VBA procedure is just to show you how we can calculate and display someone Age. To do this, of course we need to ...
Get Position of Last Column Containing Data with Excel VBA
If you read my latest update on how we can get position of last row containing data, then most probably you already have a glimpse ...
Move Cursor To One Cell Below Last Row With Data
Ever want to paste some data into new empty cell after the last cell with data in certain column? Then take a look at this ...
Sum Unique/Distinct Values in Excel
Usually in the sequential database system, we can SUM only unique values in table column by adding all the values from SELECT DISTINCT query result ...

VBA Delete Excel Rows Based on Certain Date

Posts Related to VBA Delete Excel Rows Based on Certain Date

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

Handy VBA To Calculate Person Age

Get Position of Last Column Containing Data with Excel VBA

Move Cursor To One Cell Below Last Row With Data

Sum Unique/Distinct Values in Excel

1,066 Responses to VBA Delete Excel Rows Based on Certain Date

Leave a Reply Cancel reply

Recent Posts