Delete rows Found With Autofilter

[Ark68]

I have a worksheet (schedule.csv) that I wish to remove all rows of data with the exception of those in which the value in column M = variable value usr_date.

The worksheet alias is ws_schedule
I wish to delete all the rows with the exception of those in which the value in column n = usr_date (19-06-19). My data has no header row

Can anyone help me with a vba solution for this?

I have this so far, but the autofilter isn't working. It comes up with no rows revealed...

With ws_schedule
        .AutoFilterMode = False
        .Rows(1).Insert shift:=xlDown
        .Range("A1:Z1").AutoFilter
        .Range("A1:Z1").AutoFilter Field:=13, Criteria1: <> usr_date
    End With

 

[Michael M]

All the code please......we can't see what usr_date variable is, or how it is declared !!

 

[shg]

  With ws_schedule
    .AutoFilterMode = False
    '.Rows(1).Insert Shift:=xlDown ' what's this for?
    .Range("A1").CurrentRegion.AutoFilter Field:=13, Criteria1:="<>" & usr_date
    .AutoFilter.Range.Offset(1).EntireRow.Delete
    .AutoFilterMode = False
  End With

 

[Ark68]

Thank you shg! That was exactly what I was trying to accomplish. I couldn't get around the criteria parameter. One thing though, the filter is applied at row 1 which is part of the data, so it is excluded from the filtering. That is why I added the line that you questioned "what's this for". It inserts a blank row and the filter is applied to the blank row and thus doesn't exclude any data. A header row of sorts. A better way exists perhaps?

 

[shg]

Add a header row before running the macro.