How show and use percentage (%) into textboxs on userform

[Omar M]

Hello
I have some lines to try show number with percentage in textbox3 after divide textbox1/ textbox2 and multiply percentage in texbox1 to show result in textbox4

Private Sub TextBox2_AfterUpdate()
 Format(TextBox3.Value, "0.00%") = CDbl(TextBox1.Value) / CDbl(TextBox2.Value)
 TextBox4.Value = CDbl(TextBox1.Value) * CDbl(TextBox3.Value)

example :
textbox1=1,000.00
textbox2=8,000.00
result in textbox3 should be =12.50%
result in textbox4 should be =1,000.00 * 12.50%=125.00(warning :when multiply percentage should be 1,000.00*12.5/100 to show right result)
currently show error object required in first line .
any body help me ,please?

 

[DanteAmor]

Before using CDBL, check that the textboxes are different from empty and also have a numerical value, otherwise it will send a type error,

Try:

Private Sub TextBox2_AfterUpdate()
  If TextBox1.Value <> "" And TextBox2.Value <> "" Then
    TextBox3.Value = Format(CDbl(TextBox1.Value) / CDbl(TextBox2.Value), "0.00%")
  End If
  If TextBox1.Value <> "" And TextBox3.Value <> "" Then
    TextBox4.Value = Format(CDbl(TextBox1.Value) * CDbl(Replace(TextBox3.Value, "%", "")), "Standard")
  End If
End Sub

 

[Omar M]

Thanks but I'm afraid will show wrong result in textbox4 .
I explained in this

warning :when multiply percentage should be 1,000.00*12.5/100 to show right result)

should show 125.00 , not 12,500.00 .

 

[DanteAmor]

Just divide by 100:

Private Sub TextBox2_AfterUpdate()
  If TextBox1.Value <> "" And TextBox2.Value <> "" Then
    TextBox3.Value = Format(CDbl(TextBox1.Value) / CDbl(TextBox2.Value), "0.00%")
  End If
  If TextBox1.Value <> "" And TextBox3.Value <> "" Then
    TextBox4.Value = Format(CDbl(TextBox1.Value) * CDbl(Replace(TextBox3.Value, "%", "") / 100), "Standard")
  End If
End Sub

 

[Omar M]

Thank you so much.