Deleting Row by date criteria

[martyn]

Hi,

I want to automate a file so that when a date in a row matches th
system date, Excel will automatically delete that row. All date are i
column D.

Thanks

Martyn............:rolleyes

 

[Frank Kabel]

Hi
try
Sub delete_rows()
Dim RowNdx As Long
Dim LastRow As Long

LastRow = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).row
For RowNdx = LastRow To 1 Step -1
If Cells(RowNdx, "D").Value = now
Rows(RowNdx).Delete
End If
Next RowNdx
End Sub

 

[Tom Ogilvy]

"Now" should be replaced by "Date" unless you really want to match to a
precision greater than one second.

if the dates in the column also contain times, then you would need

If clng(Cells(RowNdx, "D").Value2) = Date

and in any event, you need to add Then on the end of the IF check.