Excel - Invertir pares de numeros

 
Vista:

Invertir pares de numeros

Publicado por Eliana (13 intervenciones) el 10/07/2007 16:14:55
Buenos dias!
Necesitaria q me ayuden en algo urgente, por favor!

tengo una lista de Numeros claves y necesito invertir de lugar dos pares de numeros, como en este ejemplo:

Tengo: 143231000000023100


Necesito: 313214000000023100

El 14 pasa al lugar del 31, y el 31 al lugar del 14.
Tengo una lista larga con numeros de este estilo en los cuales tengo q hacer ese cambio.

Les dejo otro ejemplo: 053130994000028517

303105994000028517

Muchisimas Gracias!! Eliana.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Invertir pares de numeros

Publicado por JuanC (792 intervenciones) el 10/07/2007 16:19:49
pasame el archivo si querés y te lo hago con una macro...

Saludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Invertir pares de numeros

Publicado por Eliana (13 intervenciones) el 10/07/2007 16:54:05
Barbaro! muchisimas gracias!

Te paso el archivo!
Y si podes mandame la macro asi me queda!

http://www.savefile.com/files/877375

Eliana.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Invertir pares de numeros

Publicado por JuanC (792 intervenciones) el 10/07/2007 23:48:27
la macro es sencilla...

'//By JuanC - 10 de Julio de 2007

Sub CambiarDatos()
Dim cell As Range
Dim a$, b$, c$
Application.ScreenUpdating = False
For Each cell In [A2:A805]
With cell
a = Mid(.Value, 1, 2)
b = Mid(.Value, 3, 2)
c = Mid(.Value, 5, 2)
.Offset(0, 1).Value = c & b & a & Mid(.Value, 7)
End With
Next
Application.ScreenUpdating = True
End Sub

Saludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar