For Next içinde If Then

[xternet]

Merhaba arkadaşlar

İç içe 5 değişken için for next döngüsü kurdum. Döngüler çalışırken belirlediğim hücrelere değişkenler atanıyor ve bazı hücrelerde çeşitli işlemler yapılıyor.

İsteğim: döngüler çalışırken D19 hücresindeki değer sıfır olduğunda (burada oluşan sıfır değeri döngülerden gelen değere göre çeşitli işlemler sonucunda oluşuyor) işlem sonlansın. Yani for next döngüsü tüm değerler için tamamlanmadan bitirilsin.

Herkese iyi çalışmalar.

 

[Ayhan Ercan]

Sorunuzu örnek dosya ile destekleseydiniz daha iyi olurdu.
Acaba böyle bişeymi istediğiniz:

Sub dene()
For i = 1 To 5
Cells(i, 1) = i
[COLOR=red][B]If i = 4 Then Exit For[/B][/COLOR]
Next
End Sub

 

[xternet]

Sub piramid()
Dim i As Integer
Dim x As Integer
Dim y As Integer
Dim z As Integer
Dim k As Integer

For i = 6 To 15
For x = 14 To 15
For y = 15 To 15
For z = 1 To 15
For k = 1 To 15

[C14] = i
[E14] = x
[G14] = y
[I14] = z
[K14] = k

If [o19] = 0 Then Exit For

Next k
Next z
Next y
Next x
Next i

End Sub



Bahsettiğim Döngü bu. Ama sanırım o19 sıfır olduğunda döngü sonlanmadı.

 

[Ayhan Ercan]

Aşağıdaki gibi deneyiniz..:

Sub piramid()
Dim i As Integer
Dim x As Integer
Dim y As Integer
Dim z As Integer
Dim k As Integer
 
For i = 6 To 15
For x = 14 To 15
For y = 15 To 15
For z = 1 To 15
For k = 1 To 15
 
[C14] = i
[E14] = x
[G14] = y
[I14] = z
[K14] = k
 
If [o19] = 0 Then GoTo son
 
Next k
Next z
Next y
Next x
Next i
son:
End Sub

 

[xternet]

Teşekkür ederim Sayın Ayhan Ercan. Kod düşündüğüm gibi istediğim değerde sonlandı. Zihninize sağlık.
İyi çalışmalar.

 

[Ayhan Ercan]

Teşekkür ederim Sayın Ayhan Ercan. Kod düşündüğüm gibi istediğim değerde sonlandı. Zihninize sağlık.
İyi çalışmalar.

Rica ederim.
İyi Çalışmalar...