VBA coding

[HWake]

Hi all,

Apologies, I'm new to this and new to coding so I will sound as though I'm clueless!

Im creating a userform through VBA and I need to get some of the boxes I have created (label boxes) to add up the value that is in the text boxes (in some cases I need them to multiply). Does anyone know a code for this and even if I'm going the right way of doing it, as in using label boxes?

Thanks,

Hana x

 

[My Aswer Is This]

So you are wanting a label to display the added up values of several Textboxes
I believe is what you want.

Try something like this:

Private Sub CommandButton2_Click()
'Modified  10/19/2018  7:35:59 AM  EDT
Label1.Caption = CDbl(TextBox1.Value) + CDbl(TextBox2.Value)
End Sub

 

[HWake]

Hi My Answer Is This,

Thank you so much for your help, but is there a way of the label boxes auto adding / multiplying the values in the textboxes without the use of a commandbutton at all?

Thanks,

Hana x

 

[My Aswer Is This]

Well we can have them add up as you exit the textbox.

And we call them Labels.
Not Label Boxes.


You will need something like this:

I have this working for two Textboxes

If you have more then you will need to add more

The initialize code sets Label1 initial value to 1

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Label1.Caption = Label1.Caption + CDbl(TextBox1.Value)
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Label1.Caption = Label1.Caption + CDbl(TextBox2.Value)
End Sub
Private Sub UserForm_Initialize()
Label1.Caption = "0"
End Sub

 

[My Aswer Is This]

Correction:

The initialize code sets Label1 initial value to 0
​