Go To Komutu

[airborne]

s.a.

Go To komutunu mesela 3 ya da 5 sefer gibi kısıtlı olarak çalıştırabilirmiyiz.

Selametle............................

 

[Korhan Ayhan]

Bir sayaç kullanarak işlem yapabilirsiniz.

 

[airborne]

s.a.

üstad bunu nasıl yapabiliriz. Örnek verebilir misiniz.

Selametle...............

 

[Korhan Ayhan]

Siz yapmak istediğiniz işlemi örnek dosya ile açıklarsanız daha sağlıklı cevap verebiliriz.

 

[ÖmerFaruk]

Şöyle bir örnek umarım işinizi görür.

Sub GoToLimitli()
Tekrar:
    Say = Say + 1   'Kaç kez tekrar edileceğini belirten değişken
    i = i + 1       'örnek olsun diye yazılmış kod. siz kendi kodlarınızı bu araya gireceksiniz
    If i < 99 And Say < 3 Then GoTo Tekrar
    MsgBox "Sonuç i = " & i & vbCrLf & vbCrLf & Say & " kez tekrar edildi."
End Sub

 

[airborne]

s.a.

Allah Razı Olsun .

Selametle.........................

 

[ÖmerFaruk]

Aslında o sizin isteğiniz. Aşağıdaki biraz daha uygun olan çözümü

Sub GoToLimitli()
    Do
    Say = Say + 1   'Kaç kez tekrar edileceğini belirten değişken
    i = i + 1       'örnek olsun diye yazılmış kod. siz kendi kodlarınızı bu araya gireceksiniz
    Loop Until Say = 3
    MsgBox "Sonuç i = " & i & vbCrLf & vbCrLf & Say & " kez tekrar edildi."
End Sub

Alternatifler de üretilebilir.