invertir un texto

[Peter Hiovany Fonseca Buitrago]

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.

[David]

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ó:

[Héctor Miguel]

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: