What is wrong with this "Do Until" Loop in Excel?

Question

I am trying to repeat this process x amount of times, but I keep getting the message "Compile Error: Loop without Do"

Here is my code

Do Until x > 10
    x = x + 1
    For Each Row In propertytable
    Range("A2,B2,C2,D2,E2").Select
    Range("E2").Activate
    Selection.Copy
    Sheets("Copy to' sheet").Select
    Range("A1").Select
    ActiveSheet.Paste
    Rows("1:1").Select
    Application.CutCopyMode = False
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Sheets("Property table").Select
    Rows("2:2").Select
    Selection.Delete Shift:=xlUp
    Sheets("Copy to' sheet").Select
Loop

Thanks in advance for any help you may be able to provide.

I suggest you install the MZ-Tools utility. It will automatically indent your code for you. This makes it easier to spot mistakes like this. — Jean-François Corbett
– Jean-François Corbett, Commented Jan 8, 2014 at 8:18

Mark Fitzgerald · Accepted Answer · 2014-01-08 11:07:16Z

2

Indenting your code would've made the omission of Next Row more apparent.

Do Until x > 10
    x = x + 1
    For Each Row In propertytable
        Range("A2,B2,C2,D2,E2").Select
        Range("E2").Activate
        Selection.Copy
        Sheets("Copy to' sheet").Select
        Range("A1").Select
        ActiveSheet.Paste
        Rows("1:1").Select
        Application.CutCopyMode = False
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Sheets("Property table").Select
        Rows("2:2").Select
        Selection.Delete Shift:=xlUp
        Sheets("Copy to' sheet").Select
    'with indent it's obvious there's something missing
    Next Row
Loop

I think you may have some other compile errors in there that you will find after adding the Next Row command.

answered Jan 8, 2014 at 11:07

Mark Fitzgerald

3,0683 gold badges27 silver badges29 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

user3093287 Over a year ago

Thanks for the help. I am having a bit of trouble getting it to compile. I'll keep working on it.

Collectives™ on Stack Overflow

What is wrong with this "Do Until" Loop in Excel?

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related