remove duplicate with the current month

[faizee]

i want to make list of unique record (after removing duplicate) of only last month (feb-12

Records	Date
Rad	5-Jan-12
faizan	5-Feb-12
Cool	5-Jan-12
Be	5-Jan-12
Be	5-Jan-12
Cool	5-Jan-12
red	5-Jan-12
Rad	5-Jan-12
Too	5-Jan-12
Super	5-Feb-12
Be	5-Feb-12
Super	5-Feb-12
Rad	5-Feb-12
Sioux	5-Feb-12
Super	5-Feb-12
Super	5-Feb-12
Super	5-Jan-12
Be	5-Jan-12
Be	5-Jan-12
Cool	5-Jan-12
Sioux	5-Jan-12
Cool	5-Feb-12
Super	5-Feb-12
Cool	5-Feb-12
wdcbyhj	5-Feb-12

<TBODY>
</TBODY><COLGROUP><COL><COL></COLGROUP>

 

[texasalynn]

so which list is the correct one?

Excel 2003
	A	B	C	D	E
1	After macro for deleting dups			Advanced Filter Unique
2	Records	Date		Records	Date
3	faizan	5-Feb-12		Rad	5-Jan-12
4	red	5-Jan-12		faizan	5-Feb-12
5	Too	5-Jan-12		Cool	5-Jan-12
6	Super	5-Feb-12		Be	5-Jan-12
7	Be	5-Feb-12		red	5-Jan-12
8	Super	5-Feb-12		Too	5-Jan-12
9	Rad	5-Feb-12		Super	5-Feb-12
10	Sioux	5-Feb-12		Be	5-Feb-12
11	Super	5-Feb-12		Rad	5-Feb-12
12	Super	5-Feb-12		Sioux	5-Feb-12
13	Cool	5-Feb-12		Super	5-Jan-12
14	Super	5-Feb-12		Sioux	5-Jan-12
15	Cool	5-Feb-12		Cool	5-Feb-12
16	wdcbyhj	5-Feb-12		wdcbyhj	5-Feb-12
Sheet3

 

[lrobbo314]

How about this?

Sub fUnique()
On Error Resume Next
Dim r As Range, cel As Range
Dim nCol As Scripting.Dictionary
Set nCol = CreateObject("Scripting.Dictionary")
Set r = Range("B2", Range("B" & Rows.Count).End(xlUp))
    For Each cel In r
        If Month(cel) = 2 Then
            nCol.Add cel.Offset(, -1).Value, cel.Value
        End If
    Next cel
              
For x = 0 To nCol.Count
    Cells(x + 1, 4) = nCol.Keys(x)
    Cells(x + 1, 5) = nCol.Items(x)
Next x
End Sub