Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sort Each Worksheet
Why is this not working? I want to do a sort on each page in the workbook.
The workbook is comprised of several (100+) worksheets. Here's my code: Sub SortAlpha() Dim ws As Worksheet Application.StatusBar = False For Each ws In ActiveWorkbook.Worksheets Application.StatusBar = "Please Wait, Sorting Report..." Range("A6").Select Range("A7:I65536").Sort Key1:=Range("A7"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Cells.Replace What:="BY REQUEST DATE", Replacement:= _ "BY NAME", LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:= _ True, SearchFormat:=False, ReplaceFormat:=False Range("A1:I1").Select Next ws Set ws = Nothing Application.StatusBar = False End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sort Each Worksheet
question: Does this code do absolutely nothing are do you recieve an error
message? "Kevin R" wrote: Why is this not working? I want to do a sort on each page in the workbook. The workbook is comprised of several (100+) worksheets. Here's my code: Sub SortAlpha() Dim ws As Worksheet Application.StatusBar = False For Each ws In ActiveWorkbook.Worksheets Application.StatusBar = "Please Wait, Sorting Report..." Range("A6").Select Range("A7:I65536").Sort Key1:=Range("A7"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Cells.Replace What:="BY REQUEST DATE", Replacement:= _ "BY NAME", LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:= _ True, SearchFormat:=False, ReplaceFormat:=False Range("A1:I1").Select Next ws Set ws = Nothing Application.StatusBar = False End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sort Each Worksheet
Sub SortAlpha()
Dim ws As Worksheet Application.StatusBar = False For Each ws In ActiveWorkbook.Worksheets ws.Activate Application.StatusBar = "Please Wait, Sorting Report..." Range("A6").Select Range("A7:I65536").Sort Key1:=Range("A7"), _ Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, _ Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Cells.Replace What:="BY REQUEST DATE", Replacement:= _ "BY NAME", LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:= _ True, SearchFormat:=False, ReplaceFormat:=False Range("A1:I1").Select Next ws Set ws = Nothing Application.StatusBar = False End Sub -- Regards, Tom Ogilvy "Kevin R" wrote in message ... Why is this not working? I want to do a sort on each page in the workbook. The workbook is comprised of several (100+) worksheets. Here's my code: Sub SortAlpha() Dim ws As Worksheet Application.StatusBar = False For Each ws In ActiveWorkbook.Worksheets Application.StatusBar = "Please Wait, Sorting Report..." Range("A6").Select Range("A7:I65536").Sort Key1:=Range("A7"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Cells.Replace What:="BY REQUEST DATE", Replacement:= _ "BY NAME", LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:= _ True, SearchFormat:=False, ReplaceFormat:=False Range("A1:I1").Select Next ws Set ws = Nothing Application.StatusBar = False End Sub |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sort Each Worksheet
Not tested, but try qualifying it
Sub SortAlpha() Dim ws As Worksheet Application.StatusBar = False For Each ws In ActiveWorkbook.Worksheets Application.StatusBar = "Please Wait, Sorting Report..." ws.Range("A6").Select ws.Range("A7:I65536").Sort Key1:=ws.Range("A7"), _ Order1:= xlAscending, _ Header:= xlGuess, _ OrderCustom:=1, _ MatchCase:=False, _ Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal ws.Cells.Replace What:="BY REQUEST DATE", Replacement:= _ "BY NAME", LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:= _ True, SearchFormat:=False, ReplaceFormat:=False ws.Range("A1:I1").Select Next ws Set ws = Nothing Application.StatusBar = False End Sub -- HTH RP (remove nothere from the email address if mailing direct) "Kevin R" wrote in message ... Why is this not working? I want to do a sort on each page in the workbook. The workbook is comprised of several (100+) worksheets. Here's my code: Sub SortAlpha() Dim ws As Worksheet Application.StatusBar = False For Each ws In ActiveWorkbook.Worksheets Application.StatusBar = "Please Wait, Sorting Report..." Range("A6").Select Range("A7:I65536").Sort Key1:=Range("A7"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Cells.Replace What:="BY REQUEST DATE", Replacement:= _ "BY NAME", LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:= _ True, SearchFormat:=False, ReplaceFormat:=False Range("A1:I1").Select Next ws Set ws = Nothing Application.StatusBar = False End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how to sort in a protected worksheet. | Excel Discussion (Misc queries) | |||
XP EXCEL WORKSHEET WILL NOT SORT. HOW TO FIX | Excel Worksheet Functions | |||
New rows at the end of a worksheet don't sort with the worksheet | Excel Worksheet Functions | |||
How to Sort Protected Worksheet | Excel Worksheet Functions | |||
How to sort in the worksheet? | Excel Programming |