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 |
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. |
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 |
All times are GMT +1. The time now is 03:39 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com