Microsoft Office Forums

Go Back   Microsoft Office Forums > >
Reload this Page Macro to sort columns Macro to sort columns
Register FAQ

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #2  
Old 08-17-2016, 07:39 AM
c991257 c991257 is offline Macro to sort columns Windows 10 Macro to sort columns Office 2016
Advanced Beginner
  
Join Date: Mar 2014
Location: Zambia
Posts: 61
c991257 is on a distinguished road
Default
This will do it, but it is a disgusting Macro.
Start in Cell A1. You'll need to change the book1 part to suit your spreadsheet.
The CrapMacro() runs the TerribleMacro() 400 times.

Sub TerribleMacro()
'
'
ActiveCell.Range("A1:A16").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortField s.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortField s.Add Key:=ActiveCell, _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange ActiveCell.Range("A1:A16")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveCell.Offset(0, 1).Range("A1").Select
End Sub

Sub CrapMacro()
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
Application.Run "Book1!TerribleMacro"
End Sub
Reply With Quote
 

Tags
macro, sorting columns

« Previous Thread | Next Thread »


Similar Threads
Thread Thread Starter Forum Replies Last Post
.pdf to .xlsx - How to get sort-able columns? CCinPA Excel 0 07-05-2016 08:30 AM
Macro to sort columns Normal sort not bringing along other columns Dave Fraser Excel 2 06-06-2014 11:48 AM
Need help sorting data in columns that will sort by number of Xs brenna.at.work Excel 8 04-12-2014 07:00 AM
quick replace, sort, change columns userman Excel 1 05-01-2012 06:24 AM
Macro to sort columns How to sort table having three columns? Bahir Barak Word 2 01-20-2011 01:52 PM

Other Forums: Access Forums

All times are GMT -7. The time now is 07:57 PM.

Contact Us - Privacy Statement - Top

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft