DMV Macro cellen kopieren tussen 2 geopende excelmappen

[1104romian]

Beste lezers,
Ik wil tussen 2 geopende excel mappen kunnen kopieren dmv
een macro.
In beide mappen heb ik een hyperlink gemaakt maar de macro
pakt die niet, geeft foutmelding.
Zonder macro gaat dat wel.
Wie weet een oplossing voor mij?
Bij voorbaat mijn dank 1104romian

 

[gast0660]

Hoi,
Probeer deze eens

Sub Plakken()
    Windows("Dag.xlsx").Activate
    Columns("A:H").Select
    Selection.Copy
    Windows("Berekening.xlsm").Activate
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
End Sub

Probeer het maar eens uit met volgend voorbeeld

Greetz

 

[1104romian]

Beste gast0660
Bedankt voor de snelle reactie maar......
Graag nog wat toelichting op waar ik
deze code moet plaatsen en hoe ik dat
moet doen.
Het RAR bestand krijg ik niet geopend.
Vr.groet. 1104romian

 

[gast0660]

Hoi, romian,
Een rarbestand is ongeveer hetzelfde als een zip bestand
Hier kan je gratis zoiets downloadenhttp://www.7-zip.org/download.html,m het rar bestand te openen.
De code is een macro.was uw vraagv
Een opmerking 7zip is blijkbaar goed (maar gratis) ik gebruik het niet dus ik weet ook niet als er overbodige rommel wordt meegstuurd met het installatieprogramma, dus goed opletten!
Indien zo alles behalve 7zip afvinken of declinen (weigeren)
Laat maar iets weten

Greetz

 

[1104romian]

Beste gast0660
Ik heb de door U opgegeven code uit geprobeerd
maar de macro stopt met foutbricht:
Windows("Berekening.xlsm").Activate
Helaas, ziet U nog andere mogelijkheden?

 

[HSV]

Als beide bestanden open staan.

Sub hsv()
 Workbooks("bron").Sheets(1).Range("A1:A10").Copy ThisWorkbook.Sheets(1).Range("A1") 'thisworkbook is het bestand waar deze code in staat.
End Sub

 

[1104romian]

Beste HSV,
Bedankt voor de reactie!
Nog enige hulp graag.
Wilt U de code aanpassen aan de volgende gegevens:
Stel ik heb geopend map AAA en map BBB.
De Hyperlink staat in map AAA op A1
Ik wil kolom B uit map AAA kopieren naar map BBB kolom B
Bij voorbaat mijn dank.
Groet Romian

 

[HSV]

Als de code in werkboek 'BBB' staat, anders maak je van workbooks("AAA") workbooks("BBB").

Workbooks("AAA").Sheets(1).columns(2).Copy ThisWorkbook.Sheets(1).Range("B1")

 

[1104romian]

Bedankt Harry voor Uw reactie maar
ik heb inmiddels gevonden dat:
Indien ik een afspeelmacro maak en
bij plakken "Koppeling plakken" gebruik
het prima werkt. Vr.groet Romian