Macro para copiar datos de una hoja y guardarlas en otra hoja
Para: Dante
Recurriendo nuevamente a tu ayuda, como puedo realizar una macro que copie los datos de una hoja1 siempre de la ultima fila de ciertas celdas y las guarde en la hoja2, por ejemplo: Imagen 1: Copia datos de la hoja1 de la ultima fila.
Imagen 2: Guarda en hoja2 a partir de la fila 5
1 Respuesta
Respuesta de Dante Amor
1
No aparecen las columnas que se tienen que copiar y a qué columna inicial se deben pegar. Estoy asumiendo que es desde la columna D hasta la columna K y que se tiene que pegar en la columna A de la hoja2.
Sub CopiarCeldas()
'Por.Dante Amor
Application.ScreenUpdating = False
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
u1 = h1.Range("D" & Rows.Count).End(xlUp).Row
u2 = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
h1.Range(h1.Cells(u1, "D"), h1.Cells(u1, "K")).Copy
h2.Range("A" & u2).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End SubSi son otras columnas, avísame para adecuar la macro.
Saludos. Dante Amor
Hola! Dante
Gracias por la respuesta las columnas son las siguientes.
Utiliza esta macro
Sub CopiarCeldas()
'Por.Dante Amor
Application.ScreenUpdating = False
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
u1 = h1.Range("A" & Rows.Count).End(xlUp).Row
u2 = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
h1.Range(h1.Cells(u1, "A"), h1.Cells(u1, "K")).Copy
h2.Range("A" & u2).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End SubSaludos.Dante Amor
