VBA excel calculating in userform

Question

i have a userform that includes combox and two textboxes the user choose a chemical (text) from the combobox1 and enters the height of the chemical in textbox1 (number). then according to the chemical he choose i define the density and area of the tank of the chemical. then i need to calculate: textbox2.value=density*area*textbox1.value density and area are different for every chemical. the equation is mass=density*area*volume. i tried this code: Private Sub ComboBox1_Change() Dim chem As String

chem = ComboBox1.Value
    mychem

End Sub
Sub mychem()
Dim density As Double
Dim volume As Double

If chem = "Sodium" Then
area = 22
density = 1.058
End If
If chem = "HCl 9%" Then
area = 22
density = 1.043
End If
If chem = "alum" Then
area = 70
density = 1.163
End If
If IsNumeric(Txtheight.Text) Then
                txtmass.Value = density *area * CDbl   (Txtheight.Value)

                   End If
end sub

Andy G · Accepted Answer · 2013-07-16 20:52:05Z

0

density and volume are variables, they don't have a Value property.

TextBox4.Value = CDbl(density) * CDbl(volume) * CDbl(TextBox8.Value)

Also, density and volume are already Doubles, you don't need to convert them with CDbl.

And you should take the time to rename your controls. I would suggest txtHeight but your description isn't clear about whether the textbox contains the height, area or volume(?).

answered Jul 16, 2013 at 20:52

Andy G

19.4k5 gold badges49 silver badges70 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

user2588993 Over a year ago

thanks, now the calculation works with no bug. but it gives answer 0. i'm guessing that the code doesnt define my variables currectly.

Collectives™ on Stack Overflow

VBA excel calculating in userform

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related