Excel - Cambio formato numeros columna

   
Vista:

Cambio formato numeros columna

Publicado por Ignacio nacho_nack@hotmail.com (2 intervenciones) el 04/10/2014 14:26:33
Buenos días, necesito saber como crear una macro o si hay una forma mas facil de una columna que esta llena de datos tipo:
136+0002
140+0010
para que estos numeros pasen a ser :

136,02
140,10

Gracias espero vuestra contestación ...nacho_nack@hotmail.com
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
Imágen de perfil de JuanC

Cambio formato numeros columna

Publicado por JuanC juanc2942@gmail.com (1053 intervenciones) el 04/10/2014 14:39:49
una idea...

1
2
3
4
5
Dim s$, n%, d%, res#
s = Range("A1")  '//136+0002
n = VBA.Split(s, "+")(0)
d = VBA.Split(s, "+")(1)
res = CInt(n) + (CInt(d) / 100#)

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

Cambio formato numeros columna

Publicado por Nacho nacho_nack@hotmail.com (2 intervenciones) el 04/10/2014 14:53:37
Gracias Juan, lo que si para definir la funcion es decir lo que me has puesto es el cuerpo de la funcion pero como iría lo demas , gracias de nuevo
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
Imágen de perfil de JuanC

Cambio formato numeros columna

Publicado por JuanC (1053 intervenciones) el 04/10/2014 15:08:56
UDF (simple)...

1
2
3
4
5
6
7
8
Function convertir(ByVal rng As Range) As Double
Dim s$, n%, d%
On Error Resume Next
s = rng.Value
n = VBA.Split(s, "+")(0)
d = VBA.Split(s, "+")(1)
convertir = CInt(n) + (CInt(d) / 100#)
End Function

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