Sort by Date

[sir drinks alot]

sheet:

Book2
	C	D	E	F
2	DATE	ACTIVE
3	5/8/2006	A
4	6/9/2006
5	5/8/2004	A
6	9/2/2006
7	4/25/2006	A
8	4/26/2006	A
9	4/27/2006
10	4/28/2006	A
11	4/29/2006
12	4/30/2006	A
13	5/1/2006	A
14	5/2/2006	A
15	5/3/2006
16	5/4/2006	A
17	5/5/2006
18	5/6/2006
19	5/7/2006	A
20	5/8/2006
21	5/9/2006	A
Sheet1

how can i sort by date, ascending order, of only the active dates?

anybody got some sweet sort code or something?

thanks.

 

[Joe4]

You can sort up to three levels. So have column D as your first sort level, and column C as your second.

 

[PolarBear]

First, find out how many rows you have to work with:

LastRow = shtOne.Cells(Rows.Count, "C").End(xlUp).Row

' Then set up a loop:

For i = 2 to LastRow ' start at row 2, not your header row!
if Range("D" & i).Value = "A" then ( here you need to give more
detail on what you want to do - delete the rows with inactive dates,
or do you want to copy the date and some other columns to another
sheet, and sort them there? Both easy to do)
Next i
Range("C2").Select 'this block sorts the range before copying the data
Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlYes
(this assumes you've deleted the inactive rows, and sorts your stuff in place. If you have copied the active rows to another sheet, you'll need to tell this block what sheet you're using.)

Hope this helps!

 

[sir drinks alot]

hey thanks for the replies.

i want to sort all the active dates to the top of the list, then all the inactive dates underneath those.

 

[Joe4]

That is what my suggestion will do. Did you try it?

 

[sir drinks alot]

not yet, without some sort of code i don't know how to do that.
i basically want to sort the entire row, because on th real sheet there will be other columns of info.

 

[Joe4]

Are you trying to do this code (it isn't necessary to use code, unless that is one of your requirements)?

You can simply use Data | Sort ...

To get the code, just turn on the Macro Recorder and record yourself performing the steps. This will give you the code you need.

 

[sir drinks alot]

ok, thanks for all your help.
i'll keep trying