當自動篩選沒有匹配項時結束宏

Question

我設置了一個宏，用於按年份，季度，移動設備（是/否）過濾數據，最終目標是創建一個時間表文檔，以顯示一部分數據中每年第一季度至第四季度的數據。

我遇到的問題是，一旦它過濾了前兩個變量，如果第三個變量沒有匹配項（要匹配的值為ü），那么它將取反所有內容，並僅復制工作表中的所有原始數據，就好像沒有過濾器一樣。應用。

    Sheets("ChangeLog").Select 
ActiveSheet.Range("$A$2:$AP$2040").AutoFilter Field:=36, Criteria1:="4"
ActiveSheet.Range("$A$2:$AP$2040").AutoFilter Field:=35, Criteria1:="2020"
ActiveSheet.Range("$A$2:$AP$2040").AutoFilter Field:=15, Criteria1:="ü"
Range("A3:A2041").Select
Selection.Copy
Sheets("!PIPELINE_TEMPLATE").Select
Range("N77").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

然后針對各種過濾條件繼續進行此操作，但是所有過濾條件都遵循相同的模式。 理想情況下，如果找不到“ü”，我希望它結束​​子

任何幫助將不勝感激 ：）

標記

Answer 1

謝謝西蒙，

實際上，我們在自動過濾器之后使用IF設法解決了這一問題。

    vRows = Sheets(shtChangeLog).Cells(Rows.Count, 1).End(xlUp).Row
    If vRows > 2 Then