Show Result in Userform TextBox as a percentage

[Hutch1603]

Hello,

I have a user form with 3 text boxes and 2 command buttons. My problem is getting text box 3 to perform a calculation based on cost price in text box 1 and the percentage I need to reduce it by to show the discounted buying price. So for example, if a product costs £100, take 20% off, then £80 should show in text box 3. Just cant figure out the code to get it to do this.

My user form loads, my command buttons to clear the text boxes 1&2 works, my command button to close the user form works. I have been trying to perform the calculation as follows:

Private Sub CalcDec()
TextBox3.value = ((TextBox1.value) - (1-(Textbox2.Value)))
End Sub

Additionally, I have the formula stared in Sheet1 of my workbook in cell B5. My formula is =B3-(1-(B4))

I have tried to use If and When Statements, all with no Luck. Can anyone point me in the right direction.

 

[NdNoviceHlp]

In the control source for Properties of textbox3 insert Sheet1!B5 if I understand your needs. HTH. Dave

 

[DanteAmor]

Exactly what do you have in textbox1 100 or £ 100.
In textbox2 20 or 20% or 0.20

If you have in textbox1 100
and in textbox2 20

then try:

TextBox3.Value = CDbl(TextBox1.Value) * (1 - (CDbl(TextBox2.Value) / 100))

 

[Norie]

Try this.

Private Sub CalcDec_Click()
    TextBox3.Value = TextBox1.Value * (1 - TextBox2.Value / 100)
End Sub

 

[Hutch1603]

Thank you for your responses. Unfortunately, I still can't get TextBox3 to show the result. I'm sure I must have missed something. My current code is as Follows:

Private Sub OptionButton1_Click()


    'This opens the user form
       
    PerDecCalc.Show
    
End Sub


Private Sub CalcDec_Click()


    TextBox3.Value = TextBox1.Value * (1 - TextBox2.Value / 100)
    
End Sub


Private Sub CommandButton1_Click()
        
    'This clears the text boxes
        
    TextBox1.Value = ""
    TextBox2.Value = ""
        
End Sub


Private Sub CommandButton2_Click()


    'This closes the user form
    
    Unload PerDecCalc
    
End Sub

[Code]

 

[Norie]

Do you have a command button named CalcDec?

 

[Hutch1603]

Do you have a command button named CalcDec?

No,

I have a separate userform where you select one of 5 radio buttons. The first radio button opens this userform, to perform the calculation.

 

[Norie]

In your original post you had this for doing the calculation.

Private Sub CalcDec()
    TextBox3.value = ((TextBox1.value) - (1-(Textbox2.Value)))
End Sub

When/how do you want that to be executed?

 

[DanteAmor]

Perform a small test on a new userform, only add 3 textbox
In the textbox1 write 100
In the textbox2 write 20
Create a commandbutton and add the following code

Private Sub CommandButton1_Click()
    TextBox3.Value = CDbl(TextBox1.Value) * (1 - (CDbl(TextBox2.Value) / 100))
End Sub

Execute the form, press the button and in the textboxt3 an 80 should appear.

 

[Hutch1603]

Thank you for your answers. I will try these tomorrow and come back to you as I forgot to bring my memory stick home.