View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.misc
Dave Peterson
 
Posts: n/a
Default Sorting Excel columns in several worksheets at once.

You could record a macro that sorts the data the way you want. Then run that
same code for each worksheet that you need sorted.

For example, this expects headers in row 1 of each worksheet. It sorts columns
A:G and determines the last row by the last row used in column A.

And it it uses column 1 (A), column 3 (C), and column 5 (E) as the key columns.

Option Explicit
Sub testme01()

Dim myRng As Range
Dim wks As Worksheet

For Each wks In ActiveWorkbook.Worksheets
With wks
Set myRng = .Range("a1:G" & .Cells(.Rows.Count, "A").End(xlUp).Row)
End With

With myRng
.Cells.Sort key1:=.Columns(1), order1:=xlAscending, _
key2:=.Columns(3), order2:=xlAscending, _
key3:=.Columns(5), order3:=xlAscending, _
header:=xlYes
End With
Next wks
End Sub


Dale60 wrote:

I have information in several excel worksheets. All worksheets are formated
the same within the file. How do I sort all the worksheets at once by one of
the columns, for instance sort all worksheets by column A.


--

Dave Peterson