döngünün bir koşul sağlanınca bir artıp devam etmesi

[Aytaç]

döngünün bir koşul sağlanınca bir artıp devam etmesi

merhaba arkadaşlar,
bir makro yazmaya çalışıyorum ufak bi problemim var:
for döngüsü açtım ve bu döngü çalışırken bir değişken değer artarak devam ediyor eğer belli bir sınır aşarsa döngümün o noktadan gerisi için işlem yapmadan döngü değerini bir artırıp devam etmesini istiyorum
örneğin
for i=1 to 5
...kod(1)
...kod(2)
x=x+cells(i,4)
...kod(3)
...kod(4)
next

burada örneğin i=3 için x>10 ise geri kalan kodları çalıştırmadan i=4 için devam etmesini istiyorum nası yapabilirim

 

[Korhan Ayhan]

Selamlar,

Bu tür durumlarda IF ile sorgulama yapabilirsiniz.

Sub Örnek()
    For i = 1 To 5
    If i = 3 And X > 10 Then GoTo Devam
    '...kod(1)
    '...kod(2)
    X = X + Cells(i, 4)
    '...kod(3)
    '...kod(4)
Devam:
    Next
End Sub

 

[Aytaç]

teşekkürler

ilgilenen bütün arkadaşlara ve özellikle cost_controle çok teşekkür ediyorum... iyi çalışmalar