Macro Help - Filtering outstanding equipment

[ConnorTheScot]

Good afternoon all,

I am looking for some assistance with a worksheet i am adapting for work.

What i have currently is a Macro which when pressed, filters out any blanks and returned equipment from column V (The filter drop down is in V5).

Sub GenerateJobDetailsReport()'
' GenerateJobDetailsReport Macro

ActiveSheet.Range("$A$5:$V$718").AutoFilter Field:=3, Criteria1:="<>"
ActiveWindow.SmallScroll ToRight:=4
Range("V5").Select
ActiveSheet.Range("$A$5:$V$718").AutoFilter Field:=22, Criteria1:= _
"Outstanding"
End Sub

Now there is an adaption being put in so that this column will now show the quantity of equipment outstanding. For example if 4 items were sent and 2 returned, the column will show "2 Outstanding" through use of a formula. What i require is for the GenerateJobDetailsReport macro to filter out all the blanks and returns and only show the rows which has a quantity outstanding.

Any suggestions are appreciated

 

[pbornemeier]

This will display rows where column C is not empty and where column V contains the word "Outstanding". I do not understand the need for the column 3 portion of the filter since if that field is cleared it will hide any outstanding equipments for that row.

Sub GenerateJobDetailsReport() '
    'GenerateJobDetailsReport Macro
    
    Dim lLastDataRow As Long
    
    ActiveSheet.AutoFilterMode = False                       'Ensure nothing is filtered
    lLastDataRow = Cells(Rows.Count, 1).End(xlUp).Row        'Find last populated row in column A
    ActiveSheet.Range("$A$5:$V$" & lLastDataRow).AutoFilter _
        Field:=3, Criteria1:="<>"
    'ActiveWindow.SmallScroll ToRight:=4                     'Not needed for portion of code shown
    'Range("V5").Select                                      'Not needed for portion of code shown
    ActiveSheet.Range("$A$5:$V$" & lLastDataRow).AutoFilter _
        Field:=22, Criteria1:="=*Outstanding*", Operator:=xlAnd
End Sub