LARGE Function usando una Selección de datos

¿Alguien sabe cómo ha de escribirse el código para usar la función "Large" con una selección de un rango de celdas previamente establecido, y dentro de un bucle?.

Pensé que sería algo así: MiVariable= Selection.Application.Large(i)

Siendo i:

-1 el Mayor valor del rango

-2 el 2º Mayor valor del rango

-3 el 3er Mayor valor del rango

ETC

2 Respuestas

Respuesta
1

Para el mayor valor de la selección actual:

MiVariable = Application.WorksheetFunction.Large(Selection, 1)

Para el 2º y 3º, habría que cambiar el 1 por 2 y 3. Obviamente es posible sustituir ese número por una variable.

Saludos_

Respuesta
2

H o l a  : Prueba el siguiente bucle. 

Nota: El rango de celdas seleccionadas deberá contener números. De lo contrario te enviará un error.

Sub Macro1()
'Por.Dante Amor
    For i = 1 To Selection.Count    'repite el ciclo hasta el número de celdas seleccionadas
        x = WorksheetFunction.Large(Selection, i)
        MsgBox "El " & i & "° Mayor valor del rango es: " & x
    Next
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas