Getting endless loop on DoUntil
 

Can someone please tell me what is wrong with this code? This goes into
an endless loop.
What I'm trying to do is more than is shown below. But, I'm just trying
to get the basic part to work before I plug in the rest of the code.
I've stared at it, and looked at other examples here, and I know it's
something simple that I'm overlooking.....
Your help is always appreciated.
J.O.

Sub OlderThanYearList()
'This will go through the list, and find all those records that are
older
'than a year. It will copy those records to the Year Old List file.

Worksheets("Official List").Activate
Application.Goto Reference:="Age"
Selection.End(xlDown).Select

Do Until IsEmpty(ActiveCell)

If ActiveCell.Value 360 Then
ActiveCell.Offset(0, 1).Select
Application.Selection.Value = "Copy"
ActiveCell.Offset(0, -1).Select
Selection.End(xlDown).Select

End If
Loop
End Sub

Getting endless loop on DoUntil
 

Hi,

Have you tried :

Do Until IsEmpty(ActiveCell.Value)

HTH
Carim

Getting endless loop on DoUntil
 

You only seem to move the activecell if the condition is met, you either
need to move that out of the If ... End If, or have an Else condition.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"excelnut1954" wrote in message
ups.com...
Can someone please tell me what is wrong with this code? This goes into
an endless loop.
What I'm trying to do is more than is shown below. But, I'm just trying
to get the basic part to work before I plug in the rest of the code.
I've stared at it, and looked at other examples here, and I know it's
something simple that I'm overlooking.....
Your help is always appreciated.
J.O.

Sub OlderThanYearList()
'This will go through the list, and find all those records that are
older
'than a year. It will copy those records to the Year Old List file.

Worksheets("Official List").Activate
Application.Goto Reference:="Age"
Selection.End(xlDown).Select

Do Until IsEmpty(ActiveCell)

If ActiveCell.Value 360 Then
ActiveCell.Offset(0, 1).Select
Application.Selection.Value = "Copy"
ActiveCell.Offset(0, -1).Select
Selection.End(xlDown).Select

End If
Loop
End Sub

Getting endless loop on DoUntil
 

Thanks, Bob.
Just not paying attention..... Appreciate the help
J.O.

Bob Phillips wrote:
You only seem to move the activecell if the condition is met, you either
need to move that out of the If ... End If, or have an Else condition.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"excelnut1954" wrote in message
ups.com...
Can someone please tell me what is wrong with this code? This goes into
an endless loop.
What I'm trying to do is more than is shown below. But, I'm just trying
to get the basic part to work before I plug in the rest of the code.
I've stared at it, and looked at other examples here, and I know it's
something simple that I'm overlooking.....
Your help is always appreciated.
J.O.

Sub OlderThanYearList()
'This will go through the list, and find all those records that are
older
'than a year. It will copy those records to the Year Old List file.

Worksheets("Official List").Activate
Application.Goto Reference:="Age"
Selection.End(xlDown).Select

Do Until IsEmpty(ActiveCell)

If ActiveCell.Value 360 Then
ActiveCell.Offset(0, 1).Select
Application.Selection.Value = "Copy"
ActiveCell.Offset(0, -1).Select
Selection.End(xlDown).Select

End If
Loop
End Sub