50 seferde bir birim atlayan döngü

[idogus]

Merhaba Arkadaşlar,

1 den 200 kadar oluşturduğum bir döngüde 50/1 bir birim atlayacak bir döngü kurmak mümkün mü? Yani
50. ye geldiğinde 52. ye atlayacak
100. ye geldiğinde 102. ye atlayacak
150. ye geldiğinde 152. ye atlayacak
ve 200 de bitirecek.

Yardımlarınız için şimdiden teşekkürler

 

[veyselemre]

şunu bir deneyin

Sub deneme()
For x = 1 To 200
If x = 50 Or x = 51 Or x = 100 Or x = 101 Or x = 150 Or x = 151 Then GoTo 10
Cells(x, 1) = x
10 Next
End Sub

 

[Serpily]

Sub dongu()
c = 1
For i = 1 To 200
If i = 50 * c + 1 Then
c = c + 1
i = i + 1
End If
Range("a" & i).Value = i
Next i
End Sub


Bence oldu gibi.

 

[Levent Menteşoğlu]

Birde aşağıdaki kodu deneyin.
[vb:1:15318ae0ba]Sub aa()
For a = 1 To 200
If a <> 1 And (a - 1) / 50 = Int((a - 1) / 50) Then b = 1
Cells(a + b, 1) = a + b
b = 0
Next a
End Sub
[/vb:1:15318ae0ba]

 

[Haluk]

Bir alternatif de benden... :mrgreen:

[vb:1:b83b0cd540]Sub Test()
For i = 1 To 200
Select Case i
Case 50, 100, 150
Range("A" & i, "A" & i + 1) = "Burada pas geciyoruz..."
i = i + 2
End Select
Range("A" & i) = i
Next
End Sub
[/vb:1:b83b0cd540]

 

[ALPEN]

bir tane daha.
[vb:1:a4a26891dc]For i = 1 To 200
If i Mod 50 = 1 and i <>1 Then i = i + 1
Cells(i, 1) = i
Next[/vb:1:a4a26891dc]

 

[danersin]

yada

[vb:1:cc2395c8df]For i = 1 To 200
If i Mod 51 = 0 Then i = i + 1
Cells(i, 1) = i
Next[/vb:1:cc2395c8df]

 

[ALPEN]

Mod 51? :mrgreen:

102 ?
153 ?

 

[danersin]

Soruyu okumamışım. Her 50 saydan sonra atlıyor buda, bana göre daha sık lazım olan şekli bu. @idogus sorunu bu şekilde editlermisin :hiho:

 

[Haluk]

Soruyu okumamışım. Her 50 saydan sonra atlıyor buda, bana göre daha sık lazım olan şekli bu. @idogus sorunu bu şekilde editlermisin :hiho:

ehehee....

Bak yine abimi hatırladım....

Sınavdan kötü not alıp da eve gelince babamdan fırçayı yedikten sonra .... " ben napiim, cevaplarım doğruydu ama hocanın soruları yanlıştı !" demişti .... :mrgreen: