Foutmelding Macro

[ms1106]

Hoi,

Ik heb een probleem met een macro waar ik niet uit kom.
Ik haal gegevens op in 2 tabellen op 2 verschillende tabbladen, vervolgens wil ik dat de info uit de ene tabel gekopieerd en geplakt wordt onder de 2e tabel.

In het voorbeeldbestand heb ik een macro opgenomen (in office 2010). Als ik deze uitvoer krijg ik een foutmelding bij het selecteren van het tabblad waar ik de gegevens van de tabel wil plakken.
In Office 2016 werkt het wel, maar niet in Office 2010. Terwijl ik de macro opgenomen heb in Office 2010.

Iemand zo een idee waar dit aan kan liggen?
Alvast bedankt voor de moeite!

 

[OctaFish]

Het hele kopieren kun je veel beter doen zonder selecties.

Dim ws As Worksheet
Dim rng1 As Range, rng2 As Range
    
    Set rng1 = Sheets("Nacalculatie inclusief loonmuta").Range("loon")
    Set ws = Sheets("Mutaties")
    lRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    Set rng2 = ws.Cells(lRow, 1)
    rng1.Copy rng2

 

[ms1106]

Het hele kopieren kun je veel beter doen zonder selecties.

Dim ws As Worksheet
Dim rng1 As Range, rng2 As Range
    
    Set rng1 = Sheets("Nacalculatie inclusief loonmuta").Range("loon")
    Set ws = Sheets("Mutaties")
    lRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    Set rng2 = ws.Cells(lRow, 1)
    rng1.Copy rng2

Ik had al een vermoeden dat het makkelijker kon . Maar aangezien ik eigenlijk pas net een beetje begin met VBA en macro's dacht ik het mezelf makkelijker te maken door de macro op te nemen en iets te bewerken waar nodig.
Maar deze oplossing werkt, dank je wel :thumb:

 

[OctaFish]

Volgende keer de quote knop met rust laten, en je antwoord gewoon in het tekstveld <Snel reageren> typen; quooten is in dit geval uiteraard volkomen zinloos en overbodig .

 

[VenA]

Over zinloos en overbodige gesproken:d

Sub VenA()
  Blad1.ListObjects(1).DataBodyRange.Copy Blad2.Cells(Rows.Count, 1).End(xlUp).Offset(1)
  ThisWorkbook.RefreshAll
  Application.Goto Blad3.[A1]
End Sub