Delete all rows not today

[Guest]

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

 

[somethinglikeant]

Sub DeleteNotCurrentDate()
qend = [F65536].End(xlUp).Row
Range("F" & qend).Select:
For i = qend To 1 Step -1:
Range("F" & i).Select
If ActiveCell.Value <> Date Then ActiveCell.EntireRow.Delete
Next i
End Sub

somethinglikeant

 

[Guest]

Sub DelTodayRows()
'Deletes rows where the value in column F is today's date
Dim RowNdx As Long
Dim LastRow As Long

LastRow = Cells(Rows.Count, "F").End(xlUp).Row

For RowNdx = LastRow To 1 Step -1

If Cells(RowNdx, "F").Value = FormatDateTime(Now, vbShortDate) =
True Then
Rows(RowNdx).Delete
End If

Next RowNdx

End Sub

 

[Guest]

Oops Paul, maybe I'm doing this the wrong way...I only want to keep rows with
the current date....this code deletes the current date rows. Should I relook
at this and delete all rows not the current date? What is the best option?

 

[Guest]

Sorry about that, try this modified code:

Sub DelNotTodayRows()
'Deletes rows where the value in column F is not today's date
Dim RowNdx As Long
Dim LastRow As Long

LastRow = Cells(Rows.Count, "F").End(xlUp).Row

For RowNdx = LastRow To 1 Step -1

If Cells(RowNdx, "F").Value = FormatDateTime(Now, vbShortDate) =
False Then
Rows(RowNdx).Delete
End If

Next RowNdx

End Sub