end if without block if

[Dirk Nachbar]

This is a very eay macro and yet Excel complains about an "end if
without block if". Why???

Sub check()

Count = 0
For i = 1 To 9
For j = 1 To 9
If Cells(i + 3, j + 3) <> Cells(i + 26, j + 26) Then Do
Cells(i + 3, j + 3).Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Count = Count + 1
End If
Next j
Next i


If Count > 0 Then MsgBox (Count & "are still wrong")
If Count = 0 Then MsgBox ("You have solved it")
End Sub

 

[PCLIVE]

I'm not sure what the purpose of "Do" is in your code. Try it without. And
I prefer to space out the block if's and with's to make for easier reading
and debugging.

Sub check()

Count = 0
For i = 1 To 9
For j = 1 To 9
If Cells(i + 3, j + 3) <> Cells(i + 26, j + 26) _
Then
Cells(i + 3, j + 3).Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Count = Count + 1
Else
End If
Next j
Next i


If Count > 0 Then MsgBox (Count & "are still wrong")
If Count = 0 Then MsgBox ("You have solved it")
End Sub


HTH,
Paul

 

[Dirk Nachbar]

yes it was the DO, thanks

Dirk

I'm not sure what the purpose of "Do" is in your code. Try it without. And
I prefer to space out the block if's and with's to make for easier reading
and debugging.

Sub check()

Count = 0
For i = 1 To 9
For j = 1 To 9
If Cells(i + 3, j + 3) <> Cells(i + 26, j + 26) _
Then
Cells(i + 3, j + 3).Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Count = Count + 1
Else
End If
Next j
Next i

If Count > 0 Then MsgBox (Count & "are still wrong")
If Count = 0 Then MsgBox ("You have solved it")
End Sub

HTH,
Paul









- Show quoted text -