[excel] ordinare colonne numericamente

[playwii]

Ciao a tutti, ho bisogno di creare una classifica per la mia scuola. speravo di poter uploadare un immagine per visualizzare meglio il problema che sorge quando devo ordinare in base ai risultati i primi in classifica

ho creato file excel con tre squadre a 4 giocatori cadauna
accanto al nome i tempi del primo e secondo giro di ogni giocatore

fatte le varie somme, escludendo il tempo peggiore ecco il totale parziale.
Il problema nasce nel poter ordinare le squadre in base al risultato più basso del totale complessivo

ovvero se io ordino 110,286,284, excel mi sposta anche i nomi inseriti nella tabella.
Immagino che serva una formula particolare o bloccare le celle di ogni squadra, ma ho fatto tanti tentativi senza successo..

se qualcuno mi da anche solo una piccola dritta ci provo.
Grazie in anticipo
Ciao

squadra tizio 50 54
caio 55 44
sempronio 23 [99]
luigino [89] 58
PARZIALI 128 156 284

squadra martino 55 55
cirino 44 55
cretino 55 [99]
ciro [89] 22
PARZIALI 154 132 286

squadra tino 33 11
eli 22 11
walt 11 [99]
toni [89] 22
PARZIALI 66 44 110

[Anthony47]

Ciao playwii, benvenuto nel forum.
Non mi e' chiarissima ne' la struttura dati ne' il problema da superare; prova ad allegare uno screenshot dei tuoi dati da cui si capiscano anche le coordinate e a rispiegare partendo da questa immagine quanto hai detto.
Per allegare uno screenshot guarda qui: viewtopic.php?f=26&t=80395#p466013

Ciao, ti aspettiamo

[wallace&gromit]

Ciao Playwii,
non ti basta segnare il rango accanto al risultato di ogni squadra?

Codice: Seleziona tutto

=SE(VAL.ERRORE(RANGO(D2;$D$1:$D$25));"";RANGO(D2;$D$1:$D$25))

Perchè immagino che le somme finali siano in una colonna apposita (ho assunto "D") e che vi siano molte celle vuote tra un totale e l'altro.
Facendo un ordina è ovvio che ti separa i "pacchetti" di dati presenti nelle colonne A, B e C.

[playwii]

Ma Grazie delle risposte!!!!

x antony: ecco l'immagine
io dovrei ordinare dal minore al maggiore il risultato finale delle squadre mantenendo inalterato la struttura della squadra


x wallace:
provato ma nell'ordinare in base ai risultati mi sballa alcune celle.

Grazie cmq dell'aiuto!!!!

[Flash30005]

Ciao PlayWii e benvenuto nel Forum

Potresti dare il riferimento colonna del totali (es. se colonna D o colonne E etc)?

ciao

[playwii]

..santa pazienza........

ecco l'immagine e grazie

[playwii]

...ps: il santa pazienza è riferito avviamente alla vostra nei miei confronti.......

[Flash30005]

Ho considerato i dati nel foglio con nome "Foglio1"
e nella cartella ci sia anche un foglio con nome "Foglio2"
altrimenti modifica questi nomi nella macro
in quanto il risultato lo avrai proprio in questo secondo foglio
Inserisci in un modulo questa macro

Codice: Seleziona tutto

Public NumC As Integer
Sub Ordina()
Set Ws1 = Worksheets("Foglio1")   '<<<<< inserisci qui il vero nome foglio con i dati
Set Ws2 = Worksheets("Foglio2")  '<<<<< inserisci qui il vero nome foglio dove vorresti l'output dei dati ordinati
Ws2.Cells.ClearContents

Dim VT(10) As Integer
    Ws1.Range("A1:F7").Copy Destination:=Ws2.Range("A1")
    Ws1.Columns("A:F").Copy
    Ws2.Columns("A:F").PasteSpecial Paste:=xlPasteFormats
    'Application.CutCopyMode = False
UR1 = Ws1.Range("A" & Rows.Count).End(xlUp).Row
NumC = Ws1.Range("A" & UR1).Value
Ws1.Select
For NNC = 1 To NumC
   VT(NNC) = Ws1.Range("F" & NNC + (NNC - 1) * 5 + 11).Value
   Ws1.Range("Z" & NNC).Value = VT(NNC)
   Ws1.Range("AA" & NNC).Value = Ws1.Range("B" & NNC + (NNC - 1) * 5 + 7).Value
Next NNC
    Columns("Z:AA").Sort Key1:=Range("Z1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
         RR2 = 1
 For NNC = 1 To NumC
 TC = Ws1.Range("AA" & NNC).Value
    For RR1 = 1 To NumC
       If Ws1.Range("B" & RR1 + (RR1 - 1) * 5 + 7).Value = TC Then
           Ws1.Range("A" & RR1 + (RR1 - 1) * 5 + 7 & ":F" & RR1 + (RR1 - 1) * 5 + 11).Copy Destination:=Ws2.Range("A" & RR2 + (RR2 - 1) * 5 + 7)
            RR2 = RR2 + 1
            Exit For
       End If
    Next RR1
 Next NNC
Ws1.Columns("Z:AA").ClearContents
Ws2.Select
Range("A1").Select
'NumeraCIrcolo   '<<<<<<<<<<<< scommentare questa riga se vuoi numerare con ordine crescente i circoli
End Sub

Sub NumeraCIrcolo()
Set Ws2 = Worksheets("Foglio2")
For NNC = 1 To NumC
Ws2.Range("A" & NNC + (NNC - 1) * 5 + 7).Value = NNC
Next NNC
End Sub


Poi aggiungi un pulsante o forma nel Foglio1 assegnando la macro "Ordina"

Allego per sicurezza anche Questo File

Fai sapere
Ciao