Can someone tell me how to leave the number with only 4 decimal places?

[KhallP]

The "error":

The code:

    Dim oPL As Double, o709 As Double, o710 As Double, o713 As Double
    Application.ScreenUpdating = False
    Sheets("Calculation_Sheet").Visible = True

    ActiveWorkbook.Sheets("calculation_sheet").Activate

Note: P666, P709, P710 and P713 are global variables

    Range("B18").Select
    ActiveCell = A_90
    Range("B26").Select
    ActiveCell = A0
    Range("B33").Select
    ActiveCell = A90
      
    Range("I6").Select
    oPL = ActiveCell.Value
    Range("I7").Select
    o709 = ActiveCell.Value
    Range("I8").Select
    o710 = ActiveCell.Value
    Range("I9").Select
    o713 = ActiveCell.Value
  
    oPL = Format(oPL, "0.####")
    o709 = Format(o709, "0.####")
    o710 = Format(o710, "0.####")
    o713 = Format(o713, "0.####")
  
    Range("J6").Select
    P666 = ActiveCell.Value
    Range("J7").Select
    P709 = ActiveCell.Value
    Range("J8").Select
    P710 = ActiveCell.Value
    Range("J9").Select
    P713 = ActiveCell.Value
  
    P666 = Format(P666, "0.####")
    P709 = Format(P709, "0.####")
    P710 = Format(P710, "0.####")
    P713 = Format(P713, "0.####")
  
    out_666.Value = P666
    out_709.Value = P709
    out_710.Value = P710
    out_713.Value = P713

 

[Marc L]

​

As giving a sample for a value and its expected result is at kid level and has nothing to do with privacy !​

​

So as I'm a very beginner to guess anything maybe someone else may help …​

 

[KhallP]

​

As giving a sample for a value and its expected result is at kid level and has nothing to do with privacy !​

​

So as I'm a very beginner to guess anything maybe someone else may help …​

I literally said that the value would have to have a comma between 3 and 1 as in the example xD

 

[maabadi]

How About:

oPL = Format(oPL, "#,###.0000")

OR

oPL = Format(oPL - Int(oPL/1), "#,###.0000")

 

[Trixterz]

It seems to me that the remaining of your decimal number is hidden from view due to the width of your text box. How about trying to increase the with of your text box a bit.

 

[KhallP]

It seems to me that the remaining of your decimal number is hidden from view due to the width of your text box. How about trying to increase the with of your text box a bit.

I don't think you understand anything about the post

 

[KhallP]

How About:

oPL = Format(oPL, "#,###.0000")

OR

oPL = Format(oPL - Int(oPL/1), "#,###.0000")

if you use this code the number looks like this:

 

[KhallP]

How About:

oPL = Format(oPL, "#,###.0000")

OR

oPL = Format(oPL - Int(oPL/1), "#,###.0000")

the comma needs to stay here:

 

[Marc L]

​

According to your last pictures as I yet wrote you use a bad arithmetic logic !​

As any kid can solve this just by dividing first the number …​

​