Userform edit multiple textboxes at the same time

[Formula11]

Is it possible to write to multiple textboxes at the same time.

For example:
1. Select first text box (say TextBox2)
2. Something like: Hold "Shift" and select last text box (say TextBox7)
3. Write Number, say 9

 

[DanteAmor]

Something like: Hold "Shift"

Maybe something like this.

Create a checkbox for each textbox, from 1 to 8, each check with its corresponding textbox

Mark the checkboxes corresponding to the textboxes you want to fill (They can be consecutive or not):

Enter number in the first textbox

Press Enter:

Put all the following code in your userform:

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 13 Then Call filltextboxes(1)
End Sub
Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 13 Then Call filltextboxes(2)
End Sub
Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 13 Then Call filltextboxes(3)
End Sub
Private Sub TextBox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 13 Then Call filltextboxes(4)
End Sub
Private Sub TextBox5_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 13 Then Call filltextboxes(5)
End Sub
Private Sub TextBox6_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 13 Then Call filltextboxes(6)
End Sub
Private Sub TextBox7_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 13 Then Call filltextboxes(7)
End Sub
Private Sub TextBox8_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 13 Then Call filltextboxes(8)
End Sub

Sub filltextboxes(n As Long)
  Dim i As Long
 
  For i = 1 To 8
    If Controls("CheckBox" & i) = True Then
      Controls("TextBox" & i).Value = Controls("TextBox" & n).Value
      Controls("CheckBox" & i) = False
    End If
  Next
End Sub

Note: If you have more than 8 textboxes (how many?), then we could create a class, so as not to repeat the same code for each textbox.

 

[Formula11]

Thanks DanteAmor, this is getting somewhere.
Yes there will be more than 8 textboxes, so will need to look at a class module.
Also I had to click each check box, was there a way to check first, press Shift, check next, and all in between are checked.

 

[DanteAmor]

If you have more than 8 textboxes (how many?)

Did you try the proposal?

Could you answer the questions.

-------------------------

was there a way to check first, press Shift, check next, and all in between are checked

As such there is no shift in the userform to mark the first and last.

I make the following proposal to you.
Checkboxes are no longer necessary.
1. Double click on the first textbox. Automatically it changes to green:

2. Double click on the next textbox. Automatically the middle textbox changes to green:

3. Capture the number in any green textbox and press enter. They are automatically filled in with the captured number:

Even if you repeat steps 1 and 2 on the textboxes that have numbers and delete the data in one of the textboxes, the data in all the green textboxes is automatically deleted, as if you were resetting to the initial values

---------------
Put all the following code in the userform:

Dim TxtBx() As New Class1         'At the start of all code
Public tot As Long

Private Sub UserForm_Initialize()
  Dim ctrl As MSForms.Control
  For Each ctrl In Me.Controls
    If TypeName(ctrl) = "TextBox" Then
      tot = tot + 1
      ReDim Preserve TxtBx(tot)
      Set TxtBx(tot).MultTextbox = ctrl
    End If
  Next
End Sub

Sub filltextboxes(n As Long)
  Dim i As Long
  
  For i = 1 To tot
    If Controls("TextBox" & i).BackColor = &H80FF80 Then
      Controls("TextBox" & i).Value = Controls("TextBox" & n).Value
      Controls("TextBox" & i).BackColor = &HFFFFFF
    End If
  Next
End Sub

Create a class module (Class1)

and put the following code:

Public WithEvents MultTextbox As MSForms.TextBox

Private Sub MultTextbox_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  Dim i As Long, checkStart As Long, checkFinal As Long
  
  With UserForm1
    
    If MultTextbox.BackColor = &H80FF80 Then
      MultTextbox.BackColor = &HFFFFFF      'white
    Else
      MultTextbox.BackColor = &H80FF80      'green
    End If
    
    For i = 1 To .tot
      If .Controls("TextBox" & i).BackColor = &H80FF80 Then
        If checkStart = 0 Then
          checkStart = i
        ElseIf checkStart > 0 And checkStart < i Then
          checkFinal = i
        End If
      End If
    Next
    
    If checkStart > 0 And checkFinal > 0 Then
      For i = checkStart + 1 To checkFinal - 1
        .Controls("TextBox" & i).BackColor = &H80FF80
      Next
    End If
  End With

End Sub

Private Sub MultTextbox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  Dim num As Long
  If KeyCode = 13 Then
    num = Mid(MultTextbox.Name, 8, 3)
    Call UserForm1.filltextboxes(num)
  End If
End Sub

Try the proposal and tell me.

 

[Formula11]

Thanks DanteAmor, this works and is very useful.

With the number of textboxes, the number is an unknown since they will come from a selected range which is different every time. The next step will be to get data from range and transfer to textboxes.