For-Each-Next

Söz dizimi​

For Each eleman In grup
    [deyimler]
    [Exit For]
    [deyimler]
Next [eleman]

• eleman: Her turda grubun sıradaki öğesini tutan değişkendir; zorunludur. Koleksiyonlarda Variant, Object ya da öğenin kendi nesne türü (ör. Range, Worksheet) olabilir. Dizilerde yalnızca Variant olabilir.
• grup: Dolaşılacak koleksiyonun, nesne topluluğunun ya da dizinin adıdır; zorunludur. Kullanıcı tanımlı türlerden oluşan bir dizi kullanılamaz.
• deyimler: Her öğe için çalıştırılacak kodlardır; isteğe bağlıdır.
• Exit For: Döngüden hemen çıkar ve Next satırından sonraki deyimle devam eder; isteğe bağlıdır. İç içe döngülerde yalnızca içinde bulunduğu döngüden çıkar.
• Next eleman: Döngüyü kapatır. Değişken adını yazmak isteğe bağlıdır, ancak iç içe döngülerde okunabilirliği artırır.

Nasıl çalışır​

Sık kullanılan gruplar ve sınırlar​

• Range: Seçili ya da belirtilen hücrelerin her biri. Satır ya da sütun dolaşmak için Range.Rows ve Range.Columns kullanılır.
• Worksheets: Çalışma kitabındaki çalışma sayfaları; Sheets ise grafik sayfalarını da kapsar.
• Workbooks: Açık çalışma kitapları.
• Collection ve diziler: Kendi oluşturduğunuz Collection nesneleri ile Array(...) ya da Split ile elde edilen diziler.

1. Hücreleri dolaşarak koşula göre işaretleme​

Option Explicit

Sub HedefKontrol()
    Dim hucre As Range

    ' B2:B9 aralığındaki her hücre için döngü çalışır
    For Each hucre In ActiveSheet.Range("B2:B9")
        If hucre.Value >= 5000 Then
            ' Offset(0, 1): bir sağdaki hücre (C sütunu)
            hucre.Offset(0, 1).Value = "Hedef üstü"
        Else
            hucre.Offset(0, 1).Value = "Hedef altı"
        End If
    Next hucre
End Sub

2. Dizi elemanlarını sayfaya yazma​

Option Explicit

Sub SehirListele()
    Dim sehir As Variant   ' Dizilerde döngü değişkeni Variant olmalıdır
    Dim satir As Long

    satir = 2

    For Each sehir In Array("İstanbul", "Ankara", "İzmir", "Bursa", "Antalya")
        ActiveSheet.Cells(satir, 1).Value = satir - 1   ' Sıra numarası
        ActiveSheet.Cells(satir, 2).Value = sehir       ' Şehir adı
        satir = satir + 1
    Next sehir
End Sub

3. Satırları dolaşma ve Exit For ile çıkma​

Option Explicit

Sub TutarHesapla()
    Dim satir As Range

    ' Rows özelliği aralığı satır satır dolaşmayı sağlar
    For Each satir In ActiveSheet.Range("A2:C9").Rows
        ' Ürün adı boşsa liste bitmiş kabul edilir ve döngüden çıkılır
        If satir.Cells(1, 1).Value = "" Then Exit For

        ' Üçüncü sütunun bir sağı: D sütunu
        satir.Cells(1, 3).Offset(0, 1).Value = satir.Cells(1, 2).Value * satir.Cells(1, 3).Value
    Next satir
End Sub

Kullanırken dikkat edin​

• Değişken türüne dikkat edin: Dizi dolaşırken döngü değişkenini Variant dışında bir türle tanımlarsanız "Derleme hatası" ya da tür uyuşmazlığı alırsınız. Koleksiyonlarda ise Range, Worksheet gibi özel bir nesne türü kullanabilirsiniz; bu durumda koleksiyonda başka türde öğe varsa hata oluşur.
• Dizi elemanları kopyalanır: Dizi dolaşırken değişkene yeni değer atamak dizinin kendisini değiştirmez. Dizi elemanlarını güncellemek için For...Next ile LBound ve UBound sınırlarını kullanıp dizi(i) biçiminde yazın.
• Silme işlemlerinde ters yönde dolaşın: Satır, sütun ya da sayfa silerken ileri yönlü For Each kullanırsanız öğeler atlanır. Silme işlemlerinde sondan başa doğru For...Next döngüsü kullanın.
• Geniş aralıklarda performans: Çok sayıda hücreyi tek tek dolaşmak yavaştır. Büyük veri için Application.ScreenUpdating = False ayarını kullanın ya da değerleri önce bir diziye alıp bellekte işleyin. Kullandığınız aralığı yalnızca gerekli hücrelerle sınırlayın; tüm sütunu (A:A) dolaşmak 1 milyondan fazla tur demektir.
• Exit For yalnızca içteki döngüden çıkar: İç içe For Each döngülerinde Exit For sadece bulunduğu döngüyü sonlandırır. Dıştaki döngüden de çıkmak için bir bayrak değişkeni kullanın ve dıştaki döngüde de Exit For yazın.
• İlgili konular:
  • For...Next: Sayaçlı döngü; geriye doğru ve adımlı dolaşma için.
  • Do While...Loop ve Do Until...Loop: Koşula bağlı döngüler.
  • Exit For: Döngüden erken çıkış.
  • With...End With: Aynı nesne üzerinde birden çok işlem yaparken kodu kısaltır.
  • Range, Cells ve Offset: Hücre dolaşımında sık kullanılan nesne ve özellikler.
  • Worksheets ve Workbooks: Sayfa ve kitap koleksiyonları.
  • Collection ve Array: Kendi gruplarınızı oluşturmak için.