auto sorting

E

Ed

Suppose I have one view of the data with the following columns:

NAME | YEARS OF SERVICE | SALARY | DEPARTMENT

I have this data in "Worksheet 1" sorted by Name, is there a way to
automatically generate other views of this data where each worksheet has
these data sorted by different columns (e.g. by YEARS OF SERVICE, by SALARY,
by DEPARTMENT)?

Thanks.
 
G

Gord Dibben

Ed

If you truly want 3 new worksheets with differing sorted views.

Using macro recorder produced this............

Range("A1").Select
Range("A:D").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Sheets("Sheet6").Copy Before:=Sheets(1)
Range("A:D").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Sheets("Sheet6").Copy Before:=Sheets(1)
Range("A:D").Sort Key1:=Range("C2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Sheets("Sheet6").Copy Before:=Sheets(1)
Range("A:D").Sort Key1:=Range("D2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

Gord Dibben Excel MVP
 
Top