Formato Celda Númerio con Marco

14/06/2007 - 18:48 por x.masana | Informe spam
Hola,
Me dirijo nuevamente a vosotros para solicitar vuestra ayuda. El tema
que me trae de cabeza esta vez es con el formato númerico de una celda
al añadir unos registros.

Tengo creada la siguiente macro para añadir registros en una hoja de
cálculo:
Sub AÑADIR()
' AÑADIR Referencia Cliente
Rows("3:3").Select
Selection.Insert Shift:=xlDown
Rows("3:3").Font.Bold = False
Rows("3:3").Font.Size = 9
Rows("3:3").Font.FontStyle = "Arial"
Rows("3:3").Font.Color = Black
Rows("3:3").EntireRow.AutoFit
Range("A3").HorizontalAlignment = xlLeft
Range("B3").HorizontalAlignment = xlLeft
Range("C3").HorizontalAlignment = xlLeft
Range("D3").HorizontalAlignment = xlRight
Range("D3").NumberFormat = "dd-mmm-yy"
Range("E3").HorizontalAlignment = xlRight
Range("F3").HorizontalAlignment = xlLeft
Range("G3").HorizontalAlignment = xlCenter
Range("H3").HorizontalAlignment = xlCenter
Range("I3").HorizontalAlignment = xlCenter
Range("J3").HorizontalAlignment = xlCenter
Range("K3").NumberFormat = "#,###,###.##,00"
Range("L3").HorizontalAlignment = xlCenter
Range("M3").NumberFormat = "#,###,###.##,00"
Range("A3").Select
End Sub

Mi objetivo es conseguir que tanto la celda K3 cómo la M3 tenga el
formato 9.999.999,99, o en el caso de tener sólo un decimal o no tener
ninguno completarlo con ceros, es decir, 9.999.999,90 o 9.999.999,00

He probado diferentes variantes y no obtengo resultado positivo.

Podeis ayudarme?

Es un tema urgente para mí jefe y me estoy volviendo loco.

Gracias anticipadas a todos por vuestro tiempo en leerlo y ayudarme a
encontrar una solución.

Saludos Cordiales,
Xavier

Preguntas similare

Leer las respuestas

#1 Abraham
14/06/2007 - 19:07 | Informe spam
Prueba asi:

#,##0.00

Abraham
Respuesta Responder a este mensaje
#2 x.masana
14/06/2007 - 22:52 | Informe spam
On 14 jun, 19:07, Abraham wrote:
Prueba asi:

#,##0.00

Abraham



Hola Abraham,

Perdona por mi mensaje anterior. Tu solución me ha funcionado.

Gracias.
Xavier
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida