invertir un texto

Vas a tener que utilizar código.

Considera la siguiente función:

Function Invertir(texto As String)
Dim x As String, N As Long, j as long
N = Len(texto)
For j = 1 To N
x = Mid(texto, j, 1) & x
Next j
Invertir = x
End Function

Para implementarla, debes abrir el archivo donde la vas a utilizar. Haces
clic en "Herramientas" - "Macro" - "Editor de Visual Basic", y en la ventana
que aparezca, pulsas clic en el menú "Insertar" y luego en "Módulo". Por
último, pegas lo anterior, y cierras la ventana del Editor de Visual Basic.

Luego, para utilizarla, en alguna celda escribes:

=Invertir(A1)

(suponiendo que en A1 se encuentra el texto que deseas invertir), y es todo,
la función te devolverá el texto al revés.

Nota:
Para que no tengas problemas en el futuro, revisa la configuración de
seguridad de tu Excel: Haz clic en "Herramientas" - "Macro" - "Seguridad", y
selecciona "Medio".

Saludos.



"Peter Hiovany Fonseca Buitrago" escribió:

Agradeciendo de antemano sy ayuda.
Necesito invertir un texto que tengo en una celda, si el texto es (pedro),
necesito que en la otra celda sea (ordep). Gracias.

hola, chicos !

la version 6 de vba (excel 2000 en adelante) trae integrada una funcion para invertir textos...

Function Invierte(Texto As String) As String
Invierte = StrReverse(Texto)
End Function

saludos,
hector.

Peter Hiovany Fonseca Buitrago" escribio en el mensaje ...
Necesito invertir un texto que tengo en una celda, si el texto es (pedro), necesito que en la otra celda sea (ordep).

David escribio en el mensaje ...
Vas a tener que utilizar codigo.
Considera la siguiente funcion:
Function Invertir(texto As String)
Dim x As String, N As Long, j as long
N = Len(texto)
For j = 1 To N
x = Mid(texto, j, 1) & x
Next j
Invertir = x
End Function

Para implementarla, debes abrir el archivo donde la vas a utilizar.
Haces clic en "Herramientas" - "Macro" - "Editor de Visual Basic", y en la ventana que aparezca
pulsas clic en el menu "Insertar" y luego en "Modulo".
Por ultimo, pegas lo anterior, y cierras la ventana del Editor de Visual Basic.

Luego, para utilizarla, en alguna celda escribes:

=Invertir(A1)

(suponiendo que en A1 se encuentra el texto que deseas invertir), y es todo, la funcion te devolvera el texto al reves.

Nota:
Para que no tengas problemas en el futuro, revisa la configuracion de seguridad de tu Excel:
Haz clic en "Herramientas" - "Macro" - "Seguridad", y selecciona "Medio".