Ordenar por varias llaves

hola, Oswaldo !

... quiero ordenar una hoja de calculo por titulos pero con varias columnas
la opcion de ordenar solo me permite tres llaves... si se puede por medio de codigo aumentar este numero de opciones...

puedes ordenar el rango completo por el menu si la ordenacion la llevas a cabo de derecha a izquierda (3 en 3)
o por codigo (haciendo esto mismo) con una macro +/- como la siguente:

Sub OrdenarVariasColumnas()
Dim Col As Integer
With ActiveCell.CurrentRegion
For Col = .Columns.Count To 1 Step -3
Select Case Col
Case 1: .Sort _
Key1:=.Columns(Col), Order1:=xlAscending
Case 2: .Sort _
Key1:=.Columns(Col - 1), Order1:=xlAscending, _
Key2:=.Columns(Col), Order2:=xlAscending
Case Else: .Sort _
Key1:=.Columns(Col - 2), Order1:=xlAscending, _
Key2:=.Columns(Col - 1), Order2:=xlAscending, _
Key3:=.Columns(Col), Order3:=xlAscending
End Select
Next
End With
End Sub

saludos,
hector.