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

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

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

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