Delete all rows except

J

J.W. Aldridge

Was given this code, but doesnt work. It deletes everything.
The data on the worksheet was imported - i think this has something to
do with the reason it doesnt work (or filter) properly.

Sub DeleteRows()


Dim LastRow As Long
Dim rw As Long


Application.ScreenUpdating = False


LastRow = Cells(Rows.Count, "B").End(xlUp).Row


For rw = LastRow To 2 Step -1
If Cells(rw, "B").Value <> "Apples" Or Cells(rw, "B").Value
<>
"Oranges" Then
Rows(rw).Delete Shift:=xlUp
End If
Next rw


Application.ScreenUpdating = True


End Sub
 
C

Charabeuh

Hi

If a cell is equal to "Apples" then it is not equal to "Oranges"
==> the test with "Apples" return False
==> the test with "Oranges" return True
False OR True return True

If a cell is equal to "Oranges" then it is not equal to "Apples"
==> the test with "Apples" returns True
==> the test with "Oranges" returns False
True OR False return True

If a cell is not equal to "Oranges" and is not equal to "Apples"
==> the test with "Apples" returns True
==> the test with "Oranges" returns True
True OR True returns True

Your formula returns always TRUE

? try to replace OR with AND




"J.W. Aldridge" <[email protected]> a écrit dans le message de
groupe de discussion :
(e-mail address removed)...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top