Copiar datos del libro activo a otro libro acumulando en la fila vacía
Estoy tratando de usar tu macro de una respuesta de otro usuario, pero me sale error
La idea es para no crear n cantidad de archivos, donde n es un periodo, es usar uno de base y copiar los datos de cada periodo en otro archivo para que acumule la información de cada periodo
La hoja del archivo origen se llama nomina y los datos comienzan en la B10 para que los copie en el archivo destino llamado acumulado en la hoja llamada BD que comienza en el B2
Sub Copiar_DatosJJ()
'---
' Por.Dante Amor
'---
Application.ScreenUpdating = False
Set l1 = ThisWorkbook
Set l2 = Workbooks("acumulado.xlsx") 'libro destino con extensión, debe estar abierto
Set h1 = l1.Sheets("Nomina") 'hoja origen
Set h2 = l2.Sheets("BD") 'hoja destino
u1 = h1.Range("B" & Rows.Count).End(xlUp).Row
u2 = h2.Range("B" & Rows.Count).End(xlUp).Row + 1
h1.u1.Copy h2.Range("B" & u2) '.PasteSpecial xlvalues
MsgBox "Datos copiados", vbInformation
End Sub
¿Qué error te aparece?
A ver si te puedo echar una mano.
Ya he solucionado que copie pero necesito es que me pegue a partir de la columna B y no de la A
en la columna A del libro destino va el número de registro
Requiero saber cómo quedó el código luego de la reparación para intentar ayudarte.
2 respuestas más de otros expertos
¿Quieres copiar todas las filas de la hoja origen a la hoja destino? Si es así, entonces cambia esta línea:
H1. U1. Copy h2.Range("B" & u2) '. PasteSpecial xlvaluesPor esta:
H1.rows("10:"& u1). Copy h2. Range("A" & u2)Prueba y me comentas.
Si no es lo que necesitas, entonces podrías explicar con detalle qué quieres copiar y de dónde a dónde.
[sal u dos
Esto tal vez ayude en algo
Visita https://programarexcel.com descarga cientos de ejemplos de macros gratis
✋👉⏩⏩ SUSCRIBE https://www.youtube.com/c/programarexcel?sub_confirmation=1 ✋👈⏪⏪ activa la campana y disfruta de cientos de tutoriales sobre macros gratis