ordinamento

[calippoPartecipante calippo]

Salve, ho un problema con l'ordinamento classico dei dati.

Ho tre colonne con la classifica di serie A, nella colonna A le squadre, nella B i punti e nella C la differenza reti.

Ovviamente ordino dalla B, quella dei punti, ma se due squadre sono a pari punti ordina in base all'alfabeto.

Come faccio a fargli mettere prima quella con la miglior differenza reti della colonna C?

Possibilmente con una macro.

Grazie in anticipo a tutti

[vecchio fracSenior Moderator vecchio frac Karma: 272 pts]

La strada più semplice è: hai provato a registrare una macro?

Se la tabella comincia in A1, e hai squadra, punti e differenza reti, il codice sarebbe questo, già ripulito delle schifezze del registratore:

Option Explicit


Sub sortbyDeltaGoals()

    With ActiveWorkbook.Worksheets("Foglio1").Sort
        With .SortFields
            .Clear
            .Add Key:=Range("C2:C4"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
            .Add Key:=Range("B2:B4"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
            .Add Key:=Range("A2:A4"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        End With
    
        .SetRange Range("A1:C4")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

End Sub

che in pratica ordina per differenza reti, poi per punti e infine per squadra.

[calippoPartecipante calippo]

Grazie Vecchio Frac, perfetto.

[Autore]

Articoli