Sub test()
'Macro finds and deletes all rows with
'a date in column A which
'equals a test date in cell B1
Dim DateFound As Range
Dim DFyes As Integer
Do
Set DateFound = Columns("A:A").Find(Range("B1").Value)
If Not DateFound Is Nothing Then
DFyes = 1
DateFound.EntireRow.Delete
Else
DFyes = 0
End If
Loop Until DFyes = 0
End Sub


vikram < wrote:

macro to find date format in a cell and delete that entire row

i have dates in a column and date keeps changing, i want that if a
macro find date in a column , it deletes that entire row

help me
thank u so much everyone for ue help


---
Message posted from http://www.ExcelForum.com/