Sorting multiples sheets

[andreascostas]

I have multiple sheets with student score data in cells C1:AP9
No headers
sort from left to right using row 9.
Largest to smallest
I tried using a macro with no luck. Any ideas or a VBA???
Thanks

 

[DanteAmor]

I have multiple sheets with student score data in cells C1:AP9
No headers
sort from left to right using row 9.
Largest to smallest
I tried using a macro with no luck. Any ideas or a VBA???
Thanks

Use this, the macro temporarily uses the cells "C16:AP24" to sort the data.
Try a sheet and tell me, if it's what you need, we do it for all the sheets.

Dim vals As New Collection
Dim cols As New Collection


Sub ordenar()
    Application.ScreenUpdating = False
    For j = Columns("C").Column To Columns("AP").Column
        Call agregar(Cells(9, j), j)
    Next
    '
    For i = 1 To cols.Count
        c = cols(i)
        Range(Cells(1, c), Cells(9, c)).Copy Cells(16, i + 2)
    Next
    
    Range(Cells(16, "C"), Cells(24, "AP")).Copy Range("C1")
    Range(Cells(16, "C"), Cells(24, "AP")).ClearContents
    
    Set vals = Nothing
    Set cols = Nothing
End Sub


Sub agregar(valor, col)
    For i = 1 To vals.Count
        If valor > vals(i) Then
            vals.Add valor, Before:=i
            cols.Add col, Before:=i
            Exit Sub
        End If
    Next
    vals.Add valor
    cols.Add col
End Sub

 

[andreascostas]

Yes, it worked!!!

 

[DanteAmor]

Yes, it worked!!!

I'm glad to help you. Thanks for the feedback.