Aplicar el Método "Until" en la sintaxis

Buenas noches,

Quisiera por favor me pudiesen ayudar con el siguiente requerimiento.

j = Worksheets("Base").Range("B" & Rows.Count).End(xlUp).Row + 1
For i = 25 To Range("A" & Rows.Count).End(xlUp).Row
Worksheets("Base").Cells(j, "B") = Cells(i, "A")
j = j + 1
Next

-------------------------------------------------------------------------------------------------------------------------------------------

Lo que quiero es poder aplicar el método "UNTIL" en la sintaxis anterior, necesito que corra desde i = 25 hasta la celda A43 pero no se como programarlo.

De antemano gracias.

1 respuesta

Respuesta
1

No sería algo más o menos así...

...
j = Worksheets("Base").Range("B" & Rows.Count).End(xlUp).Row + 1
For i = 25 To 43
 Worksheets("Base").Cells(j, "B") = Cells(i, "A")
 j = j + 1
Next i
...

¡Gracias! Gustavo

Era solo eso, ja ja, muchas gracias, pensaba que debía declarar el rango completo, soy algo novato en el tema pero FUNCIONO perfectamente.

Excelente entonces! No olvides finalizar la pregunta

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas