I have a userform where values in TextBoxes are used in calculations for other textboxes.
I use the following code to do this.
End SubPrivate Sub CBCHOOOSE_Click() Dim GM1 As Long Dim GALY As Long Dim GTLY As Long Dim GLLY As Long With Sheets("Margins") .Unprotect With UserForm2 GM1 = CLng(.TextBox2.Value) GALY = CLng(.TextBox1.Value) GTLY = CLng(.TextBox4.Value) GLLY = CLng(.TextBox5.Value) .TextBox6.Value = GM1 / GALY * GTLY .TextBox7.Value = GM1 / GALY * GLLY GM1 = CLng(TextBox3.Value) .TextBox8.Value = GM1 / GALY * GTLY .TextBox9.Value = GM1 / GALY * GLLY End With
My problem is that TextBox2 has a value of ".46" but GM1 has a value of 0 and the other G values are either 0 or 1 The calculated values are all zeros
What can be going wrong?
Bookmarks