delete row from VBA

[amkumar]

Hi,

how can i delete used range in excel after apply filter, without header (First row).
i want to do this in VBA.

thanks

 

[MARK858]

Post the code that you have currently for applying the filter.

 

[amkumar]

ActiveSheet.Range("A1").AutoFilter field:=1, Criteria1:="UC"

data contain 3-4 criteria and i only want to delete all rows of UC.

 

[MARK858]

Try...

Sub Filterit()
    With Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
        .AutoFilter Field:=1, Criteria1:="UC"
        
        On Error Resume Next
        .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        On Error GoTo 0
        .AutoFilter
    
    End With
End Sub

 

[Peter_SSs]

Based on your descriptions so far, this should also work for you.

Sub amkumar()
  Range("A1").AutoFilter field:=1, Criteria1:="UC"
  ActiveSheet.UsedRange.Offset(1).EntireRow.Delete
  ActiveSheet.AutoFilterMode = False
End Sub

.. or if you want the AutoFilter arrow(s) left in place, make this change to the above code

<del>ActiveSheet.AutoFilterMode = False</del>
Range("A1").AutoFilter field:=1