Modificar Marco para copiar y pegar
Te escribo para solicitar tu ayuda, la macro que tengo necesito ejecutarla diariamente, pero necesito que los datos diarios se vayan pegando a continuación de los pegados del día anterior, hoy me pega los datos encima y no puedo armar el respaldo diario que necesito, ¿me podrías ayudar?. Esta es la macro:
Sub Copiar_Filas()
'inicializo la variable j
j = 2
'comienzo el bucle
For i = 2 To 500
'activo la hoja donde están mis datos
Sheets("Mes").Activate
'compruebo que el valor de la fecha es mayor que 30
If Cells(i, "N").Value = 1 Then
'copio la fila entera
Range(Cells(i, "A"), Cells(i, "M")).Select
Selection. Copy
'selecciono la hoja donde quiero pegar y después la celda
Sheets("Acum"). Activate
Cells(j, "A").Select
'pego la fila que hemos copiado
Selection. PasteSpecial xlPasteValues
Application.CutCopyMode = xlCopy
'aumento la variable j para que vaya a la siguiente fila de la hoja filtros
'cuando encuentre una nueva fila que cumple con la condición de edad
j = j + 1
End If
Next
End Sub
Al inicio de tu macro colocas la fila en 2 cuando debieras buscar la primer libre de la col A, con esta instrucción:
Sub Copiar_Filas()
'inicializo la variable j
j = Sheets("Acum").Range("A" & Rows. Count).End(xlup). Row + 1Probalo y me comentas. Si el tema queda resuelto no olvides valorar la respuesta (opciones: excelente o buena).
