Error checking - Dim i as Integer

[Billdub417]

Hello, I have the following code to check that each cell = 0. There are 12 cells, for each month of the year and I was trying to make it flag up which periods did not equal zero. However, this code will only show "Period1". Thanks in advance

With Sheet22
        Dim i As Integer
        i = 1
        For Each cell In .Range("v3:v14").Cells
            If cell.value <> 0 Then
                MsgBox ("Period" & i & " does not balance")
                Sheets("Mapping").Select
                Exit Sub
            End If
        Next
        
     End With

 

[MARK858]

A) You are not incrementing i at each iteration
B) you are telling it to Exit the sub after it finds 1 cell not = 0

With Sheet22
        Dim i As Integer
        i = 1
        For Each cell In .Range("v3:v14").Cells
            If cell.value <> 0 Then
                MsgBox ("Period" & i & " does not balance") 
                'Exit Sub
            End If
        i = i + 1 
        Next
        Sheets("Mapping").Select
End With

 

[My Aswer Is This]

You said:

I was trying to make it flag up

What does flag up mean?

If you want the Msgbox to Popup what do you want it to say?
Your post seems to just want the same Message each time.


​

 

[Billdub417]

This works perfectly, thanks!

A) You are not incrementing i at each iteration
B) you are telling it to Exit the sub after it finds 1 cell not = 0

With Sheet22
        Dim i As Integer
        i = 1
        For Each cell In .Range("v3:v14").Cells
            If cell.value <> 0 Then
                MsgBox ("Period" & i & " does not balance") 
                'Exit Sub
            End If
        i = i + 1 
        Next
        Sheets("Mapping").Select
End With