Calculation error

[ellyna]

Hi, when i submit the user form into excel sheet, the column on "Production Output and Total Rejection" do not show the value

Dropbox - File Deleted - Simplify your life

www.dropbox.com

1)"Production Output and Total Rejection" do not show the value .

2)The output that on multipage summary is below , but it does not calculate the total percentage . As i just do the first one and the result do not showed calculate of percentage.

Private Sub TextBox3_Change()
      TextBox4.Value = IIf(Val(txtTextBox5) > 0, Val(TextBox5.Value) / Val(TextBox3.Value), "0.00%")
End Sub


Private Sub TextBox2_Change()
    TextBox6.Value = IIf(Val(txtTextBox2) > 0, Val(TextBox5.Value) / Val(TextBox2.Value), "0.00%")
End Sub

Private Sub TextBox5_Change()
    TextBox8.Value = IIf(Val(txtTextBox5) > 0, Val(TextBox7.Value) / Val(TextBox5.Value), "0.00%")
    
End Sub

 

[Mel Smith]

Should your code for TextBox for .4, .6 and .8 read If and not IIf?
Mel

 

[ellyna]

Should your code for TextBox for .4, .6 and .8 read If and not IIf?
Mel

I will try . I'm new to vba and not quite sure with my script too

 

[ellyna]

Should your code for TextBox for .4, .6 and .8 read If and not IIf?
Mel

I tried insert as If and it occur error.

 

[Mel Smith]

Try also removing “txt” from those 3 lines but keep the “If” not IIf.
Mel

 

[Mel Smith]

I think the line(s) should also read: If(Value.TextBox2) .....

Mel

 

[maabadi]

I modify your code and it worked but you shoud first input textbox 7 , 5, 3, 2 respectively. because they relationships.

Private Sub TextBox3_Change()
      TextBox4.Value = IIf(Val(txtTextBox5) > 0, "0.00%", Val(TextBox5.Value) / Val(TextBox3.Value))
      TextBox4 = Format(TextBox4, "0.00%")
End Sub

Private Sub TextBox2_Change()
    TextBox6.Value = IIf(Val(txtTextBox2) > 0, "0.00%", Val(TextBox5.Value) / Val(TextBox2.Value))
    TextBox6 = Format(TextBox6, "#0.00%")
End Sub

Private Sub TextBox4_Change()
End Sub

Private Sub TextBox5_Change()
    TextBox8.Value = IIf(Val(txtTextBox5) > 0, "0.00%", Val(TextBox7.Value) / Val(TextBox5.Value))
    TextBox8 = Format(TextBox8, "#0.00%")
End Sub

 

[ellyna]

I modify your code and it worked but you shoud first input textbox 7 , 5, 3, 2 respectively. because they relationships.

Private Sub TextBox3_Change()
      TextBox4.Value = IIf(Val(txtTextBox5) > 0, "0.00%", Val(TextBox5.Value) / Val(TextBox3.Value))
      TextBox4 = Format(TextBox4, "0.00%")
End Sub

Private Sub TextBox2_Change()
    TextBox6.Value = IIf(Val(txtTextBox2) > 0, "0.00%", Val(TextBox5.Value) / Val(TextBox2.Value))
    TextBox6 = Format(TextBox6, "#0.00%")
End Sub

Private Sub TextBox4_Change()
End Sub

Private Sub TextBox5_Change()
    TextBox8.Value = IIf(Val(txtTextBox5) > 0, "0.00%", Val(TextBox7.Value) / Val(TextBox5.Value))
    TextBox8 = Format(TextBox8, "#0.00%")
End Sub

I tried this code and it's work too. Can i use this code ? Please Advice

Private Sub TextBox5_Change()
If TextBox3 <> "" And TextBox3 <> 0 Then
On Error Resume Next
    TextBox4.Value = Format((TextBox5.Value) / (TextBox3.Value), "0.00%")
    TextBox6.Value = Format((TextBox5.Value) / (TextBox2.Value), "0.00%")
End If
End Sub

Private Sub TextBox7_Change()
On Error Resume Next
    TextBox8.Value = Format((TextBox7.Value) / (TextBox5.Value), "0.00%")
End Sub

Private Sub TextBox13_Change()
If TextBox11 <> "" And TextBox11 <> 0 Then
On Error Resume Next
    TextBox12.Value = Format((TextBox13.Value) / (TextBox11.Value), "0.00%")
    TextBox14.Value = Format((TextBox13.Value) / (TextBox10.Value), "0.00%")
End If
End Sub

Private Sub TextBox15_Change()
On Error Resume Next
    TextBox16.Value = Format((TextBox15.Value) / (TextBox13.Value), "0.00%")
End Sub

 

[ellyna]

I think the line(s) should also read: If(Value.TextBox2) .....

Mel

I 'm using this code and it's work. Can i use this code ? Advice Please

Private Sub TextBox5_Change()
If TextBox3 <> "" And TextBox3 <> 0 Then
On Error Resume Next
    TextBox4.Value = Format((TextBox5.Value) / (TextBox3.Value), "0.00%")
    TextBox6.Value = Format((TextBox5.Value) / (TextBox2.Value), "0.00%")
End If
End Sub

Private Sub TextBox7_Change()
On Error Resume Next
    TextBox8.Value = Format((TextBox7.Value) / (TextBox5.Value), "0.00%")
End Sub

Private Sub TextBox13_Change()
If TextBox11 <> "" And TextBox11 <> 0 Then
On Error Resume Next
    TextBox12.Value = Format((TextBox13.Value) / (TextBox11.Value), "0.00%")
    TextBox14.Value = Format((TextBox13.Value) / (TextBox10.Value), "0.00%")
End If
End Sub

Private Sub TextBox15_Change()
On Error Resume Next
    TextBox16.Value = Format((TextBox15.Value) / (TextBox13.Value), "0.00%")
End Sub

 

[maabadi]

Try this:

Private Sub TextBox5_Change()
If TextBox3 <> "" And TextBox3 <> 0 Then
On Error Resume Next
    TextBox4.Value = Format((TextBox5.Value) / (TextBox3.Value), "0.00%")
    TextBox6.Value = Format((TextBox5.Value) / (TextBox2.Value), "0.00%")
End If
End Sub

Private Sub TextBox7_Change()
If TextBox5 <> "" And TextBox5 <> 0 Then
On Error Resume Next
    TextBox8.Value = Format((TextBox7.Value) / (TextBox5.Value), "0.00%")
End If
End Sub

Private Sub TextBox13_Change()
If TextBox11 <> "" And TextBox11 <> 0 Then
On Error Resume Next
    TextBox12.Value = Format((TextBox13.Value) / (TextBox11.Value), "0.00%")
    TextBox14.Value = Format((TextBox13.Value) / (TextBox10.Value), "0.00%")
End If
End Sub

Private Sub TextBox15_Change()
If TextBox13 <> "" And TextBox13 <> 0 Then
On Error Resume Next
    TextBox16.Value = Format((TextBox15.Value) / (TextBox13.Value), "0.00%")
End If
End Sub