VBA to extract full decimal from percentage in cell

[kgartin]

Cell A1 = 29.7%

<code>

Dim PROF As Double

PROF = Range("A1").value
Range("B1") = PROF
</code>

B1 = .30

I want B1 to = .297

 

[kgartin]

Cell A1 = 29.7%

<code>

Dim PROF As Double

PROF = Range("A1").value
Range("B1") = PROF
</code>

B1 = .30

I want B1 to = .297

Try this genius:

PROF = Round(Range("A1").Value, 3)

...what a dork

 

[Joe4]

Sounds like you only have cell B1 set up to show two decimal places.

If you go to cell B1 and Format the cell, it is set to only show 2 decimal places?
If so, change it to 3, and see if that fixes your issue.