Compile Error: Next without For

Jamesss

Registered User.
Local time
Tomorrow, 04:18
Joined
Dec 7, 2008
Messages
27
Below is a simple for loop I am running on an open excel worksheet.
I get "Compile Error: Next without For" at the line highlighted.

Can figure out where the syntax has gone awry :confused:. My IF statements appear to be closed. Advice?

Code:
    For c = 17 To iCol
        rs.AddNew
        If Cells(nRow, c) = "" Or IsNull(Cells(nRow, c)) = True Then
            Exit For
        ElseIf Cells(1, c) = "Asst.Number" Then
            If Cells(nRow, c) = oSheet.Range("D" & nRow).Value Then
                [B][COLOR=red]Next c[/COLOR][/B]
            Else
                LinkedAssmtNumber = Cells(nRow, c)
            End If     
        End If
        
        rs("ID") = oSheet.Range("A" & nRow).Value
        rs("EO Number") = oSheet.Range("B" & nRow).Value
        rs("Issue") = oSheet.Range("C" & nRow).Value
        rs("Assessment Number") = LinkedAssmtNumber
        rs("EO Status") = oSheet.Range("E" & nRow).Value
        rs("Group") = oSheet.Range("F" & nRow).Value
        rs("Title") = oSheet.Range("G" & nRow).Value
        rs("Class") = oSheet.Range("H" & nRow).Value
        rs("Start Date") = oSheet.Range("I" & nRow).Value
        rs("Approved Date") = oSheet.Range("J" & nRow).Value
        rs("Created By") = oSheet.Range("K" & nRow).Value
        rs("Approved By") = oSheet.Range("L" & nRow).Value
        rs("Applicability") = oSheet.Range("M" & nRow).Value
        rs("CEA") = oSheet.Range("N" & nRow).Value
        rs("Work Order") = oSheet.Range("O" & nRow).Value
        rs("Customer") = oSheet.Range("P" & nRow).Value
        rs.Update
    Next c
 
Change
Code:
If Cells(nRow, c) = oSheet.Range("D" & nRow).Value Then
    Next c
Else
...to:
Code:
If Cells(nRow, c) = oSheet.Range("D" & nRow).Value Then
    [b]GoTo For_C_Continue[/b]
Else

Then, change:
Code:
    rs.Update
Next c
...to:
Code:
    rs.Update
[b]For_C_Continue:[/b]
Next c
 
i think you can only have 1 next for each for - so the easiest way is to jump to a label immediately before the next instruction, as bytemyzer has suggested
 

Users who are viewing this thread

Back
Top Bottom