Prev: help with listing data
Next: SaveAs dialog argument for file type
From: J.W. Aldridge on 6 Feb 2010 05:55
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


From: Charabeuh on 6 Feb 2010 06:32
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" <jeremy.w.aldridge(a)gmail.com> a �crit dans le message de
groupe de discussion :
dc5418dc-8154-4fdf-aebf-8bc220f800e2(a)b2g2000yqi.googlegroups.com...
> 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
>
>
From: J.W. Aldridge on 6 Feb 2010 06:42
you were SO right.

Thanx a million..... It works now!

 | 
Pages: 1
Prev: help with listing data
Next: SaveAs dialog argument for file type