vba textbox format number problem

[paroduso]

hi everyone...
im having trouble formating a number inside 2 textboxes..
i allready tried a lot of codes...searching in google...but none worked for me...
well its textboxes resulting from a multiplication

how can i format the textboxes to 4 decimal places??? i need the result to be 0.2621 in the textbox1 and 0.2482 textbox.2

thank you.

 

[GWteB]

Something like this ...

TextBox1.Value = Format(0.26211111115534, "0.0000")

 

[paroduso]

Something like this ...

TextBox1.Value = Format(0.26211111115534, "0.0000")

thank you very mutch...working...perfect.

 

[paroduso]

excuse,

but after all it doesn't work ... round the number to 4 decimal places but cancel the multiplication resultin the texbox ... always 0.2621 ... what I want is for the textbox to always keep the decimal places but present the result of my calculation regardless of the outcome

 

[GWteB]

My example was meant to get you on the right track. In your situation, replace the number in my example with the result of your multiplication, or with the expression of the multiplication itself if you like.

    Dim x
    Dim y
    Dim result
   
    x = 1.2532
    y = 0.65432
    result = x * y
   
    TextBox1.Value = Format(result, "0.0000")
    '  or ...
    TextBox1.Value = Format(x * y, "0.0000")

 

[paroduso]

My example was meant to get you on the right track. In your situation, replace the number in my example with the result of your multiplication, or with the expression of the multiplication itself if you like.

    Dim x
    Dim y
    Dim result
  
    x = 1.2532
    y = 0.65432
    result = x * y
  
    TextBox1.Value = Format(result, "0.0000")
    '  or ...
    TextBox1.Value = Format(x * y, "0.0000")

SORRY NOT WORKING...IM GOING TO POST THE VBA CODE

 

[paroduso]

VBA CODE...VERY SIMPLE BUT A LOT OF TROUBLE...

Private Sub TextBox4_AfterUpdate()

TextBox5 = Val(TextBox1) / Val(TextBox2) * Val(TextBox3) * Val(TextBox4)

End Sub


I NEED THE TEXTBOX 5 TO REDUCE THE DECIMAL PLACES TO 4...IN THIS IMAGE 0.2621 SHOULD BE THE RESULT

FOR ME ITS NOT EASY...VBA FOR ME IM A "0"

THANKS EVERYONE

 

[Rick Rothstein]

VBA CODE...VERY SIMPLE BUT A LOT OF TROUBLE...

Private Sub TextBox4_AfterUpdate()
  TextBox5 = Format(Val(TextBox1) / Val(TextBox2) * Val(TextBox3) * Val(TextBox4), "0.0000")
End Sub

Try adding what I show in red above...

 

[paroduso]

AMAZING ??? PROBLEM SOLVED.

THANK YOU VERY MUTCH SR.RICK.

 

[paroduso]

AFTER A HELPFUL FROM SR RICK FINALLY GOT TO FORMAT THE FINAL RESULT FOR 4 DECIMAL HOUSES ... NOW THE RESULT APPEARS 0,2621... IS THERE ANY WAY TO PLACE A POINT TO BE 0.2621?

TANK YOU.