valor de una celda de excel

[pana99]

ok. Ahora entiendo mas.
Aca van dos ejemplos. Uno para que te muestre por pantalla los 2 decimales (pero en el contenido de la celda no, y otro para que en ambas este con decimales

Código:

Sub mostrar()
Dim x As Integer
'Recorro la tabla desde la celda A1 hasta el final
For x = 1 To Range("A1").CurrentRegion.Rows.Count
    'Si la celda tiene un numero
    If IsNumeric(Cells(x, 1)) Then
        'La formateo. Esto muestra por pantalla el numero con
        '2 decimales pero la celda tiene el valor original
        Cells(x, 1).Value = Format(Cells(x, 1), "###,#0.00")
    End If
Next
End Sub

Código:

Sub mostrar_1()
Dim x As Integer
'Recorro la tabla desde la celda A1 hasta el final
For x = 1 To Range("A1").CurrentRegion.Rows.Count
    'Si la celda tiene un numero
    If IsNumeric(Cells(x, 1)) Then
        'La formateo a texto para que luego me muestre por
        'pantalla el numero con 2 decimales y ademas en la
        'la celda quede con 2 decimales tambien.
        Cells(x, 1).NumberFormat = "@"
        Cells(x, 1).Value = Format(Cells(x, 1), "###,#0.00")
    End If
Next
End Sub