Wookbook - activate. Kopier værdier iml. faneblade
Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=3562
Udskrevet den: 23.Nov.2024 kl. 09:18
Emne: Wookbook - activate. Kopier værdier iml. faneblade
Besked fra: PGA
Emne: Wookbook - activate. Kopier værdier iml. faneblade
Posteringsdato: 26.Jul.2018 kl. 19:25
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
uploads/2006/test_-_activate.xlsm" rel="nofollow - test_-_activate.xlsm
|
Svar:
Besked fra: EXCELGAARD
Posteringsdato: 01.Aug.2018 kl. 10:03
Det er nok mig, der har misforstået opgaven, men er det ikke så simpelt som:
Kopiertil.Cells.Delete
Kopierfra.Cells.Copy Destination:=Kopiertil.Range("A1")
|
-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
|
Besked fra: PGA
Posteringsdato: 05.Aug.2018 kl. 18:38
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
uploads/2006/test_-_activate_2018-08-05_18-37-22.xlsm" rel="nofollow - test_-_activate_2018-08-05_18-37-22.xlsm
|
Besked fra: EXCELGAARD
Posteringsdato: 05.Aug.2018 kl. 21:19
|
Jeg kan ikke åbne din fil, men, hvis blot vil have indholdet udskiftet, og undgår, at 'Til' tabellen bliver slettet først, er det så ikke bare, at udskifte .Delete med .ClearContents? Kopiertil.Cells.ClearContents
Kopierfra.Cells.Copy Destination:=Kopiertil.Range("A1")
-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
|
Besked fra: PGA
Posteringsdato: 08.Aug.2018 kl. 16:29
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.
uploads/2006/test_-_activatev1.xlsm" rel="nofollow - test_-_activatev1.xlsm
|
|