Ordine dell'ordine alfabetico

[realkaranka]

Quello che vorrei realizzare è una classifica che si mette in ordine alfabetico premendo un solo pulsante. Quanto descritto già funziona perfettamente con questa macro:

Codice: Seleziona tutto

Sub Ordina()
    Columns("D:D").Select
    Selection.Cut
    Columns("C:C").Select
    Selection.Insert Shift:=xlToRight
    Range("C3:K12").Select
    Selection.Sort Key1:=Range("C3"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Columns("C:C").Select
    Selection.Cut
    Columns("E:E").Select
    Range("E2").Activate
    Selection.Insert Shift:=xlToRight
    Range("E1:H1").Select
End Sub


Adesso qll che vorrei è che quando due squadre sono a pari punti, quella ad essere un gradino più alto è la squadra ad aver fatto più goal. Invece con qst macro qnd 2 squadre sn a pari punti, viene applicato un semplice ordine alfabetico. Premettendo che la colonna dei punti è la D e quella dei goal fatti e la H, dovrebbe avvenire qualcosa del tipo:
SE la cella sopra mi me o sotto di me sono uguali a me allora vedi la colonna H e metti prima quella più grande....

Si può fare????????

[/img][/code]

[Anthony47]

Quello che chiedi lo puoi fare eseguendo l’ ordinamento non in base a 1 sola chiave (come fa la macro) ma utilizzandone 2: i punti (prima chiave) e i gol fatti (seconda chiave).
Vedo che prima e dopo l’ ordinamento sposti la colonna dei punti (D) in posizione C, ripristinando successivamente in D; e’ tutto lavoro inutile, perche’ l’ ordinamento lo puoi fare sulla/e colonna/e che scegli dell’ insieme selezionato.
Una tale macro la puoi registrare: Menu /Strumenti /Macro /Registra nuova macro; esegui con calma il comando Ordina; fermi la macro (vedi l’ help on line alla voce “Creare una macro”); poi associ questa nuova macro al pulsante che hai gia’.

Se serve altro, fatti sentire.
Ciao.

[realkaranka]

Come si inserisce una seconda chiave (x i goal fatti)?

Lo spostamento delle colonne prima e dopo l'ordine alfabetico è giustificato dal fatto che i punti si trovano una colonna dopo le squadre. Per cui, dato che l'ordine deve essere decrescente per i punti ho pensato fosse necessario spostare la colonna relativa ai punti, ordinare e rimetterla dove era prima... Esiste un altro modo per farlo senza spostamenti?

Grazie mille

[Anthony47]

Per l’ ordinamento: selezioni il range completo (tutte le righe e tutte le colonne della tabella), poi Menu /Dati /Ordina…
Qui potrai impostare fino a 3 chiavi di ordinamento, in qualsiasi colonna si trovino.

Ciao.

[realkaranka]

Funziona

Grazie mille