自动筛选和停止宏中没有空白字段时的Excel VBA消息框

Question

I have a simple macro to set one AutoFilter column(field 4) to a particular value, and a second AutoFilter column(field 5) to show only blank entries. Sometimes there are no blank entries and in this situation is there a way to stop the filter function and provide a message box to notify no blank entries were found?

When my code ends currently, the column(field 5) where there are no blanks to filter actually looks like an autofilter has been applied looking at the change of dropdown arrow state. The full non-blank cells are visible still.

Sub PoPODRecvdStatus()
'
' PoPODRecvdStatus Macro
' Filters Courier/Status by POD Received and Consignment to Blank
'
Application.ScreenUpdating = False
'
ActiveSheet.Range("$A$1:$K$12543").AutoFilter Field:=4, Criteria1:= _
    "POD RECEIVED"
ActiveSheet.Range("$A$1:$K$12543").AutoFilter Field:=5, Criteria1:="<>"
Application.ScreenUpdating = True
End Sub

Answer 1

Based on the comment I understand you might want to have something like that. The code will display a message box if there is no blank cell when filtered on POD RECEIVED and display these lines otherwise it will display the "blanks" with POD RECEIVED

Sub PoPODRecvdStatus()
'
' PoPODRecvdStatus Macro
' Filters Courier/Status by POD Received and Consignment to Blank
'
    Application.ScreenUpdating = False
    '
    ActiveSheet.Range("$A$1:$K$12543").AutoFilter Field:=4, Criteria1:= _
                                                  "POD RECEIVED"
    ActiveSheet.Range("$A$1:$K$12543").AutoFilter Field:=5, Criteria1:="="

    Dim rng As Range
    Set rng = ActiveSheet.AutoFilter.Range
    If rng.Columns(5).SpecialCells(xlCellTypeVisible).Count - 1 = 0 Then
        MsgBox "No blank cells in column 5 for POD RECEIVED", vbOKOnly, "POD_RECEIVED"
        ActiveSheet.Range("$A$1:$K$12543").AutoFilter Field:=5, Criteria1:="<>"
    End If
    Application.ScreenUpdating = True

End Sub