Ciclo For con dos variables

Tengo el siguiente código:

Dim a As Integer

Dim b As Integer

For a = 1 And b = 1 To 3 step 1

Cells(1, a) = Me.Controls("Textbox" & b).Value

Next

End Sub

El cual me arroja un error de que no se encuentra el objeto especificado; lo que necesito es crear un ciclo for el cual aumente la variable "a" de uno en uno y al mismo tiempo incremente la variable "b" en dos en dos.

El código debería ingresar los valores de distintos textbox en columnas consecutivas.

1 respuesta

Respuesta
2

¿Lo qué parece es que 'a' debe incrementarse de 1 en 1 y 'b' de 2 en 2?

Si es así el código sería de este modo:

b= 1

For a = 1 To 3 

Cells(1, a) = Me.Controls("Textbox" & b).Value

b = b+2

Next

Probalo y si el tema queda resuelto no olvides valorar la respuesta sino aclara un poco más la consulta.

¡Gracias!  Es justo lo que necesitaba.

Te recuerdo que aún debes valorar la siguiente respuesta para que no siga apareciendo como 'pendiente'.

¿Crear un Macro que capture datos de varias filas cuando dichas filas cumplan una condición?

Sdos!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas