Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Getting endless loop on DoUntil
Hi,
Have you tried : Do Until IsEmpty(ActiveCell.Value) HTH Carim |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Endless loop | Excel Programming | |||
endless loop help | Excel Programming | |||
Endless loop? | Excel Programming | |||
deleting rows, endless loop maybe ? | Excel Programming | |||
Interrupting an endless loop | Excel Programming |