format decimal places in cell value - vba

[John999]

Please can someone tell me how I could change this code to display value with 1 decimal place.

Worksheets(t1dsheet).Cells(row, col).Value = "=(R[-53]C/R[-1]C)*100" 
row = row + 1 

The value currently displayed in the cell is 33.01684963 but I would like it to show 30.0

thanks John

[spog00]

How about incorporating the ROUND function?

Worksheets(t1dsheet).Cells(row, col).Value = "=Round((R[-53]C/R[-1]C)*100,-1)" 

This will lose the accuracy though.

Alastair

[John999]

hmm, thats strange, the cell now displays Round((R[-53]C/R[-1]C)*100,-1)and hasnt made the calculation, any ideas?

[spog00]

Works perfectly for me. Does the cell have "=" at the front?

Try using

Worksheets(t1dsheet).Cells(row, col).FormulaR1C1= "=Round((R[-53]C/R[-1]C)*100,-1)" 

instead

Alastair

[John999]

ok that works thanks. I have changed the -1 to -.1 which seems to increases the accuracy a little.

[MarkFB]

If you don't want to lose accuracy you can use this line of code after you have inserted your original formula

Worksheets(t1dsheet).Cells(row, col).NumberFormat = "0.0" 

This retains 33.01684963 but will simply display 33.0

Regards,

Mark.

[John999]

Thanks Mark, that has resolved my problem

John