Copiar fila hasta última celda activa

[JoseLinaresA]

Estimados amigos,

Tengo una consulta, estoy seguro que sabrán orientarme! :D
Tengo una hoja donde debo copiar lo que está en la fila 3 (desde C:E) hasta la última celda activa, en este caso...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[jonamac1]

Utiliza este código, la función te va ayudar a saber cual es la utilma linea con datos, lo que deberas especificar dentro de la macro (Sub) es el nombre de la hoja, columna y fila inicial...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[JoseLinaresA]

Gracias por la respuesta!
Pero no UBICO cómo aplicarlo a mi cuadro, que en realidad es otro (adjunto). Pensé que era más sencillo.
Adjunto mi cuadro original donde la idea es copiar toda la fila...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Gerson Pineda]

Hola

Prueba esta opcion, siguiendo con el autocompletar

Sub test()
With Range("A2", Range("A2").End(xlDown))...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[JoseLinaresA]

Hola Gerson!

Gracias por el apoyo. Funcionó perfecto en el primer cuadro, sin embargo he estado intentando aplicarlo en el segundo cuadro que envié, pero no me corre! La idea es copiar desde la...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[JoseLinaresA]

Ya vi la luz!!
El código es el siguiente:

<i>
</i>Sub Test ()
With Range("A4", Range("A4").End(xlDown))
Range("I5:U5").AutoFill .Offset(1, 8).Resize(.Rows.Count - 1, 13)
End With
End Sub...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí