automatisch een range copiëren van workbook 1 naar workbook 2

[gast0660]

Hallo iedereen,

Ik ben op zoek naar een code die automatisch gegevens van workbook 1 range a:h copiëert naar workbook2 range a:h met een macro in workbook2 waarna workbook 1 automatisch wordt gesloten. Ik had een paar voorbeeldjes gevonden op internet maar die werken voor geen meter.

Alvast bedankt voor het meehelpen.

Greetz

 

[gast0660]

Hoi,
In bijlage de twee excel bestandjes
De bedoeling is dat de gegevens van test automatish in berekening1 wordt gecopieërd.
Hopelijk is het iets duidelijker
Greetz

 

[Mde]

en zelf macro opnemen?
ik kom tot ong. zoiets maar denk niet dat het dat is

Sub Mde()
'
'
'

'
    Windows("test.xlsx").Activate
    Range("A:H").Select
    Selection.Copy
    Windows("Berekening1.xlsm").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("test.xlsx").Activate
    ActiveWindow.Close
End Sub

 

[gast0660]

Hoi Mde,
zal eens kijken of ik er iets mee kan
Dank voor het meedenken

Greetz