VBA - gekopieerde data toevoegen aan tabel

[Bart755]

Hey allemaal,

In de bijlage vind je een excel document met daarin de macro: "WD1_CopyPaste_to_WD2"

macro:
1) een filter zetten op de tabel "tbl_GIT_PO7" in tab "Data_GIT_PO_WD1"
2) deze data kopiëren
3) deze data plakken/toevoegen aan tabel "tbl_GIT_PO" in de tab "Data_GIT_PO"

=> Het probleem begint wanneer ik de data aan de tabel "tbl_GIT_PO" wil toevoegen. Ik ben zelf geen expert met macro's vandaar dat je wel kunt merken dat ik het allemaal eenvoudig houd Ik dacht net zoals ik het zelf zou doen, selecteer een bepaalde cell + paste maar dit principe lijkt niet te lukken als het op tabellen aankomt.

Help.

Alvast bedankt!

MVG,
Bart

 

[VenA]

Probeer het zo eens.

Sub VenA()
  With Sheets("Data_GIT_PO_WD1").ListObjects(1).Range
    .AutoFilter 45, "Yes"
    .Offset(1).Resize(, 44).Copy Sheets("Data_GIT_PO").Cells(Rows.Count, 1).End(xlUp).Offset(1)
    .AutoFilter
  End With
End Sub

 

[Bart755]

Jep, het werkt! Perfect, bedankt!

 

[snb]

Sub M_snb()
  With [tbl_GIT_PO7]
    .AutoFilter 45, "YES"
    .Offset(1).Copy [tbl_GIT_PO].Cells(1).End(xlDown).Offset(1)
    .AutoFilter
  End With
End Sub