Macro copiar ultima fila vacía
Primero mi gran admiración por el apoyo que brindan para los que no tenemos la experiencia en macro, tengo una en hoja de excel cuya macro me copia de hoja 1 a hoja2 pero necesito que no me borre lo copiado de ciertas filas si no que busque fila vacía y aquí continué esta es la macro
Sub Macro_copiar()
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
h1.[A4].Copy h2.[A2]
h1.[A4].Copy h2.[A3]
h1.[A4].Copy h2.[A4]
h1.[A4].Copy h2.[A5]
h1.[A4].Copy h2.[A6]
h1.[A4].Copy h2.[A7]
h1.[A8:C8].Copy h2.[B2:D2]
h1.[A9:C9].Copy h2.[B3:D3]
h1.[A10:C10].Copy h2.[B4:D4]
h1.[A11:C11].Copy h2.[B5:D5]
h1.[A12:C12].Copy h2.[B6:D6]
h1.[A13:C13].Copy h2.[B7:D7]
Application.CutCopyMode = False
MsgBox "Copiado"
End Sub
1 Respuesta
Te anexo la macro actualizada
Sub Macro_copiar()
'Act.Por.Dante Amor
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
u = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
h1.[A4].Copy h2.Cells(u, "A") '[A2]
h1.[A4].Copy h2.Cells(u + 1, "A") '[A3]
h1.[A4].Copy h2.Cells(u + 2, "A") '[A4]
h1.[A4].Copy h2.Cells(u + 3, "A") '[A5]
h1.[A4].Copy h2.Cells(u + 4, "A") '[A6]
h1.[A4].Copy h2.Cells(u + 5, "A") '[A7]
h1.[A8:C8].Copy h2.Cells(u, "B") ' [B2:D2]
h1.[A9:C9].Copy h2.Cells(u + 1, "B") '[B3:D3]
h1.[A10:C10].Copy h2.Cells(u + 2, "B") '[B4:D4]
h1.[A11:C11].Copy h2.Cells(u + 3, "B") '[B5:D5]
h1.[A12:C12].Copy h2.Cells(u + 4, "B") '[B6:D6]
h1.[A13:C13].Copy h2.Cells(u + 5, "B") '[B7:D7]
Application.CutCopyMode = False
MsgBox "Copiado"
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
