MTS to MP4 Conversion : Fast Solution to Error: Delete Rows that Don't Match Criteria

Monday, September 26, 2016

Fast Solution to Error: Delete Rows that Don't Match Criteria

Delete Rows that Don't Match Criteria

I have seen similar questions posed but usually it is delete a row if it equals a certain criteria. I want to do the opposite, delete it if it doesn't match.

Deleting the row is only part of a macro. Basically copying some data from one tab and pasting on a second tab and then deleting unneeded rows on the second tab so I always have original.

So the data list starts in row 6 with headers in row 5 and some report titles and such above that. The cell I need to match to is cell A3. In the data table the column I am looking for the match is in "U".

I am no expert by any means at VBA but here is what I have pieced together so far.

    Dim nr As Long, i As Long
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    nr = Range("U6").SpecialCells(xlLastCell).Row
    For i = nr To 1 Step -1
        With Range("U6").Cells(i)
            If .Value <> A3 Then
            .EntireRow.Delete shift:=xlUp
        End If
    End With
    Next i
    Application.EnableEvents = True
    Application.ScreenUpdating = True

When I run it though it deletes everything up to and including my header in row 5 and I know there are matches in column U to what is in cell A3.

Any help would be greatly appreciated.

Keys to the Problem Delete Rows that Don't Match Criteria

Download SmartPCFixer for Free Now

UPDATE: Oddly when I do the U8=A3 I get false.

Hi,

If you're getting FALSE then the values aren't the same, try this on that cell

=LEN(U8)
and
=LEN(A3)

This returns a number and they should boyh be the same, if they aren't then one cell has more characters than the other and you nee to establish what that is and then someone will tune the macro to cope with that.

It most likely the first or last character of the longer cell so try this on A3 and U8 and let us know what it returns

=CODE(LEFT(U8,1))
=CODE(RIGHT(U8,1))

OOPS, Just noticed, the correct syntax is this, note the square brackets

If .Value <> [A3] Then

To install drivers and other optional updates

To install optional updates, you need to review and then select them from the list of updates that Windows finds for your computer. Optional updates are not installed automatically.
Open Windows Update by clicking the Start button Picture of the Start button, clicking All Programs, and then clicking Windows Update.
In the left pane, click Check for updates, and then wait while Windows looks for the latest updates for your computer.
If any updates are found, click View available updates.
Select the optional updates that you want, and then click Install. Administrator permission required If you are prompted for an administrator password or confirmation, type the password or provide confirmation.

Another Safe way to Fix the Problem: Delete Rows that Don't Match Criteria:

How to Fix Delete Rows that Don't Match Criteria with SmartPCFixer?

1. Click the button to download SmartPCFixer . Install it on your computer. Open it, and it will scan your system. The junk files will be shown in the scan result.

2. After the scan is finished, you can see the errors and problems which need to be repaired.

3. The Repair part is done, the speed of your computer will be much higher than before and the errors have been fixed. You can also use other functions in SmartPCFixer. Like dll downloading, junk file cleaning and print spooler error repair.