使用 Array , MS Excel 自动过滤的标准

Question

I've created a module to delete rows using Autofilter and Criteria is Min date,

The problem is AutoFilter doesn't work when I create an array to define criteria. Is there anyway to fix this problem.

Sub Delete_Rows()
    Dim lo As ListObject
    Dim arr As Variant
    arr = Sheet4.Range("A2")

    Set lo = Sheet1.ListObjects(1)
    lo.Range.AutoFilter Field:=2, Criteria1:=arr, Operator:=xlFilterValues
    Application.DisplayAlerts = False
    lo.DataBodyRange.SpecialCells(xlCellTypeVisible).Delete
    Application.DisplayAlerts = True
    lo.AutoFilter.ShowAllData
End Sub

Answer 1

1. You can modifiy your code to get the value of you min date : arr = Sheet4.Range("A2").value
2. In the filters on Excel, in VBA you have to send the dates in English format and add the condition. => Criteria1:=">" & Format(arr, "mm/dd/yy")

Sub Delete_Rows()

Dim lo As ListObject
Dim arr As Variant
arr = Sheet4.Range("A2").value

Set lo = Sheet1.ListObjects(1)
lo.Range.AutoFilter Field:=2, Criteria1:=">" & Format(arr, "mm/dd/yy"), Operator:=xlFilterValues
Application.DisplayAlerts = False
lo.DataBodyRange.SpecialCells(xlCellTypeVisible).Delete
Application.DisplayAlerts = True
lo.AutoFilter.ShowAllData

End Sub