Logical validation macro

[rhino4eva]

I have a spread sheet that has 3 columns by 96 rows i need a vba macro to check data validity. i would normally be able to sort it out but i am unsure how to implement an "and" & "or" in the logic

a b c
1 123 x x ok
2 124 x ok
3 125 bad
4 x bad
5 x x bad
etc

i need to scan from row 1 to row 96 if there is an entry in column "a" there must be entries in "b" or "c" but if no entry in "a" there should not be in "b" or "c" .
the validation outcome could be reported by a msgbox
if anyone has any ideas i would be really grateful

 

[Joe4]

Assuming you are working will columns A-C and Rows 1-96 (if not, adjust accordingly), this should work.

Sub MyValidation()
 
    Dim i As Integer
    
    For i = 1 To 96
'   What to do if value in column A...
        If Len(Cells(i, "A")) > 0 Then
'   Check for entries in columns B or C
            If Len(Cells(i, "B")) = 0 And Len(Cells(i, "C")) = 0 Then
                MsgBox "Bad entry in row " & i
            End If
'   What to do if column A blank
        Else
            If Len(Cells(i, "B")) > 0 Or Len(Cells(i, "C")) > 0 Then
                MsgBox "Bad entry in row " & i
            End If
        End If
    Next i
    
End Sub

 

[rhino4eva]

Thanks Joe4 works a treat, just what i needed