Exit For ve Exit Do ile Kaçış

Performans Kurtarıcısı

Hedefe ulaştıktan sonra döngünün devam etmesi sadece bilgisayarı dondurur. Bulduğunuz an Exit komutunu verin.

VBA Kodu:

Sub ArananiBul()
    Dim i As Integer
    For i = 1 To 1000
        If Cells(i, 1).Value = "Hazine" Then
            MsgBox "Hazine bulundu! Satır: " & i
            Exit For
        End If
    Next i
End Sub

Ne Göreceksiniz? Eğer "Hazine" 10. satırdaysa döngü kalan 990 defayı dönmeyecek, anında mesajı verip sonlanacaktır.