VBA active x text box

[smig123]

Wondering if anyone can help. I want to create a user form with two active x text boxes. In box one you put a number and the second box uses a formula to change the number and display the result. For example put 2 in box one and it shows 100 in box 2.

There are many other boxes on the form but i just need these two boxes to work together. I can then add others doing the same with different formulas. I have been on youtube for ever and can't find anything that shows me the code.

Any help gratefully appreciated.

 

[FormR]

Hi, you didn't tell us what the "formula" should be, but maybe you can adapt something like this..

Private Sub TextBox1_AfterUpdate()
If IsNumeric(TextBox1.Value) Then TextBox2.Value = TextBox1.Value * 50
End Sub

 

[smig123]

Hi, you didn't tell us what the "formula" should be, but maybe you can adapt something like this..

Private Sub TextBox1_AfterUpdate()
If IsNumeric(TextBox1.Value) Then TextBox2.Value = TextBox1.Value * 50
End Sub

Many thanks i will give it a go. I have many formulas I will be using and I believe i can just do it in a macro to see how VBA handles it. Thanks for the reply.

 

[smig123]

Worked like a dream. I spent 2 days trying to sort that...... Many thanks

 

[smig123]

Final question! if I may.

if i want to round up a result =roundup function for example, textbox1.value * 50 should read?

 

[FormR]

Hi, you can try like this.

If IsNumeric(TextBox1.Value) Then TextBox2.Value = Application.RoundUp(TextBox1.Value * 50, 0)

 

[smig123]

God you are amazing how are we meant to find this stuff......LOL I have just done a 4 day course and in the real world its like i learned nothing. Many thanks