krijg melding dat deze regel niet klopt

[kareltje555]

ActiveCell.Offset(1, 0).PasteSpecial Paste:=xlValues

dat staat in de volgende macro

Sub copy2()

r = ActiveCell.Row
Range(Cells(r, 1), Cells(r, 15)).Copy

Worksheets("Maaspoort").Activate 'Select
Range("a1").Select

Range("A400").End(xlUp).Select
ActiveCell.Offset(1, 0).PasteSpecial Paste:=xlValues

Call delete_dubbel

End Sub

 

[SjonR]

xlPasteValues ipv xlvalues geprobeerd?

of zo?

 Sheets("Maaspoort").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Resize(, 15).Value = Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 15)).Value

 

[HSV]

= Cells(ActiveCell.Row, 1).resize(,15).Value

 

[kareltje555]

op de 1e plaats dank
ik heb de code van SjonR gebruikt en werkt precies zoals bedoeld.
ook dank aan HSV voorde input

 

[HSV]

Het stukje van mij is een verkorte versie van het laatste stuk van @SjonR.

 

[kareltje555]

thnx