14-may-2008, 09:37
|
#1 (permalink) |
 Fecha de Ingreso: mayo-2008
Mensajes: 3
|
Copiar formato a números
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. |
|
|
|
14-may-2008, 09:54
|
#2 (permalink) |
|
Colaborador
 
Fecha de Ingreso: diciembre-2003
Ubicación: Desde una destilería
Mensajes: 1.799
|
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 |
|
|
|
|
14-may-2008, 10:11
|
#3 (permalink) |
|
Fecha de Ingreso: mayo-2008
Mensajes: 3
|
Re: Copiar formato a números
Cita:
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 |
|
|
|
|
14-may-2008, 10:23
|
#4 (permalink) |
|
Colaborador
Fecha de Ingreso: diciembre-2003
Ubicación: Desde una destilería
Mensajes: 1.799
|
Re: Copiar formato a números
Prueba esto:
Código:
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).Sub Poner_separador_de_miles()
ActiveCell.NumberFormat = "#,##0.00"
End Sub
Salu2 |
|
|
|
|
14-may-2008, 10:30
|
#5 (permalink) |
|
Fecha de Ingreso: mayo-2008
Mensajes: 3
|
Re: Copiar formato a números
Cita:
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....
Iniciado por 3pies
Prueba esto:
Código:
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).Sub Poner_separador_de_miles()
ActiveCell.NumberFormat = "#,##0.00"
End Sub
Salu2 Gracias |
|
|
|
|
15-may-2008, 02:02
|
#6 (permalink) |
|
Colaborador
Fecha de Ingreso: diciembre-2003
Ubicación: Desde una destilería
Mensajes: 1.799
|
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:
Luego te sitúas en la celda de destino, y ejecutas esto:Sub copiar() ActiveCell.Copy End Sub
Código:
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.Sub pegar() ActiveCell.PasteSpecial Paste:=xlPasteFormats End Sub |
|
|
|
 |
| Herramientas | |
| Desplegado | |
|
|
Mode Lineal
