Creé una función VBA:
Function LOJA(x As String)
Dim a As Integer
Dim f As String
Dim f2 As String
Dim f3 As String
a = InStr(1, x, "-")
f = Right(x, Len(x) - a)
a = InStr(1, f, "-")
f2 = Right(f, Len(f) - a)
a = InStr(1, f2, "-")
f3 = Left(f2, a - 2)
LOJA = f3
End Function
Y estaba funcionando exactamente como se suponía, incluso ejecuté la función en todas las líneas de 300k que necesitaba.
Pero antes del almuerzo, guardé Excel y lo cerré, y cuando regresé, la función me sigue dando este error, funciones más pequeñas como también dan el mismo error como:
Function Center(x As String)
Dim a As Integer
Dim f As String
a = InStr(1, x, "-")
f = Right(x, Len(x) - a)
Center = f
End Function
¿Alguna idea de lo que pasó? ¿Qué se puede hacer para solucionar este problema?
Gracias por adelantado.
microsoft-excel
worksheet-function
vba
Pedro Alvarez
fuente
fuente