Using Simultaneously Changing Textboxes

[aliveysel]

Hello Dear All,

I have 3 textboxes that values are dependent on each other like:

textbox1.value= textbox2.value+textbox3.value.

When I change the value in any of the textbox and press the command button:

I want the values to equate each other. I did this, but of course did not work.

P = TextBox34.Value
T = TextBox35.Value
N = TextBox33.Value

N = P * 60 * 1000 / 2 / PI / T
P = N / 60 / 1000 * 2 * PI * T
T = P * 60 * 1000 / 2 / PI / N

TextBox34.Value = P
TextBox35.Value = T
TextBox33.Value = N

I know that I can change 1&2 textbox values at the same time.

[Guido Geurs]

Use different var's for the calculations because it's confusing now !
What are the new values and what are the old??

something like:

Pold = TextBox34.Value
Told = TextBox35.Value
Nold = TextBox33.Value
 
Nnew = Pold * 60 * 1000 / 2 / PI / Told
Pnew = Nold / 60 / 1000 * 2 * PI * Told
Tnew = Pold * 60 * 1000 / 2 / PI / Nold
 
TextBox34.Value = Pnew
TextBox35.Value = Tnew
TextBox33.Value = Nnew

Or if you want to use the new values like:

Nnew = Pold * 60 * 1000 / 2 / PI / Told
Pnew = Nnew / 60 / 1000 * 2 * PI * Told
Tnew = Pnew * 60 * 1000 / 2 / PI / Nnew

[aliveysel]

Thank you!!

But when I do it, textbox value displayed in userform is 1001.2 for example.

But code inside VBA understands it as 10012.

So my results are incorrect.

How can I correct it?

Thanksa,

[Guido Geurs]

did you dimention the var's as DOUBLE ?
this is working in Excel 2003:

Private Sub CommandButton1_Click()
Dim Pold As Double
Dim Told As Double
Dim Nold As Double
Dim Nnew As Double
Dim Pnew As Double
Dim Tnew As Double
Dim Pi As Double
 
Pi = 3.14159265358979
 
Pold = TextBox34.Value
Told = TextBox35.Value
Nold = TextBox33.Value
 
Nnew = Pold * 60 * 1000 / 2 / Pi / Told
Pnew = Nold / 60 / 1000 * 2 * Pi * Told
Tnew = Pold * 60 * 1000 / 2 / Pi / Nold
 
TextBox34.Value = Pnew
TextBox35.Value = Tnew
TextBox33.Value = Nnew
 
Range("A1") = Nnew
Range("A2") = Pnew
Range("A3") = Tnew
End Sub

[aliveysel]

yes! i did totally the same.

Do you know any method that I can make . and , as the same inside the code?

I mean 1.1 is 11/10 and as same as 1,1

[aliveysel]

Private Sub UserForm_Click()
Application.DecimalSeparator = "."
Application.ThousandsSeparator = "."
Application.UseSystemSeparators = False
End Sub

[Guido Geurs]

There are different things to take in consideration when you work with textboxes:
- when the text in the textbox has not the format of the settings in the workbook (options - international - number settings): the transfer is a text and not a value (but you can calculate with the cell : the TRANSFER is text= right alignment).
- the settings in the workbook can be different with the general "international" settings in Windows.
- when the transfer is done as text, you have to format the cells with custom settings like "#.##0,0".
Attached is a form for tests with differed settings