Use of OR

[Guest]

Please tell me why this code does not work with the OR in
the code. If I delete the line Or Range("SupportUnrstrd")
(i).Offset(0, -21) <> "550" it works. So I must be doing
something wrong with this OR. Please tell me. Thank you
for your help.



Dim i As Integer
For i = 1 To Range("SupportUnrstrd").Cells.Count
If Range("SupportUnrstrd")(i) <> "" Then
If Range("SupportUnrstrd")(i).Offset(0,-
21) <> "500" _
Or Range("SupportUnrstrd")(i).Offset
(0, -21) <> "550" Then

Sheets("Admin Alloc").Range("A14").End
(xlDown).Offset(1, 0) = _
Range("SupportUnrstrd")(i).Offset(0, -
22)
End If
End If
Next i

 

[Don Guillett]

Try using AND instead of OR

 

[Guest]

Hi Don,

It seems that the use of AND tests for both conditions at
the same time and if both are not present then it is
included. However, the cell would contain one or the other
condition. So I am still trying to figure out what to do.
Thanks for your suggestion.

Regards

 

[Dick Kusleika]

this will always return True. If the cell does equal 500, then the second
part will be True and

True Or False = True

You'll never have a False Or False result, so every cell will be processed.