軟體:Excel
版本:2010
各位大午安
想詢問用VBA篩選資料若無相符資料即停止程式並跳出錯誤訊息該如何寫?
目前卡在IF那邊.....XD
Sheets("COPTH").Select
Selection.AutoFilter FIELD:=14, Criteria1:=Worksheets("輸入").Cells(3, 12).Value
Selection.AutoFilter FIELD:=15, Criteria1:=Worksheets("輸入").Cells(3, 13).Value
IF ???????? THEN
Sheets("輸入").Select
MsgBox "請重新確認單別&單號!"
Exit Sub
END IF
本來有詢問到
Dim rng As Range
Set rng = ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
If rng.Areas.Count > 1 Or rng.Rows.Count > 1 Then
但研究半天，區域變數地方的Areas跟Rows的數字都不會變動,
跪求解惑~~~謝謝

設個迴圈，例如 for i = 1 to rng.areas.countcnt = cnt + rng.areas(i).rows.countnext接著就可以接if了，如果cnt=1就是無篩選到資料

感謝Ｓ大～～～～