Uso de la función Index and Match en Excel VBA VLookup

Hay algunos problemas con este código que no concuerdan con su descripción.

• LookupRange es una matriz variante. Cuando pruebo esto, plantea un 1004 Method 'Range' of object '_Global' failed error en la asignación a indexVar.
• Si yo Dim LookupRange As String según sus comentarios, también recibo un Type Mismatch error.

Como LookupRange debe ser un rango, lo declaro como un rango, y uso el Set palabra clave en la instrucción de asignación.

Set lookupRange = Range("$M$10:$M" & ActiveCell.Row)

• Posible error tipográfico en su asignación a lookupRange. En su fórmula, originalmente usa $M$1, pero en la función que usas $M$10.

Si comienza este rango en $M$10e intente evaluar la fórmula en cualquier celda entre las filas 1-9, obtendrá un error.

En una nota relacionada, si no hay valores numéricos en el capítulo respecto a la lookupRange, esto devolverá un error, por ejemplo, poniendo Current() en la celda M2 hace un rango de búsqueda de M1:M2, donde no tengo datos numéricos.

No estoy seguro de cómo quiere manejar esto, pero mi respuesta incluye una forma de evitar ese error. Puede modificar según sea necesario. Finalmente:

• Confiando en ActiveCell.Row parece una mala idea, ya que esta fórmula puede volver a calcular con resultados no deseados.

En su lugar, haga de este un argumento requerido para la fórmula, que luego puede llamar desde la hoja de trabajo como: =Current(Row()).

Poniéndolo todo junto, creo que esto debería funcionar, y proporciono un ejemplo/escape para el error de coincidencia no encontrada. :

Public Function Current(r As Long)
    Const bigNumber As Double = 9.99999999999999E+307
    Dim wsInfo As Worksheet: Set wsInfo = Worksheets("Info")
    Dim lookupRange As Range
    Dim indexVar As Long
    Dim myVal As Variant

    Set lookupRange = Range("$M$1:$M" & r)
    If Not Application.WorksheetFunction.Sum(lookupRange) = 0 Then
        indexVar = Application.Index(lookupRange, Application.Match(bigNumber, lookupRange))
        myVal = Application.WorksheetFunction.VLookup(indexVar, wsInfo.Range("Data"), 4)
    Else:
        myVal = "No numbers found in: " & lookupRange.Address
    End If
    Current = myVal

End Function

ACTUALIZAR DESDE COMENTARIOS

Puede añadir Application.Volatileaquí antes de las declaraciones de variables. Esto debería obligar a volver a calcular:

siempre que se produzca un cálculo en cualquier celda de la hoja de cálculo.

Sin embargo, esto no forzará el cálculo cuando los valores en otras hojas de trabajo (por ejemplo, su Worksheets("Info") es otra hoja de trabajo) cambio.

Para forzar el recálculo cada vez que activa la hoja que contiene el =Current(Row()) función, podría poner esto en el módulo de código de la hoja de trabajo:

Private Sub Worksheet_Activate()
    Me.Calculate
End Sub

Esto es probablemente lo más cerca que puede estar: de replicar el nativo VLOOKUP funcionalidad sin utilizar realmente un VLOOKUP fórmula.

Notas adicionales:

Favoreciendo las variables correctamente/fuertemente tipadas, declaro indexVar as Long y crea una variable de doble precisión para 9.99999999999999E+307 (es más fácil trabajar de esta manera). También creo una variable de objeto de hoja de trabajo, nuevamente, me resulta más fácil trabajar con ellos.