PasteSpecial

[Theophiel]

Halle beste forumleden,

Ik krijg het maar niet klaar om enkel de waarden te op een andere sheet te plakken, ik hoop hier wat hulp te vinden.

Sheets("data").Range("A2:E100").Copy Sheets("Backup").Range("A" & Rows.Count).End(xlUp).Offset(1)

De code

PasteSpecial Paste:=xlPasteValues

Deze code zou hieraan moeten toegevoegd worden maar dat lukt me niet.


Alvast bedankt op voorhand!

 

[Aar]

Sheets("Data").Range("A2:E100").Copy
Sheets("Backup").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues

Hiermee kopieer je het bereik van A2 tot en met E100 op het werkblad
"Data" en plak je het in het volgende beschikbare rij op het werkblad
"Backup", met behulp van de methode .End(xlUp) om de laatste rij met gegevens te vinden. De methode .PasteSpecial met de optie xlPasteValues zorgt ervoor dat alleen de waarden worden geplakt zonder opmaak of formules.

Ik hoop dat het correct is. En zo ja, bedank ChatGPT maar ;-)

 

[Theophiel]

Heel erg bedankt! zo werkt het inderdaad.

 

[Aar]

Lang leve de kunstmatige intelligentie..

 

[snb]

VBA <> automatisering van de UI.
Kopiëren is overbodig in een OO-omgeving.

Sub M_snb()
  Sheets("Backup").cells(rows.count,1).End(xlUp).Offset(1).resize(99,5)= Sheets("data").Range("A2:E100").value
End Sub