Filter column grater than 7 days ageing

[vijayarc]

• <article>
  Hi sir
  
  I want macro to filter column which is grater than 7 days ageing , trick part is
  columns value will be like, mixed up​
  </article>
  

• <article>
  Completed - 14 Days
  Completed - 0 Days
  Rejected - 84 Days
  Rejected - 103 Days
  Completed - 0 Days
  Rejected - 84 Days
  WIP - 601 Days
  NotStarted - 684 Days
  NotStarted
  NotStarted - 84 Days
  
  I want to filter only WIP-601 days 'NotStarted', NotStarted - 684 Days
  (all days grater than 7 days only)
  
  please find my sample file in 'M , N 'column I need to filter
  kindly help and do needful​
  </article>
  

#Rows("1:1").Select
Selection.AutoFilter
Columns("Z:BC").Select
Selection.Delete Shift:=xlToLeft
ActiveSheet.AutoFilterMode = False

Range("A1:V1").Select

Selection.AutoFilter
ActiveSheet.Range("A1:S1").AutoFilter Field:=9, Criteria1:=Array( _
"WIP - LOB", "Rejected"), Operator:=xlFilterValues

'' filter m, n columns ageing grater than 7 days "
'
''
''

 

[vijayarc]

Hi Ninja Team

• <article>
  
  

  • <article>
    Please help on my below query
    in my excel, when i click upload Dashboard button and i upload the dashboard file by browse then the data will copy in Batch_Report sheet
    based on my code module for each sheets, the data will filter and delete columns and save on each sheets,
    i have different filter condition for each sheets.
    
    here i am facing issue is - on Daily_Pro sheet under columns M,N on TS and Credit header, i want to filter the condition as: 'NotStarted, Notstarted - 68 days' (all days should be grater then 7 days)
    'Notstarted - 2 days' - should not filter, because it less than 7 days
    Notstarted - 0 days' - should not filter, because it less than 7 days
    Notstarted - 6 days' - should not filter, because it less than 7 days
    Notstarted - 7 days' - should filter, because it equal to 7 days
    
    in attached image, i coded wildcard search filter, but it filter all days.
    
    please help and advise how to filter for above condition
    i want the code should place on module 1- below the filter condition code as per image for my understanding, the same code i wan to respect for other sheets and columns​
    </article>
    
  </article>

''
''

pls help for above request

 

[nikio8]

how about excel formula
=IF( IFERROR(FIND("-",A2)>0,FALSE), SUBSTITUTE(MID(A2,FIND("-",A2)+2,100)," Days","")*1 ,0)

for some reason trim would not get rid of last space in second row
" Days " may cause an error.