[[20160817165013]]　『実行時エラー1004　マクロが突然エラーになってし』（S3）　ページの最後に飛ぶ

『実行時エラー1004　マクロが突然エラーになってしまった』（S3）

昨日まで使えていたマクロが急に使用できなくなってしまいました。
実行時エラー1004
抽出した範囲にはフィールド名がないか、または無効なフィールド名です。
と表示がでます。
デバックをすると、以下が表示されます。

Sub 会社別データ抽出()
'
' 会社別データ抽出 Macro
' マクロ記録日 : 2008/12/16 ユーザー名 :
'

    Range("L19").Select
＞    Range("Database").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
＞        ("E2:E3"), CopyToRange:=Range("B6:N6"), Unique:=False
End Sub
Sub 外注別データ抽出()
'
' 外注別データ抽出 Macro
' マクロ記録日 : 2008/12/16  ユーザー名 :
'

    Range("Database").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
        ("D2:D3"), CopyToRange:=Range("B6:N6"), Unique:=False
End Sub

＞　Range("Database")・・・・
＞（”Ｅ2：Ｅ３”）・・・
の２行が黄色く表示されているのですが・・・。
突然エラーが出るようになりました。
ＶＢＡは超初心者で本を見ながらなんとか自身で使っていましたが、突然のエラーで本当に困っています。
よろしくお願いします。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

何を変えたらエラーになったか、を思い出すのが一番ですが…。

メッセージからみると、フォールド名、つまりDatabaseと名付けた範囲の、先頭行の文字列に問題があると言ってますね。消したとか、重複しているとかありませんか？
（???） 2016/08/17(水) 17:45

Range("B6:N6")に問題がある可能性もあります。
まずRange("Database")の先頭行とRange("B6:N6")の内容をここに提示してください。
（x） 2016/08/17(水) 17:54

早速の返信ありがとうございます。
特別何も変更はしていません、いつも通り使用していたら突然エラーがでるようになりました。
コピーして別内容で使用しているファイルは通常通り機能してい・・・！！！！！！！！
すみません！！！　よぉく見たらＤａｔａｂａｓｅの先頭行の1つ項目が消去されていました！！！
記入したら、正常にもどりました！！　申し訳ありません・・・知らないうちに削除してしまったようです。
あまりにも初歩と言うか、しょうもないミスで申し訳ありません・・・お恥ずかしい。
助かりました。お騒がせして申し訳ありませんでした。

（S3） 2016/08/17(水) 18:42

コメント返信：

[ 一覧(最新更新順) ]

[[20160817165013]] 『実行時エラー1004 マクロが突然エラーになってし』（S3） ページの最後に飛ぶ

[[20160817165013]]　『実行時エラー1004　マクロが突然エラーになってし』（S3）　ページの最後に飛ぶ