Saltar al contenido

copiar la ultima fila con datos


Recommended Posts

buenas noches nesecito un poco de ayuda con una macro lo explico  la macro busca la ultima fila con datos y luego deberia copiar desde esa selda seleccionada hacia la derecha(rango variable) luego pegar en una columna de otra hoja buscando la ultima fila vacia con trasponer

espero haberme explicado lo mejor posible a continuacion solo he llegado hasta esta, pero no encuentro el resto 

Dim ultimaFila As Integer
       
    ultimaFila = Cells(Rows.Count, 3).End(xlUp).Select

Enlace a comentario
Compartir con otras webs

@howling te dejo una solución. Adapta a tus celdas y rangos
 

Sub copiar()
Dim uF As Long, uC As Long

uF = Range("C" & Rows.Count).End(xlUp).Row
uC = Cells(uF, Columns.Count).End(xlToLeft).Column

Range(Cells(uF, 3), Cells(uF, uC)).Copy Hoja2.Range("C" & Hoja2.Range("C" & Rows.Count).End(xlUp).Row + 1)

End Sub

 

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.