ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Sorting 100 rows of 6 records horizontally (https://www.excelbanter.com/excel-programming/280973-sorting-100-rows-6-records-horizontally.html)

Victor[_3_]

Sorting 100 rows of 6 records horizontally
 
I would like to sort the 6 records in each separate row (100 total) ascending.
Is there a built-in function to do that.

I tried to use the macro recorder to sort the rows manually but 100 is too tedious, I would appreciate any hints for a killer macro..

TIA

Bob Kilmer

Sorting 100 rows of 6 records horizontally
 
perhaps you could transpose the 6cols x 100 rows to 100 cols x 6 rows, use
the columns.sort method (or some such) to sort each column alone, then
retranspose to 6 x 100.

--
Bob Kilmer

"Victor" wrote in message
...
I would like to sort the 6 records in each separate row (100 total)

ascending.
Is there a built-in function to do that.

I tried to use the macro recorder to sort the rows manually but 100 is too

tedious, I would appreciate any hints for a killer macro..

TIA




Victor[_3_]

Sorting 100 rows of 6 records horizontally
 
I had already tried that but it only sorts the first 3
columns at the max


-----Original Message-----
perhaps you could transpose the 6cols x 100 rows to 100

cols x 6 rows, use
the columns.sort method (or some such) to sort each

column alone, then
retranspose to 6 x 100.

--
Bob Kilmer

"Victor" wrote in

message
...
I would like to sort the 6 records in each separate row

(100 total)
ascending.
Is there a built-in function to do that.

I tried to use the macro recorder to sort the rows

manually but 100 is too
tedious, I would appreciate any hints for a killer macro..

TIA



.


Bob Kilmer

Sorting 100 rows of 6 records horizontally
 
Go programmatically thru the columns, sorting each column itself, not the
entire range of columns.

--
Bob Kilmer

"Victor" wrote in message
...
I had already tried that but it only sorts the first 3
columns at the max


-----Original Message-----
perhaps you could transpose the 6cols x 100 rows to 100

cols x 6 rows, use
the columns.sort method (or some such) to sort each

column alone, then
retranspose to 6 x 100.

--
Bob Kilmer

"Victor" wrote in

message
...
I would like to sort the 6 records in each separate row

(100 total)
ascending.
Is there a built-in function to do that.

I tried to use the macro recorder to sort the rows

manually but 100 is too
tedious, I would appreciate any hints for a killer macro..

TIA



.




Bob Kilmer

Sorting 100 rows of 6 records horizontally
 
Option Explicit

Sub SortColumns()
Dim rng As Range
Dim col As Range

Set rng = Workbooks("Book2.xls").Worksheets("Sheet1").Column s
For Each col In rng
rng.Sort col
Next
End Sub

Change rng to whatever range you like. Perhaps, for your case,

Set rng = Workbooks("Book2.xls").Worksheets("Sheet1").Column s("A:CV")
'100 columns

There are also clever ways to select the range dynamically, or you can use
the active selection (called Selection).

--
Bob Kilmer

"Victor" wrote in message
...
I had already tried that but it only sorts the first 3
columns at the max


-----Original Message-----
perhaps you could transpose the 6cols x 100 rows to 100

cols x 6 rows, use
the columns.sort method (or some such) to sort each

column alone, then
retranspose to 6 x 100.

--
Bob Kilmer

"Victor" wrote in

message
...
I would like to sort the 6 records in each separate row

(100 total)
ascending.
Is there a built-in function to do that.

I tried to use the macro recorder to sort the rows

manually but 100 is too
tedious, I would appreciate any hints for a killer macro..

TIA



.





All times are GMT +1. The time now is 04:41 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com