Neville Bentley
Board Regular
- Joined
- Oct 3, 2007
- Messages
- 101
Hi out there
I have a bit of code for a user form I am doing but I cannot seem to get the mathematics to work. When I step through the code I get the correct values for Tbox 5 & 8 but I cannot get the final part (the LISTBOX to pass its value and)to work. Can some one look at the code and let me know what I am doing wrong.
Private Sub TextBox9_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo InvalidTypes:
TextBox9.Value = CStr(CDbl(TextBox5.Text) * CDbl(TextBox8.Text) * CDbl(lstUnitP.Text))
InvalidTypes:
TextBox9.Value = "Non-Numerics in Either Textbox 5 or Textbox 8"
End Sub
Any help would be appreciated.
Cheers
Neville
I have a bit of code for a user form I am doing but I cannot seem to get the mathematics to work. When I step through the code I get the correct values for Tbox 5 & 8 but I cannot get the final part (the LISTBOX to pass its value and)to work. Can some one look at the code and let me know what I am doing wrong.
Private Sub TextBox9_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo InvalidTypes:
TextBox9.Value = CStr(CDbl(TextBox5.Text) * CDbl(TextBox8.Text) * CDbl(lstUnitP.Text))
InvalidTypes:
TextBox9.Value = "Non-Numerics in Either Textbox 5 or Textbox 8"
End Sub
Any help would be appreciated.
Cheers
Neville