Meerdere cellen verplaatsen naar een tabel op een ander werkblad

Status
Niet open voor verdere reacties.
F

Floris1983

Gebruiker
Lid geworden
5 aug 2020
Berichten
21
Goedenavond,

Ik loop me al dagen suf te zoeken naar een goede VBA code om het volgende te bewerkstelligen, wellicht kan iemand hier me helpen?

Ik ben een database met zeekaarten aan het maken, deze worden aan een tabel toegevoegd op het blad "Data". Soms zijn er wijzigingen die doorgevoerd moeten worden. vandaar dat ik het werkblad "Ammend_Chart" heb gemaakt met een keuzelijst waarin de kaart die gewijzigd geselecteerd word, de volgende gegevens komen dan tevoorschijn (door middel van zoeken (excel en geen vba) en plakken_speciaal (wel via VBA)

- Chartnr
- Title
- Edition
- Date on board
- Storage
- You're name

Na het wijzigen is de bedoeling dat de gegevens worden gekopieerd naar het juiste Chartnr in de tabel op het blad "Data"

Ik heb een (ver)simpel(d) voorbeeldje toegevoegd.

Alvast heel hartelijk bedankt,

Floris
 

Bijlagen

  • voorbeeld kaartenlijst.xlsx
    15,4 KB · Weergaven: 19
Code: 
Sub wijzigen()
 Sheets("data").ListObjects(1).DataBodyRange(Range("j1"), 1).Resize(, 6) = Sheets("ammend_chart").Range("J8:O8").Value
End Su
 
Wow dat is snel zeg, helemaal top!

Ik was zelf helemaal op het verkeerde pad zie ik al, zal wel te moeilijk denken. (Ervaringskwestie)

Hartstikke bedankt!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan