Halløjsa vba-hajer,

jeg sidder og bakser med et problem vedrørende at få kopieret data fra én tabel i et faneblad til en tabel i et andet faneblad - som jeg meget gerne vil have jeres hjælp til.

Hvis i åbner vedhæftede eksempel regneark, vil jeg meget gerne have skrevet én kode, som automatisk flytter data fra tabellen "Kopier_fra" i tabelkolonnen "beskrivelse" i fanebladet "Kopierfra" over i den tilsvarende tabelkolonne i tabellen "Kopier_til" i fanebladet "Kopiertil".

Som nævnt jeg forsøgt at skrive koden, som en "worksheet - activate" kode, men det det virker ikke rigtigt. Dog har jeg fået den kode, som sletter de eksisterende data undtagen første række i tabellen "kopier_til" til at virke.

Er der nogle der kan hjælpe med at løse problemet?? På forhånd tak

test_-_activate.xlsm

Undskyld den sene tilbagemelding, men tak i øvrigt for forslag til løsning.

Det var noget i den retning, jeg havde forestillet mig kunne løse problemet, men ovenstående kode, er dog ikke helt i "øjet", da den sletter den eksisterende tabel, og erstatter den med den anden.

Jeg har selv arbejdet lidt videre, og nået fremtil at det faktisk bare var følgende kode, giver det resultat, som jeg var ude efter:

"""""""""""""""""""""""""""""""""""""""""""""""""
Kopierfra.Range("Kopier_fra[beskrivelse]").Copy Destination:=Kopiertil.Range("Kopier_til[beskrivelse]")
"""""""""""""""""""""""""""""""""""""""""""""""""
Vedlægger lige et opdateret regneark
test_-_activate_2018-08-05_18-37-22.xlsm

Jeg har lige prøvet at teste, og clearcontent sletter faktisk hele "kopiertil" tabellen, og det var jo ikke meningen.

Ifht Copy koden - så er det mere en tilfældighed, at tabellen er placeret i celle "a1". Ifht den situation, hvor jeg i praksis skal bruge tabellen vil den ikke have en fast placering hele tiden - derfor er range referencen ikke til en specifik celle i fanebladet, men derimod til tabel-kolonnen "beskrivelse" i tabellen "kopiertil".

for en god ordens skyld har jeg lige prøvet at genoploade regnearket - håber at det kan åbnes denne gang.
test_-_activatev1.xlsm