Función: IB·BuscarFC: Búsquedas por intersección de FILA y COLUMNA. Versión simplificada de Índice y Coincidir

Código:

Function IB·BuscarFC(Rango_Busqueda As Range, Valor_Fila As Variant, Rango_Fila As Range, Valor_Columna As Variant, Rango_Columna As Range) As Variant

Dim f As Variant, c As Variant

f = Application.WorksheetFunction.Match(Valor_Fila, Rango_Fila, 0)

c = Application.WorksheetFunction.Match(Valor_Columna, Rango_Columna, 0)

IB·BuscarFC = Application.WorksheetFunction.Index(Rango_Busqueda, f, c)

End Function