kopieer tabbladen

[don42]

beste allemaal,
Ik heb nog een vraag om het hier compleet te maken. (echt waar :d)

heb een file: maart.xlsx met 1 tabblad Deb.Nr (hier staan 500 + klantgegevens in)
als ik iets toevoeg/verwijder in het tabblad Deb.Nr zou ik graag een gelijke versie hebben in een andere werkmap
bv Ritopdracht.xlsm tabblad Klantenbestand
dan is het altijd up to date
Het tabblad Klantenbestand zou eerst gewist moeten worden van cel a2 tot h2
zoiets

Range(Range("a2:h2"), Range("a2:h2").End(xlDown)).ClearContents

en dan pas de gegevens uit tabblad Deb.Nr plakken (omdat er zowel toegevoegd als verwijdert wordt)

 

[don42]

Ik krijg geen antwoord, is mijn vraag weer te omslachtig gesteld?
wil graag de inhoud van een tabblad kopiëren naar een tabblad in een andere bestand
de twee bestanden moeten gelijk blijven

 

[HSV]

Waarom niet.

thisworkbook.sheets(1).cells.copy workbooks("bestand2.xlsx").sheets(1).cells

 

[don42]

HSV
wat een simpele code, en precies wat ik graag wil bedankt
ik heb vandaag hier constructies gebouwd dat wil je niet weten
en jij regelt het met zo'n kleine code super.

 

[don42]

Hsv
met de code

thisworkbook.sheets(1).cells.copy workbooks("bestand2.xlsx").sheets(1).cells

werkt het echt mooi.
kan ik deze ook gebruiken binnen het zelfde werkboek
wil dan kolom A en B kopieren tot end van blad(1)
en deze data plakken in een ander blad (2) in de kolommen K en L

 

[VenA]

Dat kan bv zo

Sub VenA()
  Sheets(1).Columns("A:B").Copy Sheets(2).Columns("K:L")
End Sub

 

[don42]

Oke mooi,
en nu als van kolom A2 en B2 tot einde plakken vanaf K7 en L7
gaat zoiets ook

heb het gevonden

Private Sub Worksheet_Activate()
LastRow = Blad1.Range("a" & Rows.Count).End(xlUp).Row
Sheets(1).Range("A2:B" & LastRow).Copy Sheets(2).Cells(7, 11)
End Sub