Hola a todos.

Tengo una hoja de excel en la cual voy apuntando las puntuaciones que un grupo de amigos y yo sacamos cada semana en la bolera. Así, en la columna B tengo los puntos de cada uno, en cada fila, en la columna C tengo los de la semana siguiente, y asi sucesivamente. Me gustaría crear una columna a parte, en la cual situar los rankings de cada semana, es decir, si el jugador X ha sacado 125 puntos, y el jugador Y ha sacado 120, pues que los ordene: en primera posicion, X, en segunda posición Y. No me sirve que ordene solo las puntuaciones, porque eso ya lo sé hacer, sino que quiero que ordene los nombres sin las puntuaciones, vamos, como si fuera una especie de podium.

¿Alguien me puede ayudar?

Para hacer eso tienes q hacer una columna q te sume las puntuaciones totales q lleva cada jugador , crear una macro y hacer lo siguiente:

Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 30/11/2004 por DIO
'

'
    Range("A2:A6,G2:G6").Select     ' aqui seleccionas las columnas de jugadores y puntacion final
    Selection.Copy                  ' copias los datos
    Range("A12").Select             ' y los pegas aqui mismo
    ActiveSheet.Paste               '                      o donde quieras
    Range("A12:B16").Select         ' aqui ordenas los resulatados junto con
    Range("B12").Activate           '            los jugadores
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range("B12"), Order1:=xlDescending, Header:=xlGuess _
        , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("A12:A16").Select         ' esto copia el orden de los jugadores con
    Selection.Copy                  ' mayor puntuacion
    Range("F12").Select             ' lo pegas aqui mismo o donde quieras
    ActiveSheet.Paste
    Range("A12:B16").Select         ' esto borra los datos auxiliares
    Application.CutCopyMode = False ' que no necesitas
    Selection.ClearContents
    Range("A1").Select
End Sub