Using If - Or statements

[taranducal]

I'll show you what I have that works - and what I'm trying to do that doesn't.

This code works. It checks to see that ShortPostal Or ProtTerritory do not equal certain cells...it evaluates to False if they do not equal to the values in these cells. These are separated by an OR because if either of them doesn't meet the condition then I want to evaluate to false....

Please Login or Register  to view this content.

Now I want to check more than just these two variables....I want to check 3 more and I'm not sure how to do this....here's what I've got:


ShortPostal = Mid(InSheet.Cells(theRow, 1).Value, 1, 6)
ProtTerritory = InSheet.Cells(theRow, 4).Value
SemiTerritory = InSheet.Cells(theRow, 5).Value
UnProtTerritory = InSheet.Cells(theRow, 6).Value
SBUZone = InSheet.Cells(theRow, 7).Value


Dim i As Integer
Dim isGroup As Boolean
isGroup = True
For i = 1 To 9
If (Mid(InSheet.Cells(theRow + i, 1).Value, 1, 6) <> ShortPostal _
Or InSheet.Cells(theRow + i, 4).Value <> ProtTerritory) _
At this point, do I add the following?
Or InSheet.Cells(theRow + i, 4).Value <> ProtTerritory) _
Or InSheet.Cells(theRow + i, 5).Value <> SemiTerritory) _
Or InSheet.Cells(theRow + i, 6).Value <> UnProtTerritory) _
Or InSheet.Cells(theRow + i, 7).Value <> SBUZone) _

Then
isGroup = False
Exit For
End If
Next i

When I try to do the above it doesn't work - is there a smarter way to go about this? I'm very new to VBA so I'm convinced I'm missing something obvious - any help would be apprecated!

Thanks!

-Tara

[Domski]

In theory what you have suggested looks fine.

Dom

[Domski]

If you are very new to VBA I think Mike Alexander's tutorials might be a help:

http://www.datapigtechnologies.com/ExcelMain.htm

Dom

[taranducal]

In theory what you have suggested looks fine.

Dom

I keep getting a Complie error: Expected: Then or GoTo

ShortPostal = Mid(InSheet.Cells(theRow, 1).Value, 1, 6)
ProtTerritory = InSheet.Cells(theRow, 4).Value
SemiTerritory = InSheet.Cells(theRow, 5).Value
UnProtTerritory = InSheet.Cells(theRow, 6).Value
SBUZone = InSheet.Cells(theRow, 7).Value


Dim i As Integer
Dim isGroup As Boolean
isGroup = True
For i = 1 To 9
If (Mid(InSheet.Cells(theRow + i, 1).Value, 1, 6) <> ShortPostal _
Or InSheet.Cells(theRow + i, 4).Value <> ProtTerritory) _
Or InSheet.Cells(theRow + i, 5).Value <> SemiTerritory) _ Right at this point
Or InSheet.Cells(theRow + i, 6).Value <> UnProtTerritory) _
Or InSheet.Cells(theRow + i, 7).Value <> SBUZone) _
Exit For
End If
Next i

[Domski]

Try:

Please Login or Register  to view this content.

Try to use code tags, it makes any code you are posting much easier to read.

Dom

[taranducal]

Sorry - I'll use the code tags...

I accidentally left of the Then statement from the last piece of code I posted....

Here's what I'm working with:

Please Login or Register  to view this content.

Or InSheet.Cells(theRow + i, 5).Value <> SemiTerritory) _Compile error: Expected: Then or GoTo

[Domski]

Only on my mobile but if you pop IsGroup=False after the Then in the code I posted last it should work I think.

[taranducal]

Only on my mobile but if you pop IsGroup=False after the Then in the code I posted last it should work I think.

That looks like it did it! Thank you!!!