運行時錯誤「1004 - Range類的自動篩選方法失敗

運行下面的代碼時，我得到上述錯誤。我對VBA很陌生，在調試時需要一些幫助。運行時錯誤「1004 - Range類的自動篩選方法失敗

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

來源

2017-04-19 R.Smithey

你肯定你的範圍要過濾的區域完全一致？ –

我在範圍A6至G6日期，然後這應該是.Autofilter 11指的是在第一與集團和列「N」爲.AutoFilter 14. –

的列的列「K」嘗試僅此線（子或立即窗口），告訴我們發生了什麼（如果自動填充在您的工作表啓用）：'ActiveWorkbook.Sheets（「查詢」）範圍（「A6：K1200」）AutoFilter' –

上一頁每次調用.AutoFilter用，

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

如果存在的話，這會關閉任何預先存在的.AutoFilters，如果他們不存在什麼也不做。

來源

2017-04-19 18:22:50 Jeeped

請問這行代碼去每個.AutoFilter上面命令行？所以在這種情況下，它會在我的宏4次？ –

運行時錯誤「1004 - Range類的自動篩選方法失敗

回答

相關問題