ランタイムエラー '1004 - Rangeクラスのオートフィルタメソッドが失敗しました

Question

以下のコードを実行すると上記のエラーが発生します。私はVBAには非常に新しく、デバッグにいくつかの支援が必要です。

Sub TransferTest1() 

Dim INQUIRE As Worksheet 
Dim QUOTE As Worksheet 
Dim ORDER As Worksheet 
Dim YString As String 
Dim RecString As String 

Set INQUIRE = ActiveWorkbook.Sheets("Inquiries") 
Set QUOTE = ActiveWorkbook.Sheets("Quotes") 
Set ORDER = ActiveWorkbook.Sheets("Orders") 

With INQUIRE.Range("A6:K1200") 
    .AutoFilter 11, "Y" 
    .Offset(1).Resize(, 7).Copy QUOTE.Range("A6") ' columns A:G 
    .AutoFilter 
End With 

With QUOTE.Range("A6:N1200") 
    .AutoFilter 14, "Rec'vd" 
    .Offset(1).Resize(, 7).Copy ORDER.Range("A6") ' columns A:G 
    .Offset(1).Resize(, 2).Offset(11).Copy ORDER.Range("K6") ' columns L:M 
    .AutoFilter 
End With 

End Sub 

ありがとうございました！

R. Smithey

Answer 1

前に置かと.AutoFilterへの各呼び出し、

if .parent.autofiltermode then .parent.autofiltermode = false 

これは、彼らが存在する場合は任意の既存の.AutoFiltersをオフにして、彼らが存在しない場合は何もしません。