In the interim while awaiting a vba solution from others ..

Here's a formulas way to get there ..
Assume source data in cols A and B, from row2 down
Using 3 empty cols to the right of the data

In E2:
=IF(SUMPRODUCT((A$2:A2=A2)*(B$2:B2=B2)*(A$2:A2<"" )*(B$2:B2<""))1,"",ROW())
Leave E1 blank

In F2:
=IF(ROW(A1)COUNT($E:$E),"",INDEX(A:A,SMALL($E:$E, ROW(A1))))
Copy F2 to G2. Format G2 as date to taste. Select E2:G2, fill down to last
row of source data. Cols F & G will return the required results all neatly
bunched at the top. Freeze as values, then delete col E and source cols as
may be desired.
--
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---
wrote in message
s.com...
Hi there,

I am trying, with no luck, to create a VBA macro in Excel that will
delete rows with data duplicated in 2 columns. Column A has ID
numbers and Column B has Dates. I need to delete rows that have
duplicate ID No. AND Date and leave the other rows on the worksheet.

I have tried Chip Pearson's code which works well however it doesn't
allow for the dates in column B so it considered the latest date to be
the record to leave and deletes the rest.

Sub DeleteTheOldies()
Dim RowNdx As Long
For RowNdx = Range("A1").End(xlDown).Row To 2 Step -1
If Cells(RowNdx, "H").Value = Cells(RowNdx - 1, "H").Value Then
If Cells(RowNdx, "I").Value <= Cells(RowNdx - 1, "I").Value
Then
Rows(RowNdx).Delete
Else
Rows(RowNdx - 1).Delete
End If
End If
Next RowNdx
End Sub

Example - Befo

ID No. Date
123456 1-2-07
123456 1-2-07
123456 2-2-07
123456 2-2-07
123456 3-2-07
123456 3-2-07

Example - After:

ID No. Date
123456 1-2-07
123456 2-2-07
123456 3-2-07

Any advice will be greatly appreciate. Many thanks.