Macro buscar y ordenar valores máximos de columnas

[MIGUELANGELCZ]

Buenos días

Mi nombre en Miguel Angel Canchala y les solicito amablemente colaboración con una macro para buscar y ordenar valores máximos de varias columnas. Adjunto envío archivo en excel con unos valores de ejemplo y los resultados que deseo obtener.

Muchas gracias por su ayuda.

Att. Miguel Angel C.

DATOS PARA MACRO.zip

[Antoni]

Parece que esto funciona:

Sub Máximos()


Dim Columna, Fila, x, y

Columna = 11

Fila = 2

For y = 1 To 7 Step 3

   Columna = Columna + 1

   Fila = 2

   For x = 2 To 23 Step 7

      Fila = Fila + 1

      Select Case y

         Case 1: Cells(Fila, Columna) = Evaluate("=MAX(A" & x & ":C" & x + 6 & ")")

         Case 4: Cells(Fila, Columna) = Evaluate("=MAX(D" & x & ":F" & x + 6 & ")")

         Case 7: Cells(Fila, Columna) = Evaluate("=MAX(G" & x & ":I" & x + 6 & ")")

      End Select

   Next

Next


End Sub



[/CODE]