Trickyaz1991
New Member
- Joined
- Mar 23, 2020
- Messages
- 22
- Office Version
- 365
- Platform
- Windows
hey guys,
can you please tell me what i am doign wrong here?
ActiveSheet.Range("$A$2:$AD$999").AutoFilter Field:=20, Criteria1:= _
"<4/07/2020", Operator:=xlAnd
ActiveWorkbook.Worksheets("Production Report").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Production Report").AutoFilter.Sort.SortFields.Add2 _
Key:=Range("T2:T999"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Production Report").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
legit just want to filter by date and have it in ascending order?
regard,
Aaron
can you please tell me what i am doign wrong here?
ActiveSheet.Range("$A$2:$AD$999").AutoFilter Field:=20, Criteria1:= _
"<4/07/2020", Operator:=xlAnd
ActiveWorkbook.Worksheets("Production Report").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Production Report").AutoFilter.Sort.SortFields.Add2 _
Key:=Range("T2:T999"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Production Report").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
legit just want to filter by date and have it in ascending order?
regard,
Aaron