- Codice: Seleziona tutto
Sub ordinapert()
'
' ordinapert Macro
'
' Scelta rapida da tastiera: CTRL+o
'
Range("A3:C28").Select
ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("1").Sort.SortFields.Add Key:=Range("A4:A28"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="T", DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("1").Sort
.SetRange Range("A3:C28")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("H3:J28").Select
ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("1").Sort.SortFields.Add Key:=Range("H4:H28"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="T", DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("1").Sort
.SetRange Range("H3:J28")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("O3:Q28").Select
ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("1").Sort.SortFields.Add Key:=Range("O4:O28"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="T", DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("1").Sort
.SetRange Range("O3:Q28")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("V3:X28").Select
ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("1").Sort.SortFields.Add Key:=Range("V4:V28"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="T", DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("1").Sort
.SetRange Range("V3:X28")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("AC3:AE28").Select
ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("1").Sort.SortFields.Add Key:=Range("AC4:AC28"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="T", DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("1").Sort
.SetRange Range("AC3:AE28")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("AJ3:AL28").Select
ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("1").Sort.SortFields.Add Key:=Range("AJ4:AJ28"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="T", DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("1").Sort
.SetRange Range("AJ3:AL28")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A34:C59").Select
ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("1").Sort.SortFields.Add Key:=Range("A35:A59"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="T", DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("1").Sort
.SetRange Range("A34:C59")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("H34:J59").Select
ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("1").Sort.SortFields.Add Key:=Range("H35:H59"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="T", DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("1").Sort
.SetRange Range("H34:J59")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("O34:Q59").Select
ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("1").Sort.SortFields.Add Key:=Range("O35:O59"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="T", DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("1").Sort
.SetRange Range("O34:Q59")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("V34:X59").Select
ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("1").Sort.SortFields.Add Key:=Range("V35:V59"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="T", DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("1").Sort
.SetRange Range("V34:X59")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("AC34:AE59").Select
ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("1").Sort.SortFields.Add Key:=Range("AC35:AC59"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="T", DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("1").Sort
.SetRange Range("AC34:AE59")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("AJ34:AL59").Select
ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("1").Sort.SortFields.Add Key:=Range("AJ35:AJ59"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="T", DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("1").Sort
.SetRange Range("AJ34:AL59")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A3").Select
End Sub
rileggendo un post vecchio , flash consigliava di nn mettere suffissi , così ho fatto ed ho modificato la macro...
rimango in attesa di una soluzione....
grazie