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:
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: