(expected expression) vba error

Question

so basically my code goes like this:

Sub clor2()

For j = 0 To 10    
  For i = 0 To 10    
  if i mod = 0 and and j mod=0 then    
    [D2].Offset(j, i).Interior.ColorIndex = 37       
 Else    
[D2].Offset(j, i).Interior.ColorIndex = 36    
End If        
  Next i    
  Next j        
End Sub

You have and in there twice. Vityata has the correct answer below. I just wanted to explain what they did to fix it. — Hasib_Ibradzic, Jul 27 '18 at 15:58

Vityata · Accepted Answer · 2018-07-27T16:00:32.860

2

The mod operator is used like this 5 mod 2 = 1 and 6 mod 2 = 0.VBA equivalent to Excel's mod function.

Thus, it should be i Mod SomeNumber = 0 for the condition.

Option Explicit

Sub clor2()
    Dim j As Long, i As Long

    For j = 0 To 10
        For i = 0 To 10
            If i Mod 3 = 0 And j Mod 7 = 0 Then
                [D2].Offset(j, i).Interior.ColorIndex = 37
            Else
                [D2].Offset(j, i).Interior.ColorIndex = 36
            End If
        Next i
    Next j    

End Sub

Option Explicit is also a good practice in VBA - thus your variables i and j should be declared. - VBA: problems with defining variables in function if Option Explicit is used

edited Jul 27 '18 at 16:00

answered Jul 27 '18 at 15:55

Vityata

42,633
8
55
100

1

what was wrong with my code?i dont see any diff,but urs worked – tehcoder Jul 27 '18 at 15:58
You had the word And in there twice after if I Mod = 3 – Hasib_Ibradzic Jul 27 '18 at 16:00
@tehcoder - I have updated. In general, whenever looking for a difference between two similar texts, you can use some difference checker. See this one online - https://www.diffchecker.com/ – Vityata Jul 27 '18 at 16:01

(expected expression) vba error

1 Answers1