vba the loop are not working.

[montecarlo2012]

Hello people.

Sub java_to_vba()
n = 5
      For i = 1 To n
            For j = 1 To n
                  If i = (n / 2) + 1 And j = (n / 2) + 1 Then
                  Cells(i, j) = " + "
                  Else
                  Cells(i, j) = ""
                  End If
            Next
      Next
End Sub

supposedly with this logic a Cruz will be generate

It is not working,
Please, your inputs are appreciated
Thanks.

 

[jasonb75]

The 'If' line is wrong.

If i = Int(n / 2) + 1 Or j = Int(n / 2) + 1 Then

 

[Rick Rothstein]

When n is an odd number, n/2 is fractional (ends with .5) so the integer i or j will never equal it. Also, you want to use OR (not AND) in that If statement (the only time they would both be True is for the center cell). Change this line of code...

If i = (n / 2) + 1 And j = (n / 2) + 1 Then

to this...

If i = Int(n / 2) + 1 Or j = Int(n / 2) + 1 Then

 

[montecarlo2012]

Thank you Mr. Rick, work perfect. Good lesson.