Best System Error Solution: Tech Support: delete row if values <> on list

delete row if values <> on list

I've been using this for years however, i need to upgrade because of changing criteria.

Instead of this line in the code below:

If .Value <> "apples" And .Value <> "oranges" And .Value <> "peaches" And .Value <> "grapes" And .Value <> "cherries" And .Value <> "pecans" And .Value <> "cashews" And .Value <> "brazil" And .Value <> "oats" Then .EntireRow.Delete

I need to point to a list on the CONTROL SHEET starting at K16 to the last value in K.

Sub Delete_ROUTES_ColE()
Application.ScreenUpdating = False
        Dim Firstrow As Long
        Dim LastRow As Long
        Dim Lrow As Long
        With ActiveSheet
        'Set the first and last row to loop through
        Firstrow = .UsedRange.Cells(2, 1).Row 'The 1 represents the RowIndex
        LastRow = .UsedRange.Rows(.UsedRange.Rows.Count).Row
        'Loop from Lastrow to Firstrow (bottom to top)
        For Lrow = LastRow To Firstrow Step -1
        'Check the values in the D column
        With .Cells(Lrow, "E")
            'This will delete each row that does NOT contain the
            'multiple values "CITY TOTAL:" & "SINGLE 01" in Column D, case sensitive.
            If .Value <> "apples" And .Value <> "oranges" And .Value <> "peaches" And .Value <> "grapes" And .Value <> "cherries" And .Value <> "pecans" And .Value <> "cashews" And .Value <> "brazil" And .Value <> "oats" Then .EntireRow.Delete
        End With
        Next Lrow
    End With
Application.ScreenUpdating = True
End Sub

Anwsers to the Problem delete row if values <> on list

Download SmartPCFixer to Fix It (Free)

Hi,

Try this but a couple of things:-

1.
I'm not entirely sure what the Control sheet names is.
I called it 'Control' but is it called Control Sheet.
You may have to change it in the code.

2.
This deletes the rows if they don't appear in the list K6:Kn.
If it's the other way around and you want to keep things in the list change this line

If IsError(Application.Match(.Value, CtrlRng, 0)) Then

to this

If Not IsError(Application.Match(.Value, CtrlRng, 0)) Then

Sub Delete_ROUTES_ColE()
Application.ScreenUpdating = False
Dim Firstrow As Long
Dim LastRow As Long
Dim Lrow As Long
Dim CtrlRng As Range
LastRow = Sheets("Control").Cells(Cells.Rows.Count, "K").End(xlUp).Row
Set CtrlRng = Sheets("Control").Range("K6:K" & LastRow)
With ActiveSheet
'Set the first and last row to loop through
Firstrow = .UsedRange.Cells(2, 1).Row 'The 1 represents the RowIndex
LastRow = .UsedRange.Rows(.UsedRange.Rows.Count).Row
        'Loop from Lastrow to Firstrow (bottom to top)
         For Lrow = LastRow To Firstrow Step -1

        'Check the values in the D column
         With .Cells(Lrow, "E")
            If IsError(Application.Match(.Value, CtrlRng, 0)) Then
            'This will delete each row that does NOT contain the
             'multiple values "CITY TOTAL:" & "SINGLE 01" in Column D, case sensitive.
                .EntireRow.Delete
            End If
        End With
         Next Lrow

    End With

Application.ScreenUpdating = True

End Sub

How to Avoid Downloading Malware

Where are you getting the download?

There are malicious people who download valid copies of a popular download, modify the file with malicious software, and then upload the file with the same name. Make sure you are downloading from the developer's web page or a reputable company.

Don't install download manager

Many sites suggest or require you to install an installer or a download manager before allowing you to download a program you may be interested in downloading. These tools almost always cause your computer more problems and may even have malware or other spyware. Avoid any site claiming anything must be installed first before you can continue with your download.

Avoid advertisements on download pages

To help make money and pay for the bandwidth costs of supplying free the software, the final download page may have ads. Watch out for anything that looks like advertisements on the download page. Many advertisers try to trick viewers into clicking an ad with phrases like "Download Now", "Start Download", or "Continue" and that ad may open a separate download.

Cancel or deny any automatic download

Some sites may automatically try start a download or give the appearance that something needs to be installed or updated before the site or video can be seen. Never accept or install anything from any site unless you know what is downloading.

Recommended Method to Fix the Problem: delete row if values <> on list:

How to Fix delete row if values <> on list with SmartPCFixer?

1. Click the button to download Error Fixer . Install it on your system. Open it, and it will scan your system. The errors will be shown in the scan result.