Funcion log en vbe

[augustos]

Estimados todos:
Soy nuevo en este foro antes que nada saludos.

He tratado de crear una función en vbe para calcular la variación anual promedio de una serie temporal.
El problema que tengo que cuando quiero calcular el logaritmo de la serie ValorY me marca un error (Rojo). Si quito este calculo del logaritmo la función anda pero necesito que cada valor del rango ValorY sea transformado al logaritmo.
Alguna idea que pueda ayudar?

Function VAP(ValorY, ValorX)
VAP = worksheetfunction.Round((-1) * ((1 - (10 ^ Excel.worksheetfunction.Slope(excel.worksheetfunction.log(ValorY), ValorX))) * 100), 2)
End Function

Bueno muchas gracias

[mrocf]

Hola! augustos. Es de suponer que -por ejemplo- estás ingresando tu fórmula del siguiente modo:

= VAP( B2:B10; A2:A10)

Si tal es el caso, te sugiero que la re-elabores del siguiente modo:

Código:

Function VAP(ValorY, ValorX)
VAP = Evaluate("round(100 * (10^slope( log(" & _
  ValorY.Address & "), " & ValorX.Address & " ) - 1), 2)")
End Function 

Saludos, Cacho.

[augustos]

No soy programador solo epidemiologo y no entendí nada de lo que modificaste Cacho pero funciona de maravillas.
Muchisimas Gracias.
Augusto

[mrocf]

Me alegra que te haya sido útil: hasta la próxima.
Saludos, Cacho.

[augustos]

Cacho te molesto una vez mas. Tengo problemas con el uso de nombres como argumento de la funcion. Pasa algo extrañisimo. Cuando si se modifica alguna celda en la hoja donde estan las formulas aparece un error #¡num en donde esta la funcion vap. Ahora si voy a donde estan los datos (otra hoja) y apreto F9 se actualiza y devuelve los valores, no se actualiza si apreto F9 en la misma hoja donde estan las formulas debo seleccionar la Hoja con los datos y F9 (rarísimo). Alguna idea porque este comportamiento de la función vap?

[mrocf]

Probablemente ello ocurra pues los datos se encuentran en una hoja diferente de aquella en la que estás utilizando la fórmula personalizada.

En tal caso, reemplaza las dos ocurrencias de
Address

por:
Address(External:=True)

Saludos, Cacho.

[augustos]

Cacho sos un Genio. Funciona excelente.
Gracias Nuevamente