Question

I’m close to figuring out the correct way to do this but I’m all searched out. I’m trying to search a column (Asset Tag) that holds various garbage but want to keep entire rows that start with AA as this confirms the row is actually an Asset Tag.

The code below gives me an “Object Required” error, and I believe I might not be correctly telling it to look at cell values with the”If rng.Cells(i) <> Left(cell.Value, 2) = “AA” Then” statement. Can someone point me in the right direction of what I need to do?

Sub DeleteRows()

Dim rng As Range
Dim i As Double, counter As Double
    Set rng = Range("C:C")
    i = 1
    For counter = 1 To rng.Rows.count
    If rng.Cells(i) <> Left(cell.Value, 2) = "AA" Then
        rng.Cells(i).EntireRow.Delete
    Else
        i = i + 1
    End If
Next

End Sub

Thanks!

Answer 1

If you’re deleting rows then you should always work from the bottom up:

Sub DeleteRows()

    Dim rng As Range
    Dim counter As Long, numRows as long        

        With ActiveSheet
           Set rng = Application.Intersect(.UsedRange, .Range("C:C"))
        End With
        numRows = rng.Rows.Count

        For counter = numRows to 1 Step -1 
         If Not rng.Cells(counter) Like "AA*" Then
            rng.Cells(counter).EntireRow.Delete
         End If
       Next

End Sub