- Codice: Seleziona tutto
Sub ORDINA()
ActiveWorkbook.Worksheets("ELENCO PRINCIPALE").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("ELENCO PRINCIPALE").Sort.SortFields.Add Key:=Range _
("E3:E62"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("ELENCO PRINCIPALE").Sort.SortFields.Add Key:=Range _
("G3:G62"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("ELENCO PRINCIPALE").Sort
.SetRange Range("E3:N62")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Call ORDINA2
End Sub
Sub ORDINA2 ()
ActiveWorkbook.Worksheets("dati").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("dati ").Sort.SortFields.Add Key:= _
Range("A3:A62"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("dati ").Sort.SortFields.Add Key:= _
Range("D3:D62"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("dati ").Sort
.SetRange Range("A3:BC62")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Call ORDINA2
End Sub
Sub ORDINA3 ()
ActiveWorkbook.Worksheets("datieff").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("datieff ").Sort.SortFields.Add Key:= _
Range("A3:A62"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("datieff ").Sort.SortFields.Add Key:= _
Range("D3:D62"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("datieff").Sort
.SetRange Range("A3:BC62")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
In pratica tramite il foglio “ELENCO PRINCIPALE” inserendo altri nomi vorrei che mi ordina tutti e tre i fogli con tutti i dati.
Spero di essere stato chiaro e vi auguro una buona serata.