Copiay pegar selección con macro

Te quiero consultar por una macro. Selecciona una serie de datos de acuerdo a una condición y los pega en otra hoja, pero necesito que los peque como valor y al agregar este último requerimiento me genera un error 1004, 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
ActiveSheet. 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

1 respuesta

Respuesta
1

Cambia esta línea

ActiveSheet. PasteSpecial xlPasteValues

Por esta:

Selection.PasteSpecial xlPasteValues

[Sal u dos. No olvides valorar la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas