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
 

Leer las respuestas

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

#,##0.00

Abraham

Preguntas similares