Excel VBA ile Koşullu Biçimlendirme Makrosu

Excel VBA ile Koşullu Biçimlendirme Makrosu: Verileri Otomatik Renklendirme
Excel VBA Koşullu Biçimlendirme

1. Örnek Veri Tablosu

Aşağıdaki tablo üzerinde koşullu biçimlendirmeyi öğreneceğiz.

Ürün Satış
Laptop 8
Mouse 4
Klavye 10
Monitör 7
USB Bellek 3
Yazıcı 2
Kulaklık 5
A1:B8 aralığı - Henüz koşullu biçimlendirme uygulanmamış

2. Temel Koşullu Biçimlendirme

Satış değeri 5'ten büyük olan hücreler kırmızı renk alacak.

Sub KosulluBicimlendirme()
    Range("B2:B8").FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, Formula1:="=5"
        .Interior.Color = RGB(255, 0, 0)
    End With
End Sub

Ne Yapar?

B sütununda 5'ten büyük değerleri kırmızı yapar.

🎯 Sonuç:

Ürün Satış
Laptop8
Mouse4
Klavye10
Monitör7
USB Bellek3
Yazıcı2
Kulaklık5
🔴 >5 → Kırmızı

3. Formül ile Koşullu Biçimlendirme

Satış değeri 3'ten küçük olan hücreler mavi renk alacak.

Sub FormulIleKosullu()
    Range("B2:B8").FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, Formula1:="=3"
        .Interior.Color = RGB(0, 0, 255)
    End With
End Sub

İpucu

xlLess (küçüktür) yerine xlGreater (büyüktür) veya xlEqual (eşittir) kullanabilirsiniz.

🔵 Sonuç:

Ürün Satış
Laptop8
Mouse4
Klavye10
Monitör7
USB Bellek3
Yazıcı2
Kulaklık5
🔵 <3 → Mavi

4. Birden Fazla Koşul Ekleme

3 farklı koşul:

  • >5 → Kırmızı
  • 3-5 → Yeşil
  • <3 → Mavi
Sub CokluKosul()
    Dim rng As Range
    Set rng = Range("B2:B8")
    
    ' >5 Kırmızı
    rng.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, Formula1:="=5"
        .Interior.Color = RGB(255, 0, 0)
    End With
    
    ' 3-5 Yeşil
    rng.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, Formula1:="=3", Formula2:="=5"
        .Interior.Color = RGB(0, 255, 0)
    End With
    
    ' <3 Mavi
    rng.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, Formula1:="=3"
        .Interior.Color = RGB(0, 0, 255)
    End With
End Sub

Kullanılan Operatörler

  • xlGreater → Büyüktür (>)
  • xlBetween → Arasında
  • xlLess → Küçüktür (<)

🌈 Sonuç:

Ürün Satış
Laptop8
Mouse4
Klavye10
Monitör7
USB Bellek3
Yazıcı2
Kulaklık5
>5 → 🔴 Kırmızı 3-5 → 🟢 Yeşil <3 → 🔵 Mavi

5. Geliştirici Sekmesini Aktifleştirme

1. Geliştirici Sekmesini Aktifleştirin

Detaylı bilgi için tıklayın.

Geliştirici sekmesi
⚙️ Geliştirici sekmesi

3. Modül Ekleyin

Makro yazma rehberi için tıklayın.

Modül ekleme
📝 Modül ekleme

2. VBA Düzenleyici'yi Açın

Alt + F11 (Win) / Option + F11 (Mac)

VBA Düzenleyici
📝 VBA Düzenleyici

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

F5 ile çalıştırın.

F5

▶️ Makroyu çalıştır

📋 Makro çalıştırma

6. Sıkça Sorulan Sorular

01 Excel VBA ile koşullu biçimlendirme nasıl yapılır?

FormatConditions.Add metodu ile koşullu biçimlendirme ekleyebilirsiniz.

02 Birden fazla koşul nasıl eklenir?

FormatConditions.Add metodunu birden fazla kez çağırarak ekleyebilirsiniz.

03 Renklendirme nasıl yapılır?

Interior.Color = RGB(255, 0, 0) ile renklendirme yapabilirsiniz.

04 Mac'te koşullu biçimlendirme çalışır mı?

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

05 Kuralları nasıl temizlerim?

Range.FormatConditions.Delete ile tüm kuralları temizleyebilirsiniz.

06 Formül ile koşullu biçimlendirme nasıl yapılır?

Type:=xlExpression ile formül tabanlı koşullar oluşturabilirsiniz.

💡 İpucu: Makroları çalıştırmadan önce dosyanızı yedeklemeyi unutmayın.
🤖 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ı