CODEWITHSUNDEEP
vbaexcel
Stuart Allan
Stuart Allan

Reputation: 173

Nested FOR loops in VBA

I am attempting to impliment a nested FOR loop in excel. Then interior loop does not seem to be executing in the code. Is the error syntatical? What's going on here?

Sub Statistics()
    Dim cc As Integer
    Dim i As Integer

    i = 4
    cc = 0
    For cc = 0 To 4
        For i = 4 To -4
            If Sheets("Significance").Cells(4 + cc, 13 - i) = 1 Then Sheets("Output Database").Cells(8 + currevent, 7 + cc) = i
        Next i
    Next cc

        'Rates
    i = 4
    cc = 0
    For cc = 0 To 4
        For i = 4 To -4
            If Sheets("Significance").Cells(14 + cc, 13 - i) = 1 Then Sheets("Output Database").Cells(8 + currevent, 23 + cc) = i
        Next i
    Next cc    
End Sub

Upvotes: 0

Views: 1041

Answers (1)

dendarii
dendarii

Reputation: 3088

The loop referring to the i variable needs to specify that i is decreasing:

For i = 4 To -4 Step -1

Upvotes: 2

Related Questions