Trickyaz1991
New Member
- Joined
- Mar 23, 2020
- Messages
- 22
- Office Version
- 365
- Platform
- Windows
hey guys,
can someone explain why this is not working?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Range("$A$2:$J$2000").AutoFilter Field:=4, Criteria1:=Array("Materials" _
, "Materials NQ", "Materials AP", "Req Raised", "Req Raised NQ", "Req Raised AP", "Strip & Assess" _
, "WIP", "WIP NQ", "WIP AP"), Operator:=xlFilterValues
ActiveSheet.Range("$A$2:$J$2000").AutoFilter Field:=6, Criteria1:= _
"<=" & Application.WorkDay(Date, 15), Operator:=xlAnd
ActiveSheet.Range("$A$2:$J$2000").AutoFilter Field:=5, Criteria1:="<>"
ActiveWorkbook.Worksheets("Machining").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Machining").AutoFilter.Sort.SortFields.Add2 Key:= _
Range("F2:F2000"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("Machining").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
I have also attached an image of what I am trying to achieve.
I am trying to write VBA code that updates the sheet automatically, in column F "Revised Due Date" I want to filter the sheet to show me data within a certain data and then sort it
by ascending but some error keeps popping up?
any help would be helpful.
regards,
Aaron.
can someone explain why this is not working?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Range("$A$2:$J$2000").AutoFilter Field:=4, Criteria1:=Array("Materials" _
, "Materials NQ", "Materials AP", "Req Raised", "Req Raised NQ", "Req Raised AP", "Strip & Assess" _
, "WIP", "WIP NQ", "WIP AP"), Operator:=xlFilterValues
ActiveSheet.Range("$A$2:$J$2000").AutoFilter Field:=6, Criteria1:= _
"<=" & Application.WorkDay(Date, 15), Operator:=xlAnd
ActiveSheet.Range("$A$2:$J$2000").AutoFilter Field:=5, Criteria1:="<>"
ActiveWorkbook.Worksheets("Machining").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Machining").AutoFilter.Sort.SortFields.Add2 Key:= _
Range("F2:F2000"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("Machining").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
I have also attached an image of what I am trying to achieve.
I am trying to write VBA code that updates the sheet automatically, in column F "Revised Due Date" I want to filter the sheet to show me data within a certain data and then sort it
by ascending but some error keeps popping up?
any help would be helpful.
regards,
Aaron.