Sub AutoFilter_Begins_With() Range("A1").AutoFilter Field:=1, Criteria1:="Enter Criteria Here*" End Sub
k = Application.WorksheetFunction.AdvancedFilter(Range("list!d:d"), DateValue(Now))
کامنت