Gegevens van tabel updaten uit ander tabblad

[carloschouw]

Goedemorgen!

Ik heb een vraag over om mogelijkheid voor het updaten van gegevens uit een table:

In de bijlage heb ik een voorbeeldje geplaatst waarin:

- in tabblad 2 de actuele gegevens staan
- in tabblad 1 is het bestand waar ik de gegevens van tabblad 2 in zou willen updaten
Wanneer ik in tabblad 2 een nieuwe waarde toevoeg, deze ook meegenomen wordt in tabblad 1

Is er een methode - vba code,.. waarmee ik tabblad 1 kan laten vullen met de gegevens uit tabblad 2?

Groet, Carlo

 

[mvdvlist]

Simpele macro. Kun je ook zelf opnemen...

 

[carloschouw]

Zoiets werkt iid prima!

Dank voor je hulp

 

[VenA]

Kan ik mij niets bij voorstellen.:shocked: Je hebt dan aan 1 tabel toch genoeg?

 

[mvdvlist]

De reden waarom hij twee tabellen heeft, weten wij niet. Misschien iets om over na te denken. Uiteraard kun je al de gegevens die je wilt weten, nu uit die ene (aangevulde!sic..) tabel halen

 

[VenA]

Dan zou ik het alsnog zonder copy doen

Sub VenA()
  ar = Sheets("Blad2").ListObjects(1).DataBodyRange
  With Sheets("Blad1").ListObjects(1)
    If .ListRows.Count Then .DataBodyRange.Delete
    .ListRows.Add.Range.Resize(UBound(ar), UBound(ar, 2)) = ar
  End With
End Sub

 

[HSV]

Copy is vele malen sneller en neemt ook de kolommen mee.

Sub hsv()
 Sheets("Blad2").ListObjects(1).Range.Copy Sheets("blad1").Cells(1)
End Sub