Dynamic update for each userform textbox through looping

[Sohan2012]

(CROSS POST IN THE MR EXCEL FORUM)

First of all a warm greeting to the VBA engineers, I am currently working on a Userform that has 7 text boxes in them, the following is required:

1-That all are updated when the event change is activated in one of them.

2-That have a numerical format with two decimal places.


The following code is for number formatting that is applied to each text box, but I know there is a way to do this by looping through each text box. Only my VBA level is low, many thanks in advance to whoever can help... [

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 
Dim s$ 
Select Case KeyCode
Case VBA.vbKeyBack, VBA.vbKeyDelete
Caso VBA.vbKeyDown, VBA.vbKeyUp 
Caso VBA.vbKeyLeft, VBA.vbKeyRight 
Caso VBA.vbKeyEnd, VBA.vbKeyHome 
Caso VBA.vbKeyReturn, VBA.vbKeyTab 
Caso 48 a 57 '0-9 
Caso 96 a 105 
Caso 188, 110, 190 : ', . 
KeyCode = 188 
If InStr(1, TextBox1.Text, ",") > 0 Then KeyCode = 0 
Case 109, 189: '- 
KeyCode = 0 
If InStr(1, TextBox1.Text, "-") = 0 Then 
TextBox1. Texto = "-" & TextBox1.Text 
Else 
TextBox1.Text = VBA.Replace(TextBox1.Text, "-", ""
End Select

[georgiboy]

Not sure if you got an answer on MrExcel as there was no link provided.

below is a method of looping through controls:

Private Sub UserForm_Initialize()
    Dim i As Integer
    For i = 1 To 5
        Controls("TextBox" & i).Value = "Hello World"
    Next i
End Sub