remove duplicate with the current month

[faizee]

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


[TABLE="width: 131"]
<TBODY>[TR]
[TD]Records[/TD]
[TD]Date[/TD]
[/TR]
[TR]
[TD]Rad[/TD]
[TD="align: right"]5-Jan-12[/TD]
[/TR]
[TR]
[TD]faizan[/TD]
[TD="align: right"]5-Feb-12[/TD]
[/TR]
[TR]
[TD]Cool[/TD]
[TD="align: right"]5-Jan-12[/TD]
[/TR]
[TR]
[TD]Be[/TD]
[TD="align: right"]5-Jan-12[/TD]
[/TR]
[TR]
[TD]Be[/TD]
[TD="align: right"]5-Jan-12[/TD]
[/TR]
[TR]
[TD]Cool[/TD]
[TD="align: right"]5-Jan-12[/TD]
[/TR]
[TR]
[TD]red[/TD]
[TD="align: right"]5-Jan-12[/TD]
[/TR]
[TR]
[TD]Rad[/TD]
[TD="align: right"]5-Jan-12[/TD]
[/TR]
[TR]
[TD]Too[/TD]
[TD="align: right"]5-Jan-12[/TD]
[/TR]
[TR]
[TD]Super[/TD]
[TD="align: right"]5-Feb-12[/TD]
[/TR]
[TR]
[TD]Be[/TD]
[TD="align: right"]5-Feb-12[/TD]
[/TR]
[TR]
[TD]Super[/TD]
[TD="align: right"]5-Feb-12[/TD]
[/TR]
[TR]
[TD]Rad[/TD]
[TD="align: right"]5-Feb-12[/TD]
[/TR]
[TR]
[TD]Sioux[/TD]
[TD="align: right"]5-Feb-12[/TD]
[/TR]
[TR]
[TD]Super[/TD]
[TD="align: right"]5-Feb-12[/TD]
[/TR]
[TR]
[TD]Super[/TD]
[TD="align: right"]5-Feb-12[/TD]
[/TR]
[TR]
[TD]Super[/TD]
[TD="align: right"]5-Jan-12[/TD]
[/TR]
[TR]
[TD]Be[/TD]
[TD="align: right"]5-Jan-12[/TD]
[/TR]
[TR]
[TD]Be[/TD]
[TD="align: right"]5-Jan-12[/TD]
[/TR]
[TR]
[TD]Cool[/TD]
[TD="align: right"]5-Jan-12[/TD]
[/TR]
[TR]
[TD]Sioux[/TD]
[TD="align: right"]5-Jan-12[/TD]
[/TR]
[TR]
[TD]Cool[/TD]
[TD="align: right"]5-Feb-12[/TD]
[/TR]
[TR]
[TD]Super[/TD]
[TD="align: right"]5-Feb-12[/TD]
[/TR]
[TR]
[TD]Cool[/TD]
[TD="align: right"]5-Feb-12[/TD]
[/TR]
[TR]
[TD]wdcbyhj[/TD]
[TD="align: right"]5-Feb-12[/TD]
[/TR]
</TBODY><COLGROUP><COL><COL></COLGROUP>[/TABLE]

 

[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