Me está dando problemas a la hora de pegar (la última parte de la macro).
Concretamente me sale el error:
"Se ha producido el error 1004 en tiempo de ejecución: Fallo en el método PasteSpecial de la clase Range."
Os dejo el código para que le echéis un ojo si podéis.
Código:
El error me da en la linea:Sub Encuentra_devueltos() n_meses = (Sheets.Count - 1) / 3 For j = 1 To n_meses ind_hoja = j * 3 Sheets(ind_hoja).Select For i = 1 To 1500 Sheets(ind_hoja).Select nombre = Range("J1").Offset(i, 0).Value If nombre = Vacio Then Else fila_devolver = Range("A1:Q1").Offset(i, 0).Select Application.CutCopyMode = False Selection.Copy Sheets("Impagados").Select Calculate n_impagados = Range("S1").Value Range("A1:Q1").Offset(n_impagados, 0).Select 'Application.CutCopyMode = False Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False End If Next Next End Sub
Código:
Tengo un nivel medio-bajo. Gracias por vuestra colaboración. Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False