PasteSpecial VBA werkt niet

[SeRoMaRu]

Beste,

Ik krijg elke keer een bug melding bij de PasteSpecial van deze with. Kan iemand mij helpen?

    Dim lastRow As String
        Sheets("alarmloggingen").Visible = True
        Sheets("alarmloggingen").Select
        lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1
        Range("A" & lastRow).Select
        ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Alvast bedankt,

Met vriendelijke groet,
Rob

 

[Haije]

Rob,

volgens mij vergeet je een Copy opdracht....
dan weet Excel ook niet wat er gepaste specialed moet worden

 

[SeRoMaRu]

Bedankt voor de reactie!

Het wordt gekopieerd van een andere werksheet, dit gebeurd analoog/met de hand/niet met VBA! Dus er staan wel gegevens op het klembord

 

[edmoor]

Ik krijg elke keer een bug melding bij de PasteSpecial van deze with.

En welke melding krijg je dan?

 

[SeRoMaRu]

Run-time error '1004'

Paste special method of range class failed

 

[Haije]

en toch zou ik eens in de macro zetten wat er gekopieerd moet worden.

 

[edmoor]

Bij PasteSpecial moet je een range aangeven. Maak er maar eens dit van:

ActiveSheet.Range("A" & lastRow).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Zorg inderdaad wel dat er een Copy opdracht actief is. Dus een bereik met lopende lijntjes er omheen. Anders blijf je dezelfde fout houden.

 

[Warme bakkertje]

With Sheets("alarmloggingen")
    .Visible = True
    .Range("A" & .Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
End With