VBA multiple "not equal to statements"

[RosieRose]

I have written code so that if the cell content if is equal content is equal to a set variable, then the macros counts it as a value of one (this works great), I need to add code, so that if the cell content is not blank, or not equal to the previous variables it will also count as one , I am having trouble with the "not equal to" statement

     If Cells(DateIndex - k, j + 1) = "0" And Cells(5, j + 1).Value = "HIGH" Then
                Condition1 = Condition1 1
            
                ElseIf Cells(DateIndex - k, j + 1) = "Z" Then
                   Condition2= Condition2 + 1
                ElseIf Cells(DateIndex - k, j + 1) = "Y" Then
                    Condition3 = Condition3 + 1
                ElseIf Cells(DateIndex - k, j + 1) = "X" Then
                    Condition4 = Condition4 + 1
                ElseIf Cells(DateIndex - k, j + 1) = "W" Then
                    Condition5 = Condition5 + 1
                ElseIf Cells(DateIndex - k, j + 1) = "V" Then
                    Condition6 = Condition6 + 1
ElseIf Cells(DateIndex - k, j + 1) <> "Z" And "Y" And "X" And "W" And "V" And "0" Then
                    OtherRead= OtherRead + 1

it is this last line of code that is not working for me

ElseIf Cells(DateIndex - k, j + 1) <> "A" And "B" And "C" And "D" And "E" And "0" Then
    OtherRead= OtherRead + 1

I am getting error code 13 mismatch. any help is much appreciated.

 

[JoeMo]

Try changing that line to this:

ElseIf Cells(DateIndex - k, j + 1) <> "A" And Cells(DateIndex - k, j + 1) <> "B" And Cells(DateIndex - k, j + 1) <>"C" And Cells(DateIndex - k, j + 1) <>"D" And Cells(DateIndex - k, j + 1) <> "E" And Cells(DateIndex - k, j + 1) <> "0" Then

 

[RosieRose]

Thank you JoMo, I am no longer getting the error message, but I am still not getting the code to count for me (which I suspect is a problem elsewhere, I will need to comb through and find). However, I realized that I will also need to exclude blank cells. do I need to add:

And Cells(DateIndex - k, j + 1) <>""

Thank you

 

[JoeMo]

That addition will exclude blanks if that's necessary.

 

[RosieRose]

Thanks again, I added the extra mine and expanded my array. Macro is working beautifully.

 

[JoeMo]

Thanks again, I added the extra mine and expanded my array. Macro is working beautifully.

You are welcome - thanks for the reply.