Crear bucle pasando por varios textbox y asignando un valor a cada
Estoy intentando cargar varios textbox de un formulario vba en excel. Los texbox se llaman txt1, txt2... Hasta txt. 20. Quiero ir haciendo una serie de cálculos de datos que tengo en una hoja excel e ir cargando los resultados en sus respectivos textbox. He encontrado algo que usa los métodos de Controls pero no consigo aplicarlos. Lo que quiero es convertir el nombre del textbox en variable y acceder a él para asignarle un valor
Private Sub CalcularHorasTrabajo(col As Range, mes As Integer) Dim calculoMes As TextBox Dim ctrls() As Control Dim x, mañ, trd, full, total As Integer Dim ctrls() As Control ctrls() = Me.Controls.Find("txt" & mes, True) calculoMes.Text = directcast(ctrls(0), TextBox) mñn = 0 trd = 0 full = 0 For x = 2 To 32 If col.Offset(0, x).Value = "M" Then mñn = mñn + 1 ElseIf col.Offset(0, x).Value = "T" Then trd = trd + 1 ElseIf col.Offset(0, x).Value = "m/t" Then full = full + 1 End If Next total = (full * Parametros.Range("b12").Value) + (mñn * Parametros.Range("b11").Value) + (trd * Parametros.Range("b10").Value) End Sub
3 respuestas
Respuesta de Elsa Matilde
2
Respuesta de Julián González Cabarcos
1
Respuesta de Dante Amor