Code to select rows and delete

[rmobley232]

Hello!

Can you please help with with this code where I am trying to delete certain amount of rows after I have applied a filter selection criteria. The range of rows (in the example, rows 50:54) will change on a daily basis. :

Rows("50:54").Select
Selection.Delete Shift:=xlUp
ActiveWorkbook.Worksheets("Results").AutoFilter.Sort.SortFields.Clear

Thanks so much for the assistance!!

 

[mumps]

Are Rows("50:54") the rows that are visible after you have filtered the data?

 

[rmobley232]

Yes, they are visible after I have filtered the data and therefore theoretically become the 2nd row in the data set, after the header row.

 

[mumps]

What is the range that you are filtering? Are you filtering manually or by using a macro? If by a macro, could you please post the code?

 

[DanteAmor]

Try with this:

    u = Range("A" & Rows.Count).End(xlUp).Row
    If u = 1 Then
        MsgBox "No rows to delete"
    Else
        Rows("2:" & u).Delete shift:=xlUp
    End If
    
    ActiveWorkbook.Worksheets("Results").AutoFilter.Sort.SortFields.Clear

 

[rmobley232]

Mumps,

This is the code I am using to filter the data, which I need to update to anything that starts with a K:

ActiveSheet.Range("$A$1").AutoFilter Field:=3, Criteria1:=Array( _
"K07", "K09", "K35"), Operator:=xlFilterValues

 

[MARK858]

Please post your full code as you are using Field:=3.

 

[MARK858]

anything that starts with a K

If the below doesn't work for you then as requested in my previous post then post your full code.

Sub Filterit()
    With Worksheets("Results").Range("A1:C" & Worksheets("Results").Range("C" & Rows.Count).End(xlUp).Row)
        .AutoFilter 3, "K*"

        On Error Resume Next
        .Offset(1).Resize(.Rows.Count - 1).SpecialCells(12).EntireRow.Delete
        On Error GoTo 0
        .AutoFilter

    End With
End Sub

 

[DanteAmor]

Mumps,

This is the code I am using to filter the data, which I need to update to anything that starts with a K:

ActiveSheet.Range("$A$1").AutoFilter Field:=3, Criteria1:=Array( _
"K07", "K09", "K35"), Operator:=xlFilterValues

Then :

    u = Range("[COLOR=#0000ff]K[/COLOR]" & Rows.Count).End(xlUp).Row
    If u = 1 Then
        MsgBox "No rows to delete"
    Else
        Rows("2:" & u).Delete shift:=xlUp
    End If
    
    ActiveWorkbook.Worksheets("Results").AutoFilter.Sort.SortFields.Clear

Try and tell me.

 

[rmobley232]

MARK858, this is working perfectly, thanks so much!!