Sound Card Driver Updating: [Solved] alphanumeric sort

alphanumeric sort

I have a column of alphanumeric data (over 3000 records):
11-6140-203-14-1
11-6140-203-23&P
11-6605-200-12
43-0001-34
43-0139
5-301-4
5-4320-259-12
5-4330-217-12
55-1520-210-BD
55-1520-210-CL
5-5430-210-12
5-6115-332-14

I have used the Substitute command to replace the "-" with an alternate character.
(I tried "!" and "0") to no avail. I need the data to sort out as follows:
43-0001-34
43-0139
5-301-4
5-4320-259-12
5-4330-217-12
5-5430-210-12
5-6115-332-14
55-1520-210-BD
55-1520-210-CL
11-6140-203-14-1
11-6140-203-23&P
11-6605-200-12
If this isn't possible in Excel, can it be done in Access?

Any help would be appriciated.

Anwsers to the Problem alphanumeric sort

Download Error Fixer (Free)

Try this, but on a copy, not the original, as the results will overwrite your original data.
Again, this assumes your data is as on your spreadsheet: No header rows, and nothing else of value on the worksheet. This latter is important as were are using the UsedRange property to get the data to sort; so anything else on the worksheet will also
get moved around.

==========================================
Option Explicit
Sub SortSpecial()
     Dim SortingWS As Worksheet
     Dim Aws As Worksheet
     Dim rg As Range, rg2 As Range
     Dim LastCol As Long, LastRow As Long
     Dim i As Long

Application.ScreenUpdating = False
Set rg = ActiveSheet.UsedRange
LastCol = rg.SpecialCells(xlCellTypeLastCell).Column
LastRow = rg.SpecialCells(xlCellTypeLastCell).Row
Set SortingWS = ThisWorkbook.Worksheets.Add(Type:=xlWorksheet)
rg.Copy Destination:=SortingWS.Range("A1")
Set rg2 = SortingWS.Range("B1", Cells(LastRow, "B"))
rg2.TextToColumns Destination:=Cells(1, LastCol + 1), DataType:=xlDelimited, _
         TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
         Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
         :="-", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
         1)), TrailingMinusNumbers:=True

With SortingWS.Sort
     With .SortFields
         .Clear
       For i = LastCol + 1 To SortingWS.UsedRange.Columns.Count
         .Add Key:=Range(Cells(1, i), Cells(SortingWS.UsedRange.Rows.Count, i)) _
             , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
       Next i
     End With

    .SetRange SortingWS.UsedRange
     .Header = xlNo
     .MatchCase = False
     .Orientation = xlTopToBottom
     .SortMethod = xlPinYin
     .Apply
End With

Range("A1", Cells(LastRow, LastCol)).Copy Destination:=rg
With rg.Worksheet.Cells
    .EntireColumn.AutoFit
    .EntireRow.AutoFit
End With

With Application
     .DisplayAlerts = False
         SortingWS.Delete
     .DisplayAlerts = True
     .ScreenUpdating = True
End With
End Sub
=======================================================

Use the System File Checker tool to repair corrupted or missing system files:

Click Start.
Type cmd, and then press CTRL+SHIFT+ENTER to open the elevated command prompt (I.e. Command prompt with administrative rights).
The User Account Control window should appear, be sure that the action it exhibits is correct, and then press the Continue button.
Type or copy paste the below command line into it without quotes:
"Sfc /scannow"