筛选后，如果结果为空弹框提醒，不为空复制筛选结果到另外SHEET页

hou251790200

求教：我想按照日期筛选，筛选次日日期，如果筛选结果为空，则弹框提醒，不为空，则复制筛选结果到备份的sheet页

hou251790200

自己顶一下

hou251790200

在线等，希望得到大神指点

hou251790200

D = Format(Date + 1, "yyyy-m-d")
    Workbooks.Open Filename:="\\shyylc01\cs\差异补货及分配量\差异补货及分配量.xls"
    Sheets("差异补货").Select
    Dim Rng As Range
    Dim i%
    i = Cells.Find("*", SearchOrder:=xlByRows, LookIn:=xlValues, SearchDirection:=xlPrevious).EntireRow.Row
    Range("A1:J65536").AutoFilter Field:=9, Criteria1:=D, Operator:=xlAnd
    Set Rng = Range("A1:J65536").SpecialCells(xlCellTypeVisible)
    If VBA.IsNull(Rng) = False Then
    Rows("2:" & i).Select
    Selection.Copy
    Workbooks.Open ("D:\import\餐厅出货_new.xls")
    g = Sheets("Sheet1").[B65536].End(xlUp).Row
    Range("A" & g + 1).Select
    ActiveSheet.Paste
    With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
    Workbooks.Open Filename:="\\shyylc01\cs\差异补货及分配量\数据备份.xls"
    g = Sheets("Sheet1").[B65536].End(xlUp).Row
    Sheets("Sheet1").Select
    Range("A" & g + 1).Select
    ActiveSheet.Paste
    With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
    Else
    MsgBox "差异补货无数据，请核实"
    End If
这个是我自己做的，现在筛选之后有数据可以自行复制过来，但是如果没有数据，还是不弹窗，只是把空数据复制过来了

hou251790200

求各位大神给点指点