Excel - Cambio formato numeros columna

Cambio formato numeros columna

Publicado por Ignacio (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 [email protected]

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Cambio formato numeros columna

Publicado por JuanC (1237 intervenciones) el 04/10/2014 14:39:49

una idea...

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 clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Cambio formato numeros columna

Publicado por Nacho (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

Comentar

Cambio formato numeros columna

Publicado por JuanC (1237 intervenciones) el 04/10/2014 15:08:56

UDF (simple)...

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

Comentar

Duda en macros

Formato TXT