Como hacer que un textbox cambie de nombre a partir de una variable
Hola
Quiero definir una variable ejem i = 1
Tengo cinco textbox desde el textbox1 hasta el textbox5 en un userform, lo que quiero es poder definir la variable i = 1 para correr una macro cíclica
i = 1
while
Textboxi = 100
i = i + 1
when
Y asi poder completar todos los textbox con un solo código
1 respuesta
No puedes definir una variable de ese forma para un objeto o una clase, lo que podemos hacer es conocer su nombre y entonces asignarle un valor, por ejemplo:
Con la siguiente rutina podemos saber todos los textbox que existen en tu userform.
Private Sub CommandButton1_Click()
For Each ctrl In Me.Controls
If TypeName(ctrl) = "TextBox" Then
ctrl.Value = 100
End If
Next
End Sub
Si quieres saber de los textbox si es el 1, 2 ,3,4 ó 5, puedes hacer esto:
Private Sub CommandButton2_Click()
For Each ctrl In Me.Controls
If TypeName(ctrl) = "TextBox" Then
Select Case Right(ctrl.Name, 1)
Case 1
ctrl.Value = 101
Case 2
ctrl.Value = 102
Case 3
ctrl.Value = 103
Case 4
ctrl.Value = 104
Case 5
ctrl.Value = 105
End Select
End If
Next
End Sub
Saludos. Dam
Si es lo que necesitas.
