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.
Pingback: painting contractors brisbane
Pingback: the lawyers in oklahoma city
Pingback: click here
Pingback: click here
Pingback: cheap club flyers
Pingback: gogo games
Pingback: tv live
Pingback: buy list
Pingback: Video: Facebook trades below expectations | 5 Star Family Vacation Spots
Pingback: retrofitting
Pingback: servis char
Pingback: symbol bar code scanner
Pingback: here
Pingback: instant loan
Pingback: roswell tree service
Pingback: online backup services