Đặt điều kiện là thời gian trong Criteria

[hoanglocphat]

Chào các bạn
Tôi có record macro Filter để xóa thời gian, tuy nhiên nếu thời gian khác đi nó không xóa được (ô H5 trong file)
Vậy ta sửa Criteria như thế nào để có thể xóa toàn bộ những ô là thời gian
Sub Macro7()
ActiveSheet.Range("$H$3:$H$47").AutoFilter Field:=1, Operator:= _
xlFilterValues, Criteria2:=Array(0, "12/29/2018")
Range("H5:H47").Select
Selection.ClearContents
End Sub
Cảm ơn các bạn

 

[giaiphap]

Chào các bạn
Tôi có record macro Filter để xóa thời gian, tuy nhiên nếu thời gian khác đi nó không xóa được (ô H5 trong file)
Vậy ta sửa Criteria như thế nào để có thể xóa toàn bộ những ô là thời gian
Sub Macro7()
ActiveSheet.Range("$H$3:$H$47").AutoFilter Field:=1, Operator:= _
xlFilterValues, Criteria2:=Array(0, "12/29/2018")
Range("H5:H47").Select
Selection.ClearContents
End Sub
Cảm ơn các bạn

Tôi đoán chắc có lẻ thế này.

Sub Macro7()
    Dim k
    k = Application.WorksheetFunction.Max(Range("$H$3:$H$47"))
    ActiveSheet.Range("$H$3:$H$47").AutoFilter Field:=1, Criteria1:= _
        ">=1/1/1900", Operator:=xlAnd, Criteria2:="<=" & Format(k + 1, "MM/DD/YYYY")
    Range("H5:H47").ClearContents
End Sub