In VBA are "Variable" Variable Userform Object Names Possible?

[jardenp]

In a Userform I have three groups of maybe 30 text boxes, command buttons, radio buttons, etc. The groups are identical except for the number in the object names. For example, I have 3 text boxes: LastName_TB1, LastName_TB2, and LastName_TB3; or 3 command buttons: ProcessScan_CB1, ProcessScan_CB2, and ProcessScan_CB3. It's in groups because I have command buttons that copy certain data down to the next group, making it much faster for the person entering data.

At the bottom there is a command button to process the data. That command button will run a series of checks and data moves to each group separately.

Is there a way to write a script that I could run a 3-iteration loop on to change the object names or do I just need to make copies of the finished scripts and, say, replace all "TB1" with "TB2", "CB1" with "CB2", etc.? I'm thinking something along the lines of

For i = 1 to 3
    ...
    LastName_TB&i.copy Sheets(Destination)...
    ...
Next i

Where "i" become part of the object name.

I mean...I can copy and replace...but it's probably 250 lines of code to "process" a group, any future change would have to be made in three places, sounds like a pain to get straight, reading through copies to make sure the find and replace went ok, etc.

Thank you!

 

[Fluff]

You can do it like

   Dim i As Long
   
   For i = 1 To 3
      Sheets("Destination").Range("F" & i).Value = Me.Controls("LastName_TB" & i)
   Next i

 

[jardenp]

You can do it like

   Dim i As Long
  
   For i = 1 To 3
      Sheets("Destination").Range("F" & i).Value = Me.Controls("LastName_TB" & i)
   Next i

Thank you, Fluff! That's exactly what I was looking for!

 

[jardenp]

One quick follow up, if I may: does this also work on normal variable names? If not, is there a similar solution for those? I'm thinking of Integer, Date, etc. names.

 

[Fluff]

No it doesn't work for variables, however you could us an array

   Dim aryNames As Variant
  
   aryNames = Array("Tom", "Dick", "Harry")
   Debug.Print aryNames(2)

 

[jardenp]

How would I use that to get, say, a message boxes to display "2" then "3" here?

Dim aryNames As Variant
Dim i As Integer
Dim num1 As Integer: num1 = 2
Dim num2 As Integer: num2 = 3

For i = 1 To 2

   aryNames = Array("num", i)
   MsgBox aryNames
Next i

I'm not familiar with how arrays work, so I'm just experimenting here.

 

[Fluff]

Like

Dim aryNum(1 To 2) As Long
Dim i As Integer

aryNum(1) = 2
aryNum(2) = 3
For i = 1 To 2
   MsgBox aryNum(i)
Next i

 

[jardenp]

I think I get that . Thanks.

 

[Fluff]

You're welcome & thanks for the feedback.