Help Populating ListBox

[Scott M]

I would like to populate a list Box with the sum of the values entered in the textboxes on a user form without putting any data in a worksheet is this possible?
For example the user brings up the user form and enters 2 in textBox1 and 2 in textBox2 then the list box would show 4

 

[Norie]

Scott

You could do it like this.

Listbox1.AddItem Val(Textbox1.Value)  + Val(Textbox2.Value

 

[Misca]

Try something like

With Me
    .ListBox1.AddItem Val(.TextBox1.Value) + Val(.TextBox2.Value)
End With

The "Me" works when used in the userform module. If you're using the code from the normal module replace the "Me" with your userform name.

 

[Scott M]

Thanks That works great. I do have one question The values that will be entered in the text boxes will be fractions currently if I enter for example 1/2 in textBox1 and 1/2 in textBox2 The List Box shows 2 Do you have any suggestions for formatting the textboxes and/or the list Box so that the values are fractions or maybe when the user enters a fraction in the Textboxes it will convert the value to decimals

 

[Norie]

Instead of Val use Evaluate to get the decimal value of the fraction, then if you want to display as fraction in the listbox format the result as something like # ?/?.

 

[Scott M]

Thanks Norie That was helpful I do need to format the result but it needs to be in inches and decimals 16.8593 for example I have tried several examples that I found but can't get any of them tor work could someone point me in the right direction here is the code that populates the list box.

 With Me
    .LstBxResult.AddItem Evaluate(.TxtFraimOpWdth.Value) + Val(.TxtScrbEndSum.Value) + Val(.TxtMidStyDiv2.Value) - Val(.TxtPartDiv2.Value)
 End With
   End If

 

[Norie]

Scott

Do you just need the result formatted as a 'normal' number?

What exactly do you have in the texboxes and what problems are you having?

 

[Scott M]

Hi Norie TxtFraimOpWdth.Value is a fraction i.e. 12 5/8 TxtScrbEndSum.Value Is the result of two list boxes that are fractions also. its value is decimal i.e. 1.75 TxtMidStyDiv2.Value is the result of a text Box value that is a fraction also and is divided by 2 and that result is a decimal. TxtPartDiv2.Value is also the result of a textbox value that is a fraction divided by2 and that result is a decimal The list box LstBxResult is in decimals but the decimal places are way more than I need I need the Result of the Code I posted to be 4 decimal places not 5 or 8.
I hope that I explained this clear enough.
Thanks for your help

<colgroup><col style="width: 48pt;" width="64"> <tbody>
</tbody>

 

[Scott M]

Norie I just need the result formatted as a normal number Like 16.8593.It needs to be no more than 4 Decimal places
Don't Know If this maters or not but the list box is populated when the user clicks on a command button

<colgroup><col style="width: 48pt;" width="64"> <tbody>
</tbody>

<colgroup><col style="width: 48pt;" width="64"> <tbody>
</tbody>

 

[ZVI]

Try this:

Private Sub CommandButton1_Click()
  Dim x As Double
  x = Eval(TxtFraimOpWdth) + Eval(TxtScrbEndSum) + Eval(TxtMidStyDiv2) - Eval(TxtPartDiv2)
  LstBxResult.AddItem Format(x, "#0.0000")
End Sub
 
Function Eval(Equation As String) As Double
  Dim s As String
  s = Replace(Application.Trim(Equation), " ", "+")
  If Len(s) Then Eval = Evaluate(s)
End Function