Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sorting - VBA
Hi,
I found the following via Google -- Sub SortColumn(strSheetName As String, strColumnLetter As String) Dim strColumnRange As String Dim rngCurrentCell As Range Dim rngNextCell As Range strColumnRange = strColumnLetter & "1" Worksheets(strSheetName).Range(strColumnRange).Sor t _ Key1:=Worksheets(strSheetName).Range(strColumnRang e) Set rngCurrentCell = Worksheets(strSheetName).Range(strColumnRange) End Sub -- This sorts a column perfectly. But the problem is, I need to sort cells which contain first a word then a number. This only sorts the word. If I change that to two coluimns, can the above Sort routine be changed so it sorts both? Thanks - Kirk |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sorting - VBA
You can add the next column as a secondary search
Sub SortRange1() Worksheets("Sheet1").Range("A1:C20").Sort _ Key1:=Worksheets("Sheet1").Range("A1"), _ Key2:=Worksheets("Sheet1").Range("B1") End Sub You'll need to put your numbers in the second column. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sorting - VBA
On 5 Mar 2007 21:26:11 -0800, "Greg Glynn"
wrote: You can add the next column as a secondary search Sub SortRange1() Worksheets("Sheet1").Range("A1:C20").Sort _ Key1:=Worksheets("Sheet1").Range("A1"), _ Key2:=Worksheets("Sheet1").Range("B1") End Sub You'll need to put your numbers in the second column. Thanks Greg, it worked FANTASTICALLY! Cheers - Kirk |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Sorting Values Without Sorting Formulas | Excel Discussion (Misc queries) | |||
Automatic sorting (giving max and min) based on custom sorting lis | Excel Worksheet Functions | |||
Sorting VLookup vs Sorting SumProduct | Excel Discussion (Misc queries) | |||
Sorting: Sorting by the First Character | Excel Discussion (Misc queries) | |||
Sorting ListBox results or transposing ListBox values to other cells for sorting | Excel Programming |