auto filter

[donlincolnmre2]

hello

I'm looking for a macro that have bunch of date in column A all kinds of different date, the macro should go to row # 2 Column A and whatever date it finds in it suppose to use the Auto filter feature of excell to filter the data on that date.


below is the dummy data

here is the link for formatted data

https://spreadsheets.google.com/spr...-1BKedFVja3pSdE01X3pXdzMxdHZxTlJELWc&hl=en_US


any help would be greatly appreciated.

Thanks.


DAte zip code code
7/14/2011 95670 28360586 056-0123-001-0000
7/14/2011 95831 29072284 031-0720-052-0000
7/14/2011 95630 1017263b 072-2010-025-0000
7/14/2011 95624 28426590 116-1070-010-0000
7/14/2011 95757 231142 132-1330-082-0000
7/14/2011 95660 28516875 219-0195-008-0000
7/14/2011 95673 83171 206-0304-027-0000
7/14/2011 95827 28374779 068-0420-023-0000
7/14/2011 95831 28332019 031-0720-002-0000
7/14/2011 95621 28547051 229-0293-002-0000
7/14/2011 95621 127378 222-0310-009-0000
7/14/2011 95628 28570364 242-0114-001-0000
7/14/2011 95758 41720023 116-1500-056-0000
7/14/2011 95758 28434563 117-1100-028-0000
7/14/2011 95843 38856221 203-1940-032-0000
7/14/2011 95758 28421621 116-0360-023-0000
7/14/2011 95838 83104 237-0362-010-0000

 

[Jerry Sullivan]

Hello,

If you have a contiguous region like the one shown in your example,
you can use this code...

Sub Filter_by_First_Date()
    With Sheets("Sheet1").Range("A2")
        .Parent.AutoFilterMode = False
        .CurrentRegion.AutoFilter Field:=1, _
            Criteria1:=.Value    
    End With
End Sub