Me puedes decir que falta a esta fórmula

Buenas, sabes tengo la idea de hacer lo siguiente, nada se de vb pero he visto varias fórmulas e imagine que podría servir algo así, y adivina que no me sirve :)
Function AFP(NUMERO As Double) As String
Dim LETRAS As String
NUMERO = Int(NUMERO)
NUMEROS(1) = "PROVIDA"
NUMEROS(2) = "HABITAT"
NUMEROS(3) = "PLANVITAL"
NUMEROS(4) = "CUPRUM"
NUMEROS(5) = "ING CAPITAL"
NUMEROS(6) = "OTROS"
NUMEROS(7) = "INP"
NUMEROS(8) = "JUBILADO"
AFP = LETRAS
End Function
Lo que necesito es lo siguiente Por Ejem.:
En la Celda A1 va el Nº 1 y con una fórmula como =AFP(A1) debiera de quedar en la celda A2 la Palabra PRÓVIDA.
Me puedes ayudar, con ello... Te lo agradecería Muchísimo
Saludos
Lorean

1 respuesta

Respuesta
1
Lo que sucede es que las funcioanes devueleven un valor, en tu caso es Letras, pero a esa variable nole estas asociando un valor.
La función quedaría de la siguiente manera:
Function AFP(numero As Double) As String
Dim LETRAS As String
numero= Int(numero) 
Select Case Numero
case 1
letras = "PROVIDA"
case 2
letras= "HABITAT"
case 3
letras = "PLANVITAL"
case 4
letras= "CUPRUM"
case 5
letras = "ING CAPITAL"
case 6
letras = "OTROS"
case 7
letras = "INP"
case 8
letras = "JUBILADO"
end select
AFP = letras
End Function

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas