| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete all rows not today
Can somebody please help me with this code, I'm trying to delete all rows
that are not dated the current date. My date format in column F is mm/dd/yyyy, do I need to state that. Thanks LastRow = Cells(Rows.Count, "F").End(xlUp).Row For RowNdx = LastRow To 1 Step -1 If StrComp(Cells(RowNdx, "F"), =Today(), vbTextCompare) < 0 Then Rows(RowNdx).Delete End If Next RowNdx |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Hpw do I delete multiple empty rows found between filled rows? | Excel Worksheet Functions | |||
| Cut filtered rows, paste into next empty row of new sheet, and delete cut rows | Excel Worksheet Functions | |||
| Delete rows with numeric values, leave rows with text | Excel Programming | |||
| How to delete rows when List toolbar's "delete" isnt highlighted? | Excel Worksheet Functions | |||
| Delete every 3rd row, then delete rows 2-7, move info f/every 2nd row up one to the end and delete the row below | Excel Programming | |||
Threaded Mode
