I am trying to put additional functionality in this code to delete row
with "3/25/2005" or "12/31/2004" in column A.
This doesn't work, yet it doesn't give any errors.
When i check my sheet, it deletes duplicate rows but not the rows wit
"3/25/2005" or "12/31/2004".
Please can anyone take a look? Thanks
Code
-------------------
'DELETE DUPLICATE ROWS AND DELETE ROWS WITH CRITERIA
Dim i As Long
Dim cursheet As Worksheet
Set cursheet = Worksheets("DataTable")
For i = cursheet.Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
If WorksheetFunction.CountIf(cursheet.Range(cursheet. Cells(2, 1), cursheet.Cells(i, 1)), cursheet.Cells(i, 1)) 1 Or _
Cells(i, "A").Value = "3/25/2005" Or _
Cells(i, "A").Value = "12/31/2004" Then
cursheet.Cells(i, 1).EntireRow.Delete
End If
Next i
-------------------
--
Mslad
-----------------------------------------------------------------------
Mslady's Profile:
http://www.excelforum.com/member.php...fo&userid=2777
View this thread:
http://www.excelforum.com/showthread.php?threadid=48024