macro error 1004

Status
Niet open voor verdere reacties.

jorislande

Gebruiker
Lid geworden
26 nov 2013
Berichten
12
Beste allemaal,

Ik heb een macro warbij ik bij het runnen error 1004 krijg. Deze macro heeft het altijd gedaan en nu plots niet meer.

Zie hieronder: (bij dik gedrukte loopt de macro vast)

Kan iemand mij helpen? :)

Sub Macro0307()
'
' Macro0307 Macro
'

'
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Blad2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks.Open Filename:= _
"L:\Logistics\Algemene Info\PARTS\22 Registratie transportbakken\Overzicht bakkenregistratie.xlsx"
ActiveSheet.Unprotect
Selection.End(xlDown).Offset(1, 0).Range("A1").Select
Windows("Template bakkenregistratie inslag.xlsm").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("Overzicht bakkenregistratie.xlsx").Activate
ActiveSheet.Paste
Range("A3").Select
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Save
ActiveWindow.Close
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Windows("Template bakkenregistratie inslag.xlsm").Activate
Application.CutCopyMode = False
Selection.ClearContents
Sheets("Blad1").Select
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("A2").Select
ActiveWorkbook.Save
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan