Copiar datos de una hoja a otra pegándolos en la ultima fila vacía con macro

¿Una macro que copie datos de una hoja a otra pegándolos en la ultima fila vacía que encuentre?

1 Respuesta

Respuesta
3

Te anexo la macro. Cambia las hojas hoja1 y hoja2 por el nombre de tus hojas. Te puse 4 ejemplos para copiar 4 celdas a la fila de la hoja destino, cambia las celdas A3, B4, C5, D4 por las celdas que quieras copiar, también cambia la columna a la que quieras copiar.

Procura que el dato que pongas en la columna A de la hoja2 siempre tenga valor.

Sub Copiar_Datos()
'---
'   Por.Dante Amor
'---
    Set h1 = Sheets("Hoja1")        'hoja origen
    Set h2 = Sheets("Hoja2")        'hoja destino
    u2 = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
    h1.Range("A3").Copy h2.Range("A" & u2)
    h1.Range("B4").Copy h2.Range("B" & u2)
    h1.Range("C5").Copy h2.Range("C" & u2)
    h1.Range("D4").Copy h2.Range("D" & u2)
    MsgBox "Datos copiados", vbInformation
End Sub

Avísame cualquier duda.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Hola esta muy bien el código, el detalle es que quiero que del "Libro1", "hoja1" copie a partir del rango "B8 las filas que tengan datos, y copie esos datos solo como valores en el "Libro2", "Hoja1" a partir de la de la celda "B4" y los vaya pegando en la fila que encuentre que este vacía en esa columna, ya que se van ir guardando datos semana con semana en esa hoja1 del libro2, y tengo que estarlos copiando manualmente, gracias por tu aporte espero contar con tu atenta colaboración, excelente día!!!

En la primera petición no mencionaste 2 libros, solamente "copie datos de una hoja a otra".

Te anexo la nueva macro, cambia "libro2.xlsx", por el nombre de tu libro2, el archivo lo tienes que tener abierto cuando hagas la copia.

Sub Copiar_Datos()
'---
'   Por.Dante Amor
'---
    Application.ScreenUpdating = False
    Set l1 = ThisWorkbook
    Set h1 = l1.Sheets("Hoja1")         'hoja origen
    Set l2 = Workbooks("libro2.xlsx")   'libro destino con extensión, debe estar abierto
    Set h2 = l2.Sheets("Hoja1")         'hoja destino
    u1 = h1.Range("B" & Rows.Count).End(xlUp).Row
    If u1 < 8 Then u1 = 8
    u2 = h2.Range("B" & Rows.Count).End(xlUp).Row + 1
    If u2 < 4 Then u2 = 4
    h1.Rows(8 & ":" & u1).Copy
    h2.Range("A" & u2).PasteSpecial xlValues
    Application.ScreenUpdating = True
    Application.CutCopyMode = False
    MsgBox "Datos copiados", vbInformation
End Sub

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

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....
1 respuesta

Copiar registros de una hoja en la siguiente hoja

Haber si me puedo explicar, necesito una macro que copie de la hoja1 a la hoja2 de 50 en 50 registros, pero dejando un espacio entre cada copia por ejemplo que lea los primeros 50 registros de la hoja1 y que los copie a la hoja2, que deje un espacio...
1 respuesta

Macro para copiar datos a otra hoja, y detecte la fila vacía para seguir haciendo registros.

Tengo una hoja llamada Cargo_liq. Lleno unos datos y quiero que con una macro los datos de la columna llamada (OD), pasen a la hoja llamada registro y se copie a partir de "C3". Como es un cargo que lleno diariamente siempre ingreso datos y quiero...
2 respuestas

Copiar columna P pero donde la condición sea hasta la ultima fila de la columna A

Su ayuda para copiar los registros de la columna P3 hasta que la columna A no tenga registros, esto por que las formas que tengo en P llegan hasta el registro P2002 y no quiero copiar todo. Considerar que no siempre copiara hasta la P182, esto...
1 respuesta

Macro que me busque un valor y lo copie a otra hoja

Requiero de su sabiduría Necesito crear una macro que evalué si una celda (HOJA 1, Celda U3) cumple una condición. Si la condición se cumple (="Eisai613"), que copie el contenido de una segunda celda de la misma fila (HOJA 1, Celda B3) y lo pegue en...
2 respuestas

Macro que actualiza datos en función de una condición

Para Dante Amor. Quisiera que esta macro que te transcribo fuera operativa no solo bajo celdas con un valor dado sino también con valor que derive de una fórmula (ahora solo es operativa cuando el valor de la celda no es resultado de fórmula). Sub...
1 respuesta

Consolidar fecha y totales en la misma posicion

Necesito una macro para consolidar fecha y totales en la misma posicion O sea que quede asi Muchas graciasssss
1 respuesta

Recorrer Columna y copiar los datos

Estoy queriendo hacer un código VB para excel donde me recorra la Columna M de una hoja que especificar con inputbox Inicia en M6 y termina en variable quiero decir va creciendo las filas el dato que quiero buscar es "disponible" y que si es me copie...
1 respuesta

Según el valor de una celda, buscar todos los registros coincidentes y mostrarlos en forma alfabética en otra hoja

Estimado tengo un excel que tiene 2 hojas una con los datos y otra donde quiero que me muestre sólo los datos según el valor dado en una celda con lista de validación. Por ejemplo que me muestre a todos registros que tienen por apellido "LORCA", con...
2 respuestas

Contar.SI en VBA Excel, elementos que se encuentran en otra Hoja.

Quiero colocar en la Hoja1, los valores resultantes de CONTAR elementos que se encuentran en la Hoja2, utilizando la Función CONTAR. SI en VBA, he utilizado este ejemplo, pero no me funciona: ActiveSheet.Range("M3") =...
1 respuesta