Laufzeitfehler ‚1004‘

Question

Unten ist die Fehlermeldung, die ich bekomme:

Laufzeitfehler ‚1004‘ Kann nicht das Makro ‚Do_Special_Copy‘ laufen. Das Makro ist möglicherweise nicht in dieser Arbeitsmappe verfügbar oder alle Makros sind möglicherweise deaktiviert.

ich drei Arbeitsblätter mit ähnlichen Feldern haben, möchte ich in ein anderes Arbeitsblatt Makro aufgerufen konsolidieren, und unten ist der Code für das Makro:

Sub Data_Consol() 

End Sub 

Sub WBLoop() 

Dim wb As Workbook, x As String 
For Each wb In Workbooks 
    If wb.Name <> "Macro template" Then 
     x = wb.Name 
     Workbooks(x).Activate 
    End If 
    Call Copy_Paste 
Next wb 

ActiveCell.Offset(0, 1).Select 

Range(Selection, Selection.End(xlUp)).Select 

Selection.Offset(1, 0).Select 

Range(ActiveCell, ActiveCell.End(xlToLeft)).Select 

Range(Selection, Selection.End(xlDown)).Select 

Selection.EntireRow.Delete 

Range("A1").Activate 

Sheets("Template").Select 
Sheets("AddFormulae").Visible = True 

Sheets("AddFormulae").Select 
Range("X2").Select 
Range(Selection, Selection.End(xlToRight)).Select 
Range(Selection, Selection.End(xlDown)).Select 
Application.Run "Do_Special_Copy" 
Sheets("Template").Select 
Range("X2").Select 
ActiveSheet.Paste 
Columns("X:AD").Select 
Columns("X:AD").EntireColumn.AutoFit 

Sheets("Template").Select 
Sheets("AddFormulae").Visible = False 

Range("A1").Select 

End Sub 

Sub Copy_Paste() 
Dim wb As Workbook 
Range("A2").Select 
Range(Selection, Selection.End(xlDown)).Select 

' Select 

Application.Run "Do_Special_Copy" 
Windows("Macro template.xlsm").Activate 

' Need to add in code here to find first empty row 

ActiveSheet.Range("A" & Rows.Count).End(xlUp).Offset(1).Select 

ActiveSheet.Paste 

Selection.End(xlDown).Select 
Rows(ActiveCell.Row).EntireRow.Delete 
ActiveWindow.SmallScroll Down:=3 

End Sub 

Sub SelectWorkbook() 
' 
' SelectWorkbook Macro 
' 
Windows("ESMS CTSM Q - Call Back.xlsx").Activate 
End Sub 

Answer 1

ich den gleichen Fehler konfrontiert wird vor und unprotecting das Blatt hat die Trick (Versuchen Sie den Schutz Ihres Blattes aufzuheben, wenn es geschützt ist, wo Sie Daten einfügen möchten).