Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Unique Output is Duplicating minimum date value
I have 8 dates in a Range A2:A9 (A1 is header) like so,, (4 are unique)
MyDates 12/31/2006 1/25/2007 12/31/2006 1/15/2007 1/15/2007 12/31/2006 1/25/2007 2/15/2007 Sub Macro5() ' ' Macro5 Macro ' Macro recorded 8/21/2007 by Jim May ' ActiveCell.Range("A1:A9").Select Selection.Sort Key1:=ActiveCell, Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal ActiveCell.Offset(1, 0).Range("A1:A8").AdvancedFilter Action:=xlFilterCopy, _ CopyToRange:=ActiveCell.Offset(1, 2).Range("A1"), Unique:=True End Sub The Above produces: 12/31/2006 << need to eliminate this guy obviously - but how? 12/31/2006 1/15/2007 01/25/2007 2/15/2007 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Unique Output is Duplicating minimum date value
Jim,
Try this Sub Macro5() ActiveCell.Range("A2:A9").Select Selection.Sort Key1:=ActiveCell, Order1:=xlAscending Range("A1:A10").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("C1"), Unique:=True End Sub Mike "Jim May" wrote: I have 8 dates in a Range A2:A9 (A1 is header) like so,, (4 are unique) MyDates 12/31/2006 1/25/2007 12/31/2006 1/15/2007 1/15/2007 12/31/2006 1/25/2007 2/15/2007 Sub Macro5() ' ' Macro5 Macro ' Macro recorded 8/21/2007 by Jim May ' ActiveCell.Range("A1:A9").Select Selection.Sort Key1:=ActiveCell, Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal ActiveCell.Offset(1, 0).Range("A1:A8").AdvancedFilter Action:=xlFilterCopy, _ CopyToRange:=ActiveCell.Offset(1, 2).Range("A1"), Unique:=True End Sub The Above produces: 12/31/2006 << need to eliminate this guy obviously - but how? 12/31/2006 1/15/2007 01/25/2007 2/15/2007 |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Unique Output is Duplicating minimum date value
Mike - Thanks !!
"Mike H" wrote: Jim, Try this Sub Macro5() ActiveCell.Range("A2:A9").Select Selection.Sort Key1:=ActiveCell, Order1:=xlAscending Range("A1:A10").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("C1"), Unique:=True End Sub Mike "Jim May" wrote: I have 8 dates in a Range A2:A9 (A1 is header) like so,, (4 are unique) MyDates 12/31/2006 1/25/2007 12/31/2006 1/15/2007 1/15/2007 12/31/2006 1/25/2007 2/15/2007 Sub Macro5() ' ' Macro5 Macro ' Macro recorded 8/21/2007 by Jim May ' ActiveCell.Range("A1:A9").Select Selection.Sort Key1:=ActiveCell, Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal ActiveCell.Offset(1, 0).Range("A1:A8").AdvancedFilter Action:=xlFilterCopy, _ CopyToRange:=ActiveCell.Offset(1, 2).Range("A1"), Unique:=True End Sub The Above produces: 12/31/2006 << need to eliminate this guy obviously - but how? 12/31/2006 1/15/2007 01/25/2007 2/15/2007 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Minimum Date Greater Than Observation Start Date | Excel Discussion (Misc queries) | |||
Output client name based on date... | Excel Worksheet Functions | |||
Getting the value of the Minimum Date | Excel Worksheet Functions | |||
Minimum date greater than a specific date. | Excel Discussion (Misc queries) | |||
Minimum Date Range from other cells | Excel Worksheet Functions |