Cellen laten kopiëren en plakken

[Gerben84]

Ik wil een functie maken waarmee ik de inhoud van een aantal cellen uit een werkblad Blad2 kan kopiëren naar een ander werkblad in het bestand ALLE data.xls.

Het onderstaande heb ik tot nu toe geschreven met VBA en gekoppeld aan een button:

Private Sub CommandButton1_Click()

Worksheets("blad2").Select
Range("A2:I57").Select
Selection.Copy
Workbooks.Open FileName:="D:\ALLE data.xls"
Worksheets("blad2").Select
Range("A2:I57").Select
Selection.PasteSpecial Paste:=xlPasteValues

End Sub


Bij het plakken krijg ik een foutmelding.. Weet iemand hoe ik dit kan oplossen?? Bvd :thumb:

 

[Wigi]

Zoiets?

Private Sub CommandButton1_Click()

Workbooks.Open FileName:="D:\ALLE data.xls"
Sheets("blad2").Range("A2:I57").Copy
Workbooks("ALLE data.xls").Sheets("blad2").Range("A2:I57").PasteSpecial xlPasteValues
End Sub

ongeteste code

Wigi