Excel VBA Döngüler ve Koşullu İfade Makroları

Excel VBA Döngüler ve Koşullu İfadeler: For, Do While, If ve Select Case
Excel VBA Döngüler ve Koşullu İfadeler

1. Örnek Veri Tablosu

Aşağıdaki tablo üzerinde döngü ve koşul yapılarını test edeceğiz.

# A (Değer) B (Sonuç)
1 Değer Sonuç
2 3 ?
3 8 ?
4 5 ?
5 10 ?
6 2 ?
Örnek tablo (A1:B6) - B sütununa sonuçlar yazılacak

Tablo Bilgisi

Bu tablo üzerinde For Next, Do While, If ve Select Case yapılarını test edeceğiz.

2. For Next Döngüsü

For Next ile belirli sayıda tekrarlama yaparız. Örnek: A sütunundaki sayıları B sütununa 2 katını yazalım.

Sub ForNextOrnek()
    Dim i As Integer
    For i = 2 To 6
        Cells(i, 2).Value = Cells(i, 1).Value * 2
    Next i
End Sub

Kod Açıklaması

  • Dim i As Integer → Döngü değişkeni
  • For i = 2 To 6 → 2'den 6'ya kadar döngü
  • Cells(i, 2).Value = Cells(i, 1).Value * 2 → A sütunundaki sayıyı 2 ile çarp B'ye yaz

Tablo: 🟩 For Next sonuçları:

# A B
2 3 🟩 6
3 8 🟩 16
4 5 🟩 10
5 10 🟩 20
6 2 🟩 4
🟩 For Next ile 5 satıra işlem uygulandı

3. If Then Else Karar Yapısı

If Then Else ile koşula göre farklı işlem yaparız. Örnek: A sütunundaki sayı 5'ten büyükse "Büyük" yazalım.

Sub IfOrnek()
    Dim i As Integer
    For i = 2 To 6
        If Cells(i, 1).Value > 5 Then
            Cells(i, 2).Value = "Büyük"
        Else
            Cells(i, 2).Value = "Küçük"
        End If
    Next i
End Sub

Kod Açıklaması

  • If Cells(i, 1).Value > 5 Then → A sütunundaki değer 5'ten büyük mü?
  • Cells(i, 2).Value = "Büyük" → Büyükse B'ye "Büyük" yaz
  • Else → Değilse
  • Cells(i, 2).Value = "Küçük" → B'ye "Küçük" yaz

Tablo: 🔵 If sonuçları:

# A B
2 3 🔵 Küçük
3 8 🔵 Büyük
4 5 🔵 Küçük
5 10 🔵 Büyük
6 2 🔵 Küçük
🔵 If ile 5 satıra koşullu işlem uygulandı

4. VBA Makroları için Ön Hazırlık

1. Geliştirici Sekmesini Aktifleştirin

Excel'de VBA kodlarını yazabilmek için önce Geliştirici sekmesini aktif etmelisiniz. Detaylı bilgi için tıklayın.

VBA - Geliştirici sekmesi
⚙️ Geliştirici sekmesini aktifleştirme

3. Modül Ekleyin

Kodlarınızı yazmak için bir Modül eklemelisiniz. Makro yazma rehberi için tıklayın.

VBA - Modül ekleme
📝 Modül ekleme

2. Visual Basic Düzenleyici'yi Açın

Alt + F11 (Windows) veya Option + F11 (Mac) ile hızlıca açabilirsiniz.

Visual Basic Düzenleyici'yi Açma
📝 Visual Basic Düzenleyici'yi Açma

4. Kodu Çalıştırın

Yazdığınız kodu çalıştırmak için F5 tuşuna basın veya Çalıştır butonuna tıklayın. VBA makro nedir? öğrenmek için tıklayın.

F5

▶️ Makroyu çalıştır

📋 Makro çalıştırma

5. Sıkça Sorulan Sorular

01 For Next döngüsü nasıl kullanılır?

For i = 1 To 10: ... Next i şeklinde kullanılır.

02 If Then Else yapısı nasıl çalışır?

Koşul doğruysa Then, yanlışsa Else bloğu çalışır.

03 Do While ve For Next arasındaki fark nedir?

For Next sabit sayıda, Do While koşula bağlı olarak tekrarlar.

04 Select Case ne zaman kullanılır?

Birden fazla koşul kontrolünde If'ten daha okunaklıdır.

05 Mac'te VBA döngüler çalışır mı?

Evet, Mac'te de aynı kodlar çalışır.

06 Sonsuz döngü nasıl önlenir?

Döngü içinde koşulu değiştiren işlem ekleyin (ör. i = i + 1).

💡 İpucu: Makroları çalıştırmadan önce dosyanızı yedeklemeyi unutmayın. Ctrl+S ile kaydedin.
🤖 Akıllı Arama Asistanı
💬 Merhaba! Size nasıl yardımcı olabilirim?
Excel Asistanı
👋 Merhaba! Excel ile ilgili ne öğrenmek istersin? Örn: DÜŞEYARA nasıl kullanılır?
DÜŞEYARA Pivot Tablo Gantt Şeması