Imminenti

Hai un problema con Excel?

Nuova discussione

Imminenti
di Alasque data: 14/12/2015 14:55:30
Ciao a tutti,
ho già una macro “Ricalcola”che mi definisce i ritardi per ogni numero e che posto in calce ma ho bisogno che quella macro, oltre a determinare i ritardi mi dia una classifica di convenienza in base all’imminenza, teorica, della sortita di ogni singolo numero. Dovrebbe dunque ricercare, fermo restando i parametri della macro RICALCOLA le distanze tra sortite di ogni singolo numero e poi dovrebbe propormi una classifica dei più possibili(Imminenti).
Grazie anticipate

Sub Ricalcola()
'
' Ricalcola Macro
' Ricalcola il Sistema
'

'
Sheets("Sistema").Select
Range("A1:J10").Select
Selection.ClearContents
Sheets("Frequenze").Select
Application.Run "S8.xlsm!rassettamelo"
Sheets("Ritardi").Select
Range("A5").Select
ActiveWorkbook.Worksheets("Ritardi").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Ritardi").Sort.SortFields.Add Key:=Range("A5"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Ritardi").Sort
.SetRange Range("A5:Q94")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Save
Sheets("Archivio").Select
Application.Run "S8.xlsm!ritardatari"
Sheets("Ritardi").Select
Range("G5").Select
ActiveWorkbook.Worksheets("Ritardi").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Ritardi").Sort.SortFields.Add Key:=Range("G5"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Ritardi").Sort
.SetRange Range("A5:Q94")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A5:A11").Select
Selection.Copy
Sheets("Sistema").Select
Range("A4").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Sistema").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sistema").Sort.SortFields.Add Key:=Range("A4"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sistema").Sort
.SetRange Range("A4:A10")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Selection.Copy
Range("D1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
ActiveWorkbook.Save
End Sub

Vuoi Approfondire?