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
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 de Roberto Alvarado
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
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
