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
3 respuestas
Respuesta de Dante Amor
3
Respuesta de Programar Excel
2
Respuesta de Isaac Reyes
1