Io ho registrato la seguente macro.
Come si modifica per renderla attivabile su tutti i fogli? (non intendo contemporaneamente, ma solo che funziona sia sul foglio 1 che 2 che 3 etc.)
- Codice: Seleziona tutto
Sub Ordina()
'
' Ordina Macro
'
'
ActiveWorkbook.Worksheets("9").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("9").Sort.SortFields.Add Key:=Range("A8:A1290"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("9").Sort
.SetRange Range("A7:G1290")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Grazie