Bucle para operar varios textbox

Quisiera molestarlos con algo que me esta causando algo de trabajo, tengo un formulario con algunos textbox, tengo un evento que opera varios textbox de la siguiente manera:

If cbomaq1.Value = 27 Then
txtrunmaq1.Value = 0
Else
txtrunmaq1.Value = (txttiros1.Value / txtestandar1.Value) + txtalistmaq1.Value
End If
If cbomaq2.Value = 27 Then
txtrunmaq2.Value = 0
Else
txtrunmaq2.Value = (txttiros2.Value / txtestandar2.Value) + txtalistmaq2.Value
End If
.........................
If cbomaq46.Value = 27 Then
txtrunmaq46.Value = 0
Else
txtrunmaq46.Value = (txttiros46.Value / txtestandar46.Value) + txtalistmaq46.Value
End If

Debo repetirlo 46 veces en este evento y tengo otros similares, alguien me comento que con un bucle podría solucionarlo, podrían ayudarme con este tema.

1 Respuesta

Respuesta
1

Puede ser algo así:

For i=1 to 46
    If Me.Controls("cbomaq" & i) = 27 Then
        Me.Controls("txtrunmaq" & i) = 0
      Else
        Me.Controls("txtrunmaq" & i) = (Me.Controls("txttiros" & i) / Me.Controls("txtestandar" & i) + Me.Controls("txtalistmaq" & i)
    End If
Next

Muchas gracias Jesús por tu pronta respuesta, pero me sale Error de compilación: Error de sintaxis en esta línea:

 Me.Controls("txtrunmaq" & i) = (Me.Controls("txttiros" & i) / Me.Controls("txtestandar" & i) + Me.Controls("txtalistmaq" & i)

Que podría ser?

Agradezco tu atención,

John Martinez

Despues de analizar el codigo, me di cuanta que faltab un parentisis de cierre, quedando de la siguiente manera:

Me.Controls("txtrunmaq" & i) = (Me.Controls("txttiros" & i) / Me.Controls("txtestandar" & i)) + Me.Controls("txtalistmaq" & i)

Agradezco mucho tu aporte Jesús, cada vez mas aprendo de ustedes.

Cordial saludo,

John Martinez

Ok, me lo comí al modificar tu código.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Pasar de un textbox a otro "Cuando llegue a un limite"

Para Dan Dan Sabes que me gustaría complementar el código que me proporcionaste anteriormente con lo siguiente Cuando llega el limite de n como hacer para que pase a un siguiente textbox que seria el textbox2 y si este también llega al limite de n...
1 respuesta

Al jalar el valor al formulario para modificar sale la coma y no el decimal, que debo hacer

Tengo un formulario de modificación de datos textos y valores num. Y en una parte del formulario. Debería aparecer el monto a modificar se supone con decimales ejm(1,245.47) pero al contrario aparece así ( 1245,47) entonces quisiera saber porque lo...
1 respuesta

Código VBA para TextBox con más de 10 campos en un UserForm

Para este caso utilizo un CommandButton que me vincula con un UserForm el cual contiene 26 TextBox, la idea es que los 26 campos de fila seleccionada en el listBox pasen a los TextBox, modificar alguno si es el caso y nuevamente pegar la información...
1 respuesta

Como Desmarcar selecciones de listbox

Para Dan Yo otra vez! ¿Me apaoyas en esto? Lo que deseo es desmarcar check de listbox con un commandbutton... Te adjunto la macro que tengo que meacabas de ayudar y la del boton que agrege para eliminar que no funcionamuy bien... Mi idea es agregar...
1 respuesta

No limpiar check de listbox al filtrar

Para Dan Hola sabes que tengo un inconveniete con el codigo que no he podido arreglar.. Tengo un listbox Un textbox "Textbox5" que es para ir escribiendo y filtrar el listbox y tengo un textbox "Textbox1" que al seleccionar un check del listbox los...
1 respuesta

Formulario de búsqueda no limita "la búsqueda" a una columna

Para Dante Amor: Hola, de nuevo molestándote. Tengo un formulario de búsqueda que tiene varias columnas, entre ellas el ID y una columna de Unidades, tanto la una como la otra comparten dígitos, y al filtrar un código (id) lee la columna de Unidades...
1 respuesta

Problema con un bucle

Otra vez yo molestando, bueno la verdad quiero saber si me puedes ayudar con un problemilla que tengo y es el siguiente: Tengo unos checkbox un botón y un textbox en un userform y la función del bucle es que cuando yo seleccione los checkbox y oprima...
1 respuesta

Codigo VBA para un Listbox con mas de 10 columnas

Estoy trabajando con un UserForm el cual contiene un listBox en el que cargo una base de datos por medio un filtro. El problema que me presenta el listBox es que no me carga mas de 10 columnas y necesito cargar 26. Les agradezco su ayuda y asesoría...
2 respuestas

Grabar varios Textbox vba

Quisiera que me ayudes por favor con este temita: En un userform1, tengo 50 textbox que van desde textbox1 ... Hasta textbox50. ¿Pregunta como puedo hacer para grabar los 50 cajas de textbox que se encuentren con datos en la columna "a", el registro...
1 respuesta

Buscar datos por medio de un textbox y modificar los mismos

Tengo formulario que me busca datos por medio de una textbox con el código Set, pero no tan solo necesito verlos sino que necesito abrir otro formulario dentó del mismo para poder modificarlos. Les pido su ayuda con esta información.
1 respuesta