VBA to Delete Rows based on Specific Text appearing in a column (except one row)

[dids86]

Hi,

I've just received a reply on how to delete all rows where the value isn't "NNN" in column AF which worked perfectly.

Can I push this one step further and ask for a specific row (row 18 in this instance) to be ignored from this macro?

Previous solution which worked was


Sub DeleteRowsNotNNN()
Dim ws As Worksheet, lastRow As Long, i As Long

' Set the worksheet
Set ws = ThisWorkbook.Sheets("REP500")

' Find the last row in the sheet based on column AF
lastRow = ws.Cells(ws.Rows.Count, "AF").End(xlUp).Row

' Loop through the rows from the last to the first to avoid skipping rows
For i = lastRow To 1 Step -1
' Check if the value in column AF is not "NNN"
If ws.Cells(i, "AF").Value <> "NNN" Then
' Delete the entire row if value is not "NNN"
ws.Rows(i).Delete
End If
Next i
End Sub





Thanks

Tom

 

[MikeVol]

Option Explicit

Sub DeleteRowsNotNNN()
    Dim ws          As Worksheet
    Set ws = ThisWorkbook.Sheets("REP500")

    Dim lastRow As Long, i As Long
    lastRow = ws.Cells(ws.Rows.Count, "AF").End(xlUp).Row

    For i = lastRow To 1 Step -1

        ' Skip row 18
        If i <> 18 Then

            If ws.Cells(i, "AF").Value <> "NNN" Then
                ws.Rows(i).Delete
            End If

        End If

    Next i

End Sub

 

[Joe4]

Duplicate to: VBA to Delete Rows based on Specific Text appearing in a column

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread. If you do not receive a response, you can "bump" it by replying to it yourself, though we advise you to wait 24 hours before doing so, and not to bump a thread more than once a day.