Vba kode PasteSpecial xlPasteValues
Jeg forsøger at lære mig VBA for Excell.Nedenfor kan I se en kode som skal kopiere hele rækken (row) fra et ark (sheet) til en andet. Men der får jeg en fejlmelding: Runtime error "1004" Application-defined or object-defined error.
Række som skal kopieres ligger findes i arket [/b]Opgaver[/b] og skal kopieres over til Log.
Hvis jeg ændrer arknavnet til det samme som der oplysningen ligger Opgaver virker koden (denne kode er kommenteret ud nedefor.
Har forsøgt med at benytte nummer på arkfanen i stedet for navn. Og jeg har kopieret kode fra et andet ark, hvor det virker...
Er det PasteSpecial eller xlPasteValue som driller mig?
Kode er som følger:
ActiveCell.EntireRow.Copy
'Sheets("Opgaver").Range("A5").End(xlDown).Offset(3, 0).PasteSpecial xlPasteValues
Sheets("Log").Range("A5").End(xlDown).Offset(2, 0).PasteSpecial xlPasteValues
'ActiveCell.EntireRow.Delete