Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Stop the loop after it runs for 10 times.
Hi,
I want to run the below mentioned loop for only 10 times. Does anyone know how to stop the loop after it complete 10 rounds. Sub LOOP12() Do Until ActiveCell.Value = "" If ActiveCell.Value = 10 Then ActiveCell.Offset(0, 1).Value = 15 End If ActiveCell.Offset(1, 0).Select Loop End Sub Regards Heera |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Stop the loop after it runs for 10 times.
sub loop12()'NO selections mc=activecell.column for i= 1 to 10 if cells(i,mc)=10 then cells(i,mc+1)=15 next i end sub -- Don Guillett Microsoft MVP Excel SalesAid Software "Heera" wrote in message ... Hi, I want to run the below mentioned loop for only 10 times. Does anyone know how to stop the loop after it complete 10 rounds. Sub LOOP12() Do Until ActiveCell.Value = "" If ActiveCell.Value = 10 Then ActiveCell.Offset(0, 1).Value = 15 End If ActiveCell.Offset(1, 0).Select Loop End Sub Regards Heera |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Stop the loop after it runs for 10 times.
Sub LOOP12()
i = 1 Do Until ActiveCell.Value = "" If i = 10 Then Exit Do i = i + 1 If ActiveCell.Value = 10 Then ActiveCell.Offset(0, 1).Value = 15 End If ActiveCell.Offset(1, 0).Select Loop End Sub -- Gary''s Student - gsnu2007k |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Stop the loop after it runs for 10 times.
Hi, here is my take:
1) IF "loop for 10 times" means that 10 times of value=10, put iX = iX + 1 inside the IF...THEN Sub LOOP12A() Dim iX as integer ' count how many times iX=0 Do Until ActiveCell.Value = "" or iX=10 If ActiveCell.Value = 10 Then ActiveCell.Offset(0, 1).Value = 15 End If iX=iX+1 ActiveCell.Offset(1, 0).Select Loop End Sub --AC "Don Guillett" wrote: sub loop12()'NO selections mc=activecell.column for i= 1 to 10 if cells(i,mc)=10 then cells(i,mc+1)=15 next i end sub -- Don Guillett Microsoft MVP Excel SalesAid Software "Heera" wrote in message ... Hi, I want to run the below mentioned loop for only 10 times. Does anyone know how to stop the loop after it complete 10 rounds. Sub LOOP12() Do Until ActiveCell.Value = "" If ActiveCell.Value = 10 Then ActiveCell.Offset(0, 1).Value = 15 End If ActiveCell.Offset(1, 0).Select Loop End Sub Regards Heera |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to stop other macros while current macro runs | Excel Programming | |||
Can you code a macro so it runs multiple times in the same workboo | Excel Discussion (Misc queries) | |||
ADO command.execute with a loop - only runs once | Excel Programming | |||
HELP!!!! Can't stop a loop (NOT an infinite loop) | Excel Programming |