Proper loop receiving: "Loop without the do"

[blairintern]

I have a full loop written with correct code within...but i keep receiving an error of "Loop without the do"

Here is the code

Do
        With Sheets("Input").Range("A1")
            If .Offset(i, 0) Is Nothing Then
                i = i + 1
            Else
                Set Deal = New IssueClass
                Deal.Purpose = .Offset(i, 2) & " " & .Offset(i, 4) _
                & " " & .Offset(i, 5)
                Deal.DatedDate = .Offset(i, 0)
                Deal.Series = .Offset(i, 3)
                Deal.Par = .Offset(i, 7)
                Deal.CallDate = .Offset(i, 8)
                Deal.CallPrice = .Offset(i, 9)
                Deal.Fitch = .Offset(i, 10)
                Deal.Moody = .Offset(i, 11)
                Deal.SandP = .Offset(i, 12)
                Deal.Underwriter = .Offset(i, 16)
                Deal.Counsel = .Offset(i, 17)
                ' Deal.Refunded = .Offset(i, 19)
                ' Deal.Insurance = .Offset(i, 26) ' not yet on form
                Set AllIssues(n) = Deal
                n = n + 1
                i = i + 1
    Loop Until ActiveCell.Range("A1").Offset(i, 0).Value = "Session Det"

I am at a loss as to what could be causing this. Let me know if any information is required to solve this problem...Thanks!

 

[blairintern]

AllIssues is an array of a custom class of variables called IssueClass.

 

[Norie]

You're missing an End If.

 

[Jonmo1]

I think you need to END the IF...

Do 
        With Sheets("Input").Range("A1") 
            If .Offset(i, 0) Is Nothing Then 
                i = i + 1 
            Else 
                Set Deal = New IssueClass 
                Deal.Purpose = .Offset(i, 2) & " " & .Offset(i, 4) _ 
                & " " & .Offset(i, 5) 
                Deal.DatedDate = .Offset(i, 0) 
                Deal.Series = .Offset(i, 3) 
                Deal.Par = .Offset(i, 7) 
                Deal.CallDate = .Offset(i, 8) 
                Deal.CallPrice = .Offset(i, 9) 
                Deal.Fitch = .Offset(i, 10) 
                Deal.Moody = .Offset(i, 11) 
                Deal.SandP = .Offset(i, 12) 
                Deal.Underwriter = .Offset(i, 16) 
                Deal.Counsel = .Offset(i, 17) 
                ' Deal.Refunded = .Offset(i, 19) 
                ' Deal.Insurance = .Offset(i, 26) ' not yet on form 
                Set AllIssues(n) = Deal 
            End If
            n = n + 1 
            i = i + 1 
    Loop Until ActiveCell.Range("A1").Offset(i, 0).Value = "Session Det"

 

[blairintern]

I added the "End IF" and I still receive the same error.

I have tried to change the error by adding additional "DOs" to the top (in case another open statement was somewhere in the code) and that doesn't remove it either.

Is it possible that it would display this if the LOOP UNTIL expression never came true? (I assumed that it would just lock up).

 

[calming.insanity]

is it possible for you to post the code above and below that section? Perhaps you forgot to close a do or if statement above it

 

[blairintern]

Actually, i forgot to end the WITH statement at the opening of the loop. After closing that, that assuaged the problem and I am on to a new error.

Thanks for the suggestions, everyone! Big up for mrexcel.com forum.

 

[Norie]

blair

Why the loop in the first place?

 

[blairintern]

the nature of the input is disorganized. I am attempting to create an array of Issues (called Deal in the loop) from an unorganized input from a program by Thompson Research called SDC.

Its output is just a delimited text file that lists Issues row by row (but some values extend the height of distance between the Issues via more rows)

I seem to have this portion up and running.