56 Koşula Kadar Biçimlendirme Yapma

56 Koşula Kadar Biçimlendirme Yapma isimli kod, 56 ayrı koşul ile renklendirme yapmanızı sağlayacak hazır bir VBA kodudur.

XD Destek İste
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Target.Cells.Count > 1 Then Exit Sub
On Error GoTo ws_exit:
'Buradan koşullu biçimlendirme yapacağımız aralığı verebiliriz
Set rng = Application.Intersect(Target, Me.Range("A:z"))
If rng Is Nothing Then Exit Sub
    With Target
        Select Case UCase(.Value)
        'Burada "" içindeki rakamlar yerine sözcükler yazılabilir. = İşaretinden sonra yer alan sayılar renk indeksidir.
        Case Is = "1": .Interior.ColorIndex = 1
        Case Is = "2": .Interior.ColorIndex = 2
        Case Is = "3": .Interior.ColorIndex = 3
        Case Is = "4": .Interior.ColorIndex = 4
        Case Is = "5": .Interior.ColorIndex = 5
        Case Is = "6": .Interior.ColorIndex = 6
        Case Is = "7": .Interior.ColorIndex = 7
        Case Is = "8": .Interior.ColorIndex = 6
        Case Is = "9": .Interior.ColorIndex = 9
        Case Is = "10": .Interior.ColorIndex = 10
        Case Is = "11": .Interior.ColorIndex = 11
        Case Is = "12": .Interior.ColorIndex = 12
        Case Is = "13": .Interior.ColorIndex = 13
        Case Is = "14": .Interior.ColorIndex = 14
        Case Is = "15": .Interior.ColorIndex = 15
        Case Is = "16": .Interior.ColorIndex = 16
        Case Is = "17": .Interior.ColorIndex = 17
        Case Is = "18": .Interior.ColorIndex = 18
        Case Is = "19": .Interior.ColorIndex = 19
        Case Is = "20": .Interior.ColorIndex = 20

Case Is = "21": .Interior.ColorIndex = 21
        Case Is = "22": .Interior.ColorIndex = 22
        Case Is = "23": .Interior.ColorIndex = 23
        Case Is = "24": .Interior.ColorIndex = 24
        Case Is = "25": .Interior.ColorIndex = 25
        Case Is = "26": .Interior.ColorIndex = 26
        Case Is = "27": .Interior.ColorIndex = 27
        Case Is = "28": .Interior.ColorIndex = 28
        Case Is = "29": .Interior.ColorIndex = 29
        Case Is = "30": .Interior.ColorIndex = 30
        Case Is = "31": .Interior.ColorIndex = 31
        Case Is = "32": .Interior.ColorIndex = 32
        Case Is = "33": .Interior.ColorIndex = 33
        Case Is = "34": .Interior.ColorIndex = 34
        Case Is = "35": .Interior.ColorIndex = 35
        Case Is = "36": .Interior.ColorIndex = 36
        Case Is = "37": .Interior.ColorIndex = 37
        Case Is = "38": .Interior.ColorIndex = 38
        Case Is = "39": .Interior.ColorIndex = 39
        Case Is = "40": .Interior.ColorIndex = 40
        Case Is = "41": .Interior.ColorIndex = 41
        Case Is = "42": .Interior.ColorIndex = 42
        Case Is = "43": .Interior.ColorIndex = 43
        Case Is = "44": .Interior.ColorIndex = 44
        Case Is = "45": .Interior.ColorIndex = 45
        Case Is = "46": .Interior.ColorIndex = 46
        Case Is = "47": .Interior.ColorIndex = 47
        Case Is = "48": .Interior.ColorIndex = 48
        Case Is = "49": .Interior.ColorIndex = 49
        Case Is = "50": .Interior.ColorIndex = 50
        Case Is = "51": .Interior.ColorIndex = 51
        Case Is = "52": .Interior.ColorIndex = 52
        Case Is = "53": .Interior.ColorIndex = 53
        Case Is = "54": .Interior.ColorIndex = 54
        Case Is = "55": .Interior.ColorIndex = 55
        Case Is = "56": .Interior.ColorIndex = 56
        Case Else
        .Interior.ColorIndex = xlNone
        End Select
    End With
ws_exit:
End Sub

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
  3. Araç çubuklarından Insert -> Module yazısına tıklayın.
  4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.

Kod Açıklaması

Bu kodu kullanmak istediğiniz Excel sayfasının VB Penceresine çift tıklayarak kopyalamanız yeterli olacaktır.

#56 Koşula Kadar Biçimlendirme Yapma
50 Farklı Hazır Makro (VBA) Kodu
Hücrede Değişiklik Olduğunda Makroyu Çalıştırma
Aç Penceresini Açan Makro
Birleştirilmiş Hücrelerin Başlangıç Bitiş Sütununu Belirleme
Otomatik Sıra Numarası Ekleme
Açılışta İstediğiniz Sayfanın Aktif Edilmesi
Satır Yüksekliğini Ayarla
Excel Hücresine Gitme Makrosu
Seçili Sütunların Sayısını Bulma
Excel ile Faiz Hesaplama Kodu
Seçili Satırların Sayısını Bulma
Excel Üzerinden Klasör Açma Kodu
Listbox ve Combobox Satır Kaydırma
Aktif Hücrenin Satır Numarasını Bulma
Excel Satır Silme Kodu
Label Nesnesine Kayan Yazı Ekleme
Tekrarlayan Verileri Vurgulama
Hücrenin Arka Plan Rengini Değiştirme
Kopyala ve Özel Yapıştır
Sütunlardaki Farkı Renklendirme
Bir Aralıktaki Maksimum Değeri Renklendirme
Excel Dosya Arama Yapma Makrosu
Dizileri İç İçe Döngüye Eklemek
UserForm Resize Özelliği Eklemek
Son Sütun Numarasını Bulma
Son Satır Numarasını Bulma
Bir Çalışma Kitabında Kaç Sayfa Var
Seçili Hücrenin Sütun Harfini Bulma
Excel Üzerinden Klasör Alma Kodu
Excel Hücresini Seçme Makrosu
2. Satırdaki Bilgileri Silmek
Başka Dosyada Şifreli Userform Oluşturmak
Son Dolu Satırın Bir Altına Yazdırma
Makro ile Boş Satırları Silme
Excel Makroları ile Klasör Arama
Hesap Makinesini Açma
Excel Makroları ile İşlemci Bilgilerini Bulma
Program Başlangıcı Kodları
Sağ Tık ile Açılan Menüye Ekleme Yapma
Excel Makroları ile Dosya Taşıma
Bir Aralıktaki Minimum Değeri Renklendirme
Sütun Genişliğini Ayarla
Tek Hücreyi Kes Kopyala ve Yapıştır
Checkbox ile Exceli Kapatıp Açmak
Açık Olan Tüm Excel Sayfalarını Kayıt Ederek Kapatma
Excel Açılırken Otomatik İşlem Yaptırma
56 Renk Kodunu Sıralama
Makrolar ile Eliptik Form Oluşturma
Her Bir Sütundaki Maksimum Değeri Bulma
Sayıları Rastgele Karıştırmak
Sütun Genişliklerini Otomatik Ayarlama
Üstteki alanda, Google Reklamları yerine sizin reklamınızın yayınlanmasını ister misiniz?
Reklam vermek istiyorum

Daha önce yorum yapılmamış!

Excel'de alt alta bir kaç sayı yazıp, aşağı doğru sürüklediğinizde, sağ alt köşede çıkan image-20200506152738-1.png simgesi şeklinde Otomatik Doldurma Seçenekleri görürsünüz.

Otomatik Doldurma Seçenekleri

Doldurma Seçenekleri

Üsteki seçenekleri tek tek seçerek, veri aralığındaki sayılara ne tür bir işlem yaptığını öğrenip, sonraki ihtiyaçlarınız halinde hızlıca kullanabilirsiniz.
Yükleniyor...