Tom’s Tutorials For Excel: Sorting Email Addresses by Domain and Recipient
Yesterday, I posted this method for parsing the recipient and domain names from an email address.
As an example of why you would want to separate a recipient name from its domain name,
…
Tom’s Tutorials For Excel: Sorting a List in Random Order
Here’s how you can sort a table in a random order, instead of strictly as ascending or descending.
In the example, a company has 10 coveted parking spaces that are nearer to the office building.
…
Tom’s Tutorials For Excel: Sorting Birthdays, Excluding the Year
Companies and organizations often keep a list of their members’ birth dates, for purposes of sending out birthday greetings or managing employees’ birthdays with a complimentary day off work.
As the above picture shows,
…
Tom’s Tutorials For Excel: Populating and Sorting Unique Items in a ListBox or ComboBox
There are times when you need to populate a ListBox or ComboBox with unique items from a dynamic range containing many repeated items. You’ll also want the items to be sorted automatically,
…
Tom’s Tutorials for Excel: Auto-Sort By Double-Clicking a Cell
This example toggles a sort in ascending and descending order for a table of data whose headers are in row 1. When you double-click any cell in the data range, the table is sorted based on the column of the cell that is double-clicked.
…
Tom’s Tutorials For Excel: Sorting The Unsortable
Sometimes you need to sort a list with varying hierarchy logic. For example, Picture #1 shows how “Section” is listed in column A with numbers in the same cell to indicate an order from 1 to 20.
If you try to sort that list in ascending order,
…
Tom’s Tutorials for Excel:How to sort your sheet tabs in alphanumeric ascending order
Happy Friday! Here is today’s useful Excel solution from Tom Urtis
Sub SortSheetsTabName()
Application.ScreenUpdating = False
Dim iSheets%, i%, j%
iSheets = Sheets.Count
For i = 1 To iSheets – 1
For j = i + 1 To iSheets
If Sheets(j).Name < Sheets(i).Name Then
Sheets(j).Move before:=Sheets(i)
End If
Next j
Next i
Application.ScreenUpdating = True
End Sub
Remember,
…
San Francisco, California
1-925-310-4170
tom@atlaspm.com
