Loop Until Specific Cell 1

[HairyHippy]

Hi All

Could you help me out again? I'm trying to loop a piece of code until cell A10 is reach, what is the loop until statement I need?

Sub AddNewClient()
    Application.Calculation = xlCalculationManual
    Dim x As Long
    Dim r As Range
    Do
        Rows(ActiveCell.Row).Select
        Rows("5:10").Copy
        Selection.Insert Shift:=xlDown
        Rows(ActiveCell.Row - 1).Select
        Selection.Rows.Group
    Loop Until (cell A10 reached)
    Application.Calculation = xlCalculationAutomatic
End Sub

 

[MakeItSo]

Hi AdeyB,

normally this would be e.g.

Loop Until ActiveCell.Address="$A$10"

However, your are not selecting cells, but rows. So it would be

Loop Until ActiveCell.Row=10

Is that what you're looking for?
;-)

 

[SkipVought]

Hi,

Selecting Cells degrades performance, even with Application.ScreenUpdating = False. Using range refrerences makes for better code.

But you have a more fundamental logic problem, I think. You are copying and inserting 6 rows. This does not make sense.

Please explain what you are trying to accomplish, not in terms of code, but in terms of what's on the spreadsheet.

Skip,

_{[red]Be advised:[/red] When transmitting sheet music...
If it ain't baroque, don't fax it!}

 

[HairyHippy]

Thanks makeitso - that works!

Skip

I have a flat file (plain data) that I need to insert certain lines in between with formulas and formatting. My code starts at the last cell in column A and copies and inserts the formating and formulas between each row. If there is a better way of doing this, I'd like to know. Sorry can't be more explicit on the data but it is sensitive.

Thanks guys.