Foros del Web - Copiar formato a números

Foros del Web (http://www.forosdelweb.com/)

- Ofimática (http://www.forosdelweb.com/f90/)

- - Copiar formato a números (http://www.forosdelweb.com/f90/copiar-formato-numeros-586384/)

chenima

14/05/2008 09:37

Copiar formato a números

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

14/05/2008 09:54

Re: Copiar formato a números

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

14/05/2008 10:11

Re: Copiar formato a números

Cita:

Iniciado por 3pies (Mensaje 2404331)

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

14/05/2008 10:23

Re: Copiar formato a números

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

14/05/2008 10:30

Re: Copiar formato a números

Cita:

Iniciado por 3pies (Mensaje 2404400)

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

15/05/2008 02:02

Re: Copiar formato a números

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.

La zona horaria es GMT -6. Ahora son las 20:44.