Copiar formato a números

[chenima]

Hola buenas tengo una duda y quiero ver si me podéis ayudar:

Quiero hacerme una macro en excel que pueda copiar el formato de un número, os pongo un ejemplo a continuación:

Tengo esta cantidad: 1.000.000, y en otra celda tengo por ejemplo 1893333,32 y quiero aplicarle el mismo formato que tiene el otro número, como tendría que hacer la macro¿?¿?

Gracias.

[3pies]

Hola, bienvenid@ al foro.

Prueba con la grabadora de macros a ver que te sale: Herramientas --> Macro --> Grabar nueva macro...

Luego ejecutas las acciones (copiar, pegado especial, formato), y detienes el macro. Finalmente te vas a VBA (Alt+F11), y miras el código generado.

Esta es la forma más fácil de aprender

Salu2

[chenima]

Iniciado por 3pies

Hola, bienvenid@ al foro.

Prueba con la grabadora de macros a ver que te sale: Herramientas --> Macro --> Grabar nueva macro...

Luego ejecutas las acciones (copiar, pegado especial, formato), y detienes el macro. Finalmente te vas a VBA (Alt+F11), y miras el código generado.

Esta es la forma más fácil de aprender

Salu2

Eso ya lo he probado, el problema que solo me aplica el pegado especial a la celda en la que he hecho la macro (por ejemplo f5), como podría hacer para que me lo aplicara a cualquier celda. Se me queda así:

Selection.Copy
Range("f5").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

[3pies]

Prueba esto:

Código:

Sub Poner_separador_de_miles()
    ActiveCell.NumberFormat = "#,##0.00"
End Sub

Eso te pondrá con formato de separador de miles y 2 decimales cualquier cifra que tengas en la celda activa (celda donde estés situado).

Salu2

[chenima]

Iniciado por 3pies

Prueba esto:

Código:

Sub Poner_separador_de_miles()
    ActiveCell.NumberFormat = "#,##0.00"
End Sub

Eso te pondrá con formato de separador de miles y 2 decimales cualquier cifra que tengas en la celda activa (celda donde estés situado).

Salu2

Gracias de nuevo, pero realmente no quiero esa función, lo que quiero es que me pege el formato de una celda en la que yo quiera, tanto formato numérico, como letra etc....

Gracias

[3pies]

Entonces deberás hacer algo como esto:

Te sitúas en la celda "origen" (la del formato que quieres copiar), y ejecutas este macro:

Código:

Sub copiar()
ActiveCell.Copy
End Sub

Luego te sitúas en la celda de destino, y ejecutas esto:

Código:

Sub pegar()
ActiveCell.PasteSpecial Paste:=xlPasteFormats
End Sub

Aunque lo que planteas no tiene mucho sentido hacerlo mediante macros, porque puedes hacerlo copiando y pegando el formato a través de los menús.