Prueba con esta funcion

Function Closest(val As Double, rng As Range) As Double
    Dim y As Double, x As Double, n As Double
    Application. Volatile
    y = Application.WorksheetFunction.Max(rng)
    For Each celda In rng
            x = Abs(val - celda. Value)
            If y >= x Then
                y = x
                n = celda. Value
            End If
    Next celda
    Closest = n
End Function

Oye, Grillo, de verdad, muchas gracias por el trabajo impagable que realizas en este foro. No sólo porque atiendes lo más rápido que puedes, sino porque ademas tus aportaciones son siempre válidas. Y todo de forma desinteresada!

Respecto al tema que nos ocupa... Yo es que le tengo alergia al VBA, y trato de evitarlo siempre que puedo, aunque en este caso parece que no me libraré. El caso es que al introducir la función en un módulo y aplicarla, me sigue encontrando el valor mas alto INFERIOR al valor buscado, pero yo necesito el valor más alto SUPERIOR!.

Es decir, en el siguiente caso necesitaría que la función me diera 450.

GRACIAS NUEVAMENTE!

Prueba con esta modificación

Function Closest(val As Double, rng As Range) As Double
    Dim y As Double, x As Double, n As Double, ante As Double
    Application. Volatile
    y = Application.WorksheetFunction.Max(rng)
    For Each celda In rng
            If val = celda. Value Then
                Closest = celda. Value
                Exit Function
            End If
            x = val - celda. Value
            If x < 0 Then
                If Abs(val - celda. Value) > val - ante Then
                    Closest = celda. Value
                    Exit Function
                End If
            End If
            If y >= x Then
                y = x
                n = celda. Value
            End If
            ante = celda. Value
    Next celda
    Closest = n
End Function

Hiola Carlos:

Te mando una fórmula que podés usarla como el primer argumento de la función BUSCARV. 

Suponiendo que tu lista de valores está en la columna B y tu número buscado están D21.

=INDICE(B:B;COINCIDIR(D21;B:B;1)+1)

Saldría la cosa así:

=BUSCARV(INDICE(B:B;COINCIDIR(D21;B:B;1)+1);BD;2;falso)

Atte.   Willan

Willian, estupenda solución la que has sugerido!.

Gracias!

Buenos días,

Respecto a la función Buscarv quisiera consultar, existe alguna forma de que cuando no encuentra la coincidencia exacta, devuelva valor 0?

Muchas gracias

Miguel M

=SI(ESERROR(BUSCARV(E6;A:B;2;0));0;BUSCARV(E6;A:B;2;0))

Atte.   Willan

¿Que sucede si hay mas de un valor que coincide con la busqueda?

He leido el foro y veo q todos saben mucho del tema, la pregunta les parecera estupida , pero principalmente me gustaria saber  q es la funcion buscar v , y para q sirve.

Les agradeceria su ayuda

Jeisson

Hola Jeisson:

Hola tengo un problemon y nose como solucionarlo.. Paso a explicar

Tengo una tabla en una hoja q posee una lista de equipos y su "disponibilidad" por mes.

Lista de equipos en columna C, y en colum D hasta la O la D los valores q registra cada equipo en ese mes.

                    enero          febrero         marzo       etc

71698         0,95                0,97             0,99

71699           0,87              0,79               ,091

71700          0,90                0,91              ,098

71701          0,99                  1                      1

Lo q yo intento hacer es una hoja donde: Al especificar en una celda un numero de equipo y el ems.. Me devuelva la disponibilidad de ese mes.

Ojala alguien pueda orientarme..

Desde ya mcuhas gracias..

Saludos

Hola xnarutox:

Lo ideal hubiera sido que iniciés un nuevo post, para tu pregunta... En fin...

Vamos a suponer que tus datos están en el rango c1:o25

En la celda a1 ponés el nombre de cualquier mes

En la celda a2 ponés cualquier código

En la celda a4 ponés la siguiente fórmula:

=INDICE(C:O;COINCIDIR(A2;C:C;0);COINCIDIR(A1;C1:O1;0))