VBA To Sort Worksheets From A List

May 7, 2009

Is it possible to sort numerous worksheets based off a list of cells that are the names of the worksheets within the same file? For example my worksheet names are:

YTD Texas
YTD Florida
Period Texas
Period Florida

I can sort the sheets by alpha but it puts the two YTD worksheets together when I need the two Texas sheets side by side (I need this on a file that contains over 100 worksheets otherwise I would do it manually) I was wondering if I could create my order of sheet name in another worksheet and reference that list through vba code?

View 7 Replies


VBA - Sort Worksheets In Same Order As List

Oct 7, 2011

I have the below code that sorts a list of Doors that I have in row C17 downwards. Door 54, Door 7, Door 109 etc. The list is feeding a drop down box, people find the door they were looking for, in the said drop down box.


Sub ListSorter()
Dim LastRow As Long
LastRow = Range("C" & Rows.Count).End(xlUp).row


I wondered if there was some code I could add to the end of this, that would the sort worksheets, which are all named after each cell in the list, in the same order.

View 3 Replies View Related

Sort Worksheets Using Custom Sort To Choose Certain Word?

May 30, 2012

As of right now these are the steps i do to sort...i click custom sort choose My data has headers and then i select from the drop down list the word FRNAME.

is there any way i can setup a macro to do this for me? i tried recording the macro but it just is recording me choosing the column FRNAME is in. This does not work for me since FRNAME end up being in different columns all the time but will always be in row 1.

View 1 Replies View Related

Excel 2010 :: Sort Worksheets Alphabetically And Keep The Data In Worksheets

May 15, 2013

I have read that there is a VBA macro in F11, but I also read that it would only sort the workshhet names, but not the data. I have Excel 2010.

View 2 Replies View Related

Excel 2013 :: Can Sort List A-Z Then Numbers At Bottom Of List

Jun 5, 2014

Does excel 2013 have a fence way to sort a list of alpha numeric numbers and alphabetize in this order A - Z and then 0 - 9.

Ex) Apple, Greg, Rob, Sand, 123, 126, 1000, 2001

View 2 Replies View Related

Sort Worksheets By Name

Aug 30, 2007

I have a workbook with MANY worksheets. The first 17 are static, as well as the 18th sheet on to the end,but there can be many sheets added in between sheets 17 and 18 (up to 56 added) all named Origin 1, Origin 2....Origin 56. Users can add these sheets in any order as many times as they want, but eventually the order of the sheets will not be in ascending order. I wanted to know how to organize the sheets in order of Origin 1, Origin 2, Origin 3, etc after the user adds new sheets with the macro. I can find out how to add it to my current module on my own.

View 5 Replies View Related

Worksheets Sort Does Not Work

Apr 17, 2014

I need to sort out 4 columns D,B,A,L in ascending order for 5 different worksheets from range A7 to BW.

The sorting start at row 7. I have created a VBA code but got error.

View 9 Replies View Related

Loop Through Worksheets & Sort

Jul 22, 2006

I want to loop through all worksheets and sort all columns in each worksheet. Here is what I have, but for some reasson, it only sort the first sheet. Any suggestions?

Sub test2()

Dim ws As Worksheet
For Each ws In Worksheets

Selection.Sort Key1:=Range("E1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
End Sub

View 4 Replies View Related

Sort Data On All Worksheets ..

Sep 22, 2007

I have a worksheet of about 75000 rows so I have to use 2 worksheets. I want to sort the data in column A in ascending order so I want to start at 4999 until whatever number happens to be in row 65536 then continue sorting the next highest number in another sheet. I tried using this but it didn't work: ..

View 2 Replies View Related

Sort Information On Worksheets By Date?

May 16, 2014

I am trying to sort information on my worksheets by date, oldest to newest however this does seem to be working on the workbook i have attached.

View 3 Replies View Related

Selecting Multiple Worksheets - Sort All

Mar 14, 2012

The code im using all worksheets. How do I make this sort all but the first

For Each WS In ActiveWorkbook.Worksheets

If WS.Name "Sheet1" Then

Range("A1:X2270").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

View 1 Replies View Related

Code To Sort All The Worksheets In A Workbook

Oct 8, 2008

code to sort all the worksheets in a workbook...

View 13 Replies View Related

Sort Data On All Worksheets Active And Other

Aug 21, 2008

It sorts the ActiveSheet, but none of the other sheets and there's no runtime error. I am using this on a test workbook with the same data in 5 worksheets.

What's wrong with this code?

Sub SortSheets()

Dim ws As Worksheet

For Each ws In Worksheets

Cells.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

Next ws

End Sub

This looping structure works for PageSetUp, but not this Sort.

View 5 Replies View Related

Sort Set Range Across Multiple Worksheets

Oct 9, 2009

I would like to use a macro to sort multiple worksheets simultaneously. I need to sort on last name (column A) then first name (column B) and my data does not start until the 8th row (A8:AF8). The data range should be the same for all worksheets that I need to sort. I found the code below here on ozgrid (Dynamic Sort Across Multiple Sheets) but I'm not sure if its appropriate or the best way to customize it so that the 1. Can sort on two criteria

2. Is specified to nonblank cells in a specific range, A8:AF8 and below

Sub DynaSort()
Dim wsSheet As Worksheet

For Each wsSheet In Worksheets
Select Case wsSheet.CodeName
Case "Sheet1", "Sheet2", "Sheet3", "Sheet4"
With wsSheet
.UsedRange.Sort Key1:=. Range("B14"), Order1:=xlAscending, Header:=xlYes
End With
Case Else
End Select
Next wsSheet
End Sub

View 9 Replies View Related

Sort Data On Multiple Worksheets

Aug 16, 2006

I am using the code below to transfer data from a single sheet to approx'
200 sheets. These sheets are staff training sheets, one per staff member.
This code works great. What I would like to know is, is there a way to then sort the data on these sheets in decending order? I have tried on sheet change but this seems to stop the transfer to other pages.

Sub Tranfser()
Dim shtTemp As Worksheet
Dim lngOutRow As Long
Dim rngData As Range
For Each rngData In Range("A5", Range("A5").End(xlDown))
Set shtTemp = GetWorksheet(rngData.Offset(0, 1).Value)
If Not shtTemp Is Nothing Then ..........................

View 9 Replies View Related

Allow Sort, Sorting On Protected Worksheets

Aug 29, 2006

Is it possible to keep the sort icon available on a worksheet which is protected? I have issued a spreadsheet to colleagues which contains formulas so I have protected it, but I have now been informed that they need to be able to sort the data according to a ref number.

I thought of using code (which I'm not very good at) and used some from another excel document, but couldn't get it to work...the code was ....

View 9 Replies View Related

Sort Data To Multiple Worksheets

Dec 14, 2006

We are trying to sort a spreadsheet by the data in column I. This column refers to a state. I need help creating a macro that can sort column I so that different states go into different worksheets.

States ME, NH, MA, RI, CT, VT go to a worksheet titled 357899, states NY, NJ would go into worksheet 351835, states MI, IN, OH would go into worksheet 351857, and everything else would go into worksheet 351836. The main data worksheet where the info is being sorted from is named All_Accounts. Column I has a header labeled State, so data actually starts in Row 2. I need the full rows copied to the new worksheets while leaving the main All_Accounts worksheet in tact.

View 9 Replies View Related

Sort Worksheets By Numerical Order

Oct 11, 2007

I am trying to sort worksheets in excel by numerical order. I have renamed each worksheet with a different zipcode that corresponds to data on that sheet.

I believe there might be two ways to do this,
1) by sorting numerically the worksheet names.
2) by perhaps referencing a cell on each worksheet (i.e. the zipcode) and sorting it that way.

View 7 Replies View Related

VBA To Sort Multiple Worksheets By Number Order

Feb 26, 2014

I found the code below on the Microsoft website and it works except it didn't treat the worksheet tabs as numbers so the sort is 1, 10, 100, 101 etc.

How can I get it to treat the worksheet values like numbers and sort accordingly?.


Sub Sort_Active_Book()
Dim i As Integer
Dim j As Integer
Dim iAnswer As VbMsgBoxResult
' Prompt the user as which direction they wish to
' sort the worksheets.


' If the answer is No, then sort in descending order.
ElseIf iAnswer = vbNo Then
If UCase$(Sheets(j).Name) < UCase$(Sheets(j + 1).Name) Then
Sheets(j).Move After:=Sheets(j + 1)
End If
End If
Next j
Next i
End Sub

View 1 Replies View Related

Sort Data Ranges Across Multiple Worksheets

May 2, 2008

I have been asked to create an attendance worksheet where employee names and data are entered on a "main" worksheet and hours are entered on monthly worksheets. The names on the monthly worksheets are referenced from the main worksheet. Therefore, if I add a name and do a sort, the names on all pages will move, but the data will not. I imagine I will need an ID column to help sort. How do I make a macro to do the sort?

View 2 Replies View Related

Long List Won't Sort?

Jul 22, 2013

I am trying to sort a fairly long list of tasks into a custom calendar order. I have created the custom list as Sept, Oct, Nov, Dec, Jan etc through to Aug, with one additional heading of "Recurring". The list won't seem to sort by the column where these headings occur. See attachment.

View 7 Replies View Related

Getting A List To Automatically Sort

Oct 17, 2013

I am trying to get a list to sort automatically. I am running a competition over an 11 week period and entering weekly data that is totalled on a separate "Totals" sheet.

This "Totals" sheet, in turn, feeds a "Scores" sheet which I want to automatically sort in descending order of score in order to show the current positions in the competition.

The data in the list isn't entered directly but comes from formulas that reference cells in other workbooks.

I have found ways of sorting a list when you enter data into the list itself but what I need is a macro that will update the sort order automatically whenever a new value is entered in one of the other workbooks.

View 1 Replies View Related


Jun 3, 2006

I have a wedding list of names and addresses in one long column. The names occur every 5th line. They are not in alphabetical order.

View 9 Replies View Related

Sort List By No Of Characters

Feb 18, 2007

I have a large list of phrases, about 30,000 all in Col A. (From A3 to be exact)

What I want is to sort by number of characters.
I know excel can sort A-Z,,, but I can't see by number of characters??

Is there anyway I can sort this list by No of Characters please??

List does include letters and numbers.
But they are mainly 3-4 keyword phrases.

This is so from a large list all the least amount of characters will be at the top of the list so I can easily see them,, and probably delete most of the 1,2,3,4 character returned results.

View 9 Replies View Related

Sort Based On List

Jun 4, 2008

sorry for restarting this thread but i started one similar on saturday and the person I was talking to has not yet responded

I want to know if it is possible to adjust this code line:

Case "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday"

from the macro below to instead get the case names from a list on a worksheet... the reason for this is that the names of the worksheets I want sorted will change periodically.

Sub SortDaysoftheWeek()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
Select Case ws.Name
Case "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday"
With ws
.Range("A6:G256").Sort Key1:=Range("A6"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
End With
End Select
Next ws
End Sub

View 9 Replies View Related

Sort List With X Exceptions

Aug 22, 2007

I need to create a custom sort which will cause entries "TBD" and blank to appear at the bottom of my spreadsheet. Any other value will be sorted alphabetically. I'm not sure how to create my sort list to do this. I tried "*, TBD " but this did not work.

View 2 Replies View Related

Automatically Add To Validation List And Sort?

Sep 24, 2007

I have created a validation list which automatically adds any new values a user enters.

Is there any way of sorting the validation list every time a new value is added to the list?

View 9 Replies View Related

Sort List Closest To Value Automatically?

Mar 21, 2013

I have a list of Y-intercepts (Column B - highlighted in Yellow) and I'd like to sort it based on a certain value (in J4) and get the 10 closest numbers above that value and the 10 closest values below that value followed by the remaining numbers.

View 7 Replies View Related

To Sort 3 Columns With A Priority List?

Jul 8, 2014

I have to sort the data as follows:

DI has top priority, MATT is next and SAM is last in the priority list. I attach the list of data and desired result.

View 2 Replies View Related

Add Custom Sort List To VBA Code

Mar 12, 2009

I have a Macro that I have recorded that autosorts several columns for me. This works fine as I have 5 columns that need to be sorted in a particular way.

The problem is that I have a custom list which I stored using the: Tools>Options>Custom List tab. Now this works fine on my pc as I have the custom list stored on my PC.however the problem is when someone else uses it on their PC it may no longer work as they won't have my custom list stored on their PCs.

Is there a way to store the custom list in a Macro and then use that list to sort to the criteria needed. For example "One, Two, Three, Four" will not store in alphabetically, so hope would I be able to sort so that they would appear in a chronological manner? Below is the code for the Macro I recorded. As you can see one of the lines says "OrderCustom:=6"; this I am assuming is reading from the list I created.

View 2 Replies View Related

Copyrights 2005-15 www.BigResource.com, All rights reserved