Foro Excel

Hola Amigos !
Esposible q si yo escribo por ejemplo: 17 , alguna funcion me alerte del numero alrevez es decir 71.

que si una suma me da 17 y si otra me resulta el alrevez o sea 71 me arroje un eroor !

Es posible hacerlo con una funcion ?

Gracias por la ayuda ! Saludos

Hola!
Como dice KL, hay una función en VB ('00 en adelante), pero devuelve texto, es así­ como se hizo la función de excelciones ALREVES.

Function ALREVES(Valor) As String
ALREVES = StrReverse(Valor)
End Function

Atte.

Hola chicos,

Gerson Pineda-El Catracho";p="30687 escribió:Hola Amigos !
Esposible q si yo escribo por ejemplo: 17 , alguna funcion me alerte del numero alrevez es decir 71.

Esta bien esto se soluciona mediante StrReverse (tal como indica Adrian), pero ¿y que pasa si toca 17,2456? ¿Como se supone que se haria la trasposicion?

Así­?
Function ALREVES(Valor) As String
If VarType(Valor) = vbDouble Then
Valor = CStr(Valor)
End If
ALREVES = StrReverse(Valor)
End Function

Si no quiere la coma y la cosa sigue...
Function ALREVES(Valor) As String
If VarType(Valor) = vbDouble Then
Valor = CStr(Replace(Valor, ",", ""))
End If
ALREVES = StrReverse(Valor)
End Function

Bueno a eso me referia. A ver que dice el OP

Yo casi haria algo asi:

Código: Seleccionar todo

Function ALREVES(ByVal Valor As Double) As Double
    If IsNumeric(Valor) Then ALREVES = StrReverse(Valor)
End Function

Pero si no es un número? Creo que le debemos darle la opción de tomar otros valores.
SALU2.xls
KL, aprovecho la oportunidad y te comento una curiosidad, una vez realizada la función en VBA, vas a la hoja Excel para utilizarla y escribes su nombre en mayúsculas desde ese momento y en adelante, escribas como escribas la función convocandola, se pondrá a mayúsculas, es decir la primera ves que la introduces determina como se comportará en adelante. te fijaste en eso?

Hola Adrian,

Adrian";p="30751 escribió:Pero si no es un número? Creo que le debemos darle la opción de tomar otros valores.

Pues yo tenia entendido que se buscaba una funcion para trabajar con valores numericos. Bueno, a ver si me equivoco y Gerson nos aclara el tema.

Adrian";p="30751 escribió:KL, aprovecho la oportunidad y te comento una curiosidad, una vez realizada la función en VBA, vas a la hoja Excel para utilizarla y escribes su nombre en mayúsculas desde ese momento y en adelante, escribas como escribas la función convocandola, se pondrá a mayúsculas, es decir la primera ves que la introduces determina como se comportará en adelante. te fijaste en eso?

Pues si, es un tema conocido aunque yo desconozco si tiene arreglo ni el por que de este comportamiento tan raro.