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