kopieren naar laatste regel in tabel

[Pander]

beste mensen,

zo heb je een tijdje geen vragen, zo struikel je over de excelobstakels..

Ik heb een aantal 'draadjes' doorgelezen maar vind niet geheel wat ik zoek en mijn eigen probeersels lijken onderhand nergens meer op.

In het voorbeeld bestandje staan twee tabbladen. Ik wil graag de inhoud van de cellen A2:L2 van het tabblad "knip" kopieren naar de eerst volgende lege regel in het tabblad: "plak"
Hoe doe ik dat het best?

 

[roeljongman]

wat dacht je van deze code.

Sub KnipPlak()

Blad1.Range("A2:L2").Cut Blad2.Range("A1").End(xlDown).Offset(1)

End Sub

Blad1 en blad2 kan je ook vervangen door Sheet("Knip") en Sheets("Plak") is precies hetzelfde
Ik kies voor .Cut omdat het dan in 1 stap gaat
.End(xldown) brengt je naar de laatst gevulde cel in kolom A
.offset(1) zorgt dat je nog 1 regel omlaag gaat zodat je op een lege regel uitkomt.

 

[Pander]

hoi roeljongman,

dankjewel voor je reactie en uitleg: fijn!

is er ook variant waarin je alleen de waarden kopieert?

Ik heb overigens meerdere varianten geprobeerd om Blad1 en Blad2 te vervangen door bijv: Sheet("knip") en Sheet("plak"), met haakjes, zonder haakjes. Zonder Sheet enz,
maar in alle gevallen kreeg ik het niet werkend..

Zou je nog eens een blik willen werpen?

 

[Pander]

ben eruit. Sorry voor het volgooien van het forum. De oplossing die voor mij werkt:

Sub Macro1()
'
' Macro1 Macro
'
' Sneltoets: Ctrl+Shift+X
'
    Sheets("Blad1").Select
    Range("A2:B2").Select
    Selection.Copy
    Sheets("Blad2").Select
    Range("a1").End(xlDown).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

 

[snb]

Vermijd altijd 'Select' en 'Activate' in VBA !

Sub M_snb()
  Blad2.Range("A1").End(xlDown).Offset(1).resize(,11)=Blad1.Range("A2:L2").Value
End Sub

 

[Pander]

dank voor de toevoeging.

het complete stukje is nou als volgt geworden:

Sub toevoegenaanlijst()
'
' Macro1 Macro
'
' Sneltoets: Ctrl+Shift+X
'
    Sheets("2019").Select
    Range("A2:Q2").Select
    Selection.Copy
    Sheets("2019 - Verzonden brieven").Select
    Range("a1").End(xlDown).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("2019").Select
    Range("A2:G2,M2:Q2").Select
    Selection.ClearContents
    MsgBox "De gegevens zijn toegevoegd aan de lijst met verzonden brieven", vbInformation, "Lekker gewerkt"
End Sub

Mag ik je vragen hoe jij dit zou formuleren?

 

[snb]

Het was geen toevoeging, maar in de plaats van.
Lees de eerste zin boven de code nog eens rustig door.