Excel’de Yinelenen Her Değeri Farklı Renklendirme

28 Mayıs 2021 mytoworldcom Bilgisayar, Excel, Genel, Programlar 28

Excel’de Yinelenen Her Değeri Farklı Renklendirme

Excel’de yinelenen her değeri farklı renklendirme . Bildiğiniz gibi Excel’de birden fazla yinelenen değerleri koşullu biçimlendirme yöntemiyle renklendirebilmekteyiz. Fakat koşullu biçimlendirme tüm yinelenen değerleri tek renk üzerinde vurgulamaktadır. Aşağıda anlatacağımız bu yöntemle ile her yinelenen değeri birbirleriyle aynı renkte gruplandırabilirsiniz.

Konuyu biraz daha açacak olursak, diyelim ki birçok yinelenen değerlerinizin olan bir çalışma sayfanız var. Ve bu değerlerin 10’u birbiriyle, diğer 5’i birbiriyle ve geriye kalan 5’nin de birbiriyle aynı olduğunu varsayalım. Koşullu biçimlendirme uyguladığınızda hepsini tek renk vurgulayacaktır. Bizim aşağıda anlatacağımız yöntemde ise verdiğimiz örneğe göre açıklarsak 10’u bir renk, 5’i bir renk ve diğer 5’i bir renk alacak. Bu sayede yinelenen değerleri tam olarak ayırabilirsiniz.

Excel’de Yinelenen Her Değeri Farklı Renklendirme Yöntemi

excelde-yinelenen-her-degeri-farkli-renklendirme
Resim 1

Excel çalışma sayfamızı açalım. Ardından;

excelde-yinelenen-her-degeri-farkli-renklendirme
Resim 2

Sayfayı Mouse ile sağ tıklayıp “kod görüntüle” veya klavyenizden Alt + F11 tuşlarına aynı anda basın. Bu işlem Microsoft Visual Basic uygulamasının açılmasını sağlayacaktır.

excelde-yinelenen-her-degeri-farkli-renklendirme
Resim 3

Microsoft Visual Basic açıldığında ‘Insert’ menüsünden “Module” seçeneğini işaretleyin.

excelde-yinelenen-her-degeri-farkli-renklendirme
Resim 4

Mouse ile yeni modüle çift tıklayıp giriş yaptıktan sonra aşağıdaki kodu boş alana yapıştırın.

Sub YinelenenDegerleriRenklendir()
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xChar As String
    Dim xCellPre As Range
    Dim xCIndex As Long
    Dim xCol As Collection
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Lütfen işlem yapmak istediğiniz hücre aralığını seçiniz.(Birden fazla aralık seçmek için Ctrl tuşunu kullanabilirsiniz.)", "My To World", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xCIndex = 2
    Set xCol = New Collection
    For Each xCell In xRg
      On Error Resume Next
      xCol.Add xCell, xCell.Text
      If Err.Number = 457 Then
        xCIndex = xCIndex + 1
        Set xCellPre = xCol(xCell.Text)
        If xCellPre.Interior.ColorIndex = xlNone Then xCellPre.Interior.ColorIndex = xCIndex
        xCell.Interior.ColorIndex = xCellPre.Interior.ColorIndex
      ElseIf Err.Number = 9 Then
        MsgBox "Çok fazla yinelenen değer var!", vbCritical, "My To World"
        Exit Sub
      End If
      On Error GoTo 0
    Next
End Sub

İsterseniz kodu .txt olarak aşağıdaki linkten indirebilirsiniz.

mytoworldİndir

Kodu yapıştırdıktan sonra;

Resim 5

F5 tuşuyla kodlamayı çalıştırmanız yeterlidir. Bu aşamadan sonra çalışacak olan makro size işlem yapmak istediğiniz hücre aralığını soracaktır. Renklendirmek istediğiniz hücreleri seçip “Tamam” Demeniz yeterlidir.

Eğer işlem aralığınızı bilmiyorsanız makroyu F5 ile çalıştırmadan kaydedin ve çalışma sayfanıza geri dönün. Ardından;

Resim 6

Renklendirmeyi uygulamak istediğiniz alanı seçin ve Alt + F8 tuşlarına basın.

Resim 7

Makro iletişim kutusu açıldığında oluşturduğunuz makroyu seçip “çalıştır” düğmesine tıklayın.

Resim 8

Makroyu çalıştır yaptığınızda seçtiğiniz alan aralığının olduğu küçük bir makro uygulama kutusu açılacaktır. Burada seçtiğiniz aralık doğru ise “Tamam” düğmesine tıklayın. Ayrıca burada isterseniz seçtiğiniz alanı yeniden boyutlandırabilirsiniz.

Resim 9

Makroyu uyguladığınızda Resim 9’daki gibi aynı değerler birbirleri ile aynı rengi almış olacaktır.

Dilerseniz makronuzu farklı yöntemler (kısayol tuşu atama, buton ekleme, koşul ekleme gibi seçenekler) ile çalıştırabilirsiniz. Bu konuda herhangi bir ihtiyacınız olması halinde yorumlarda belirtebilirsiniz.

İlgili makaleler;

28 yorum

  1. Sayın Yetkili,
    Yukarıda “Excel’de Yinelenen Her Değeri Farklı Renklendirme” konulu kod yalnız metin ve boş olan hücreleri renklendirmektedir.

    Bu kodu seçili metin ve boş alanların dışında sadece sayısay veriler olarak nasıl uyarlayabiliriz.

    Cevapla

    • Merhaba, kodu istediğiniz şekilde güncelleyebilirim. Fakat acil bir durumdan şehir dışına çıkmak zorunda kaldığım için pazartesi günü güncel halini gönderebilirim.

      Cevapla

  2. Sayın Yetkili,
    Yukarıda “Excel’de Yinelenen Her Değeri Farklı Renklendirme” konulu kod yalnız metin ve boş olan hücreleri renklendirmektedir.

    Bu kodu seçili metin ve boş alanların dışında sadece sayısay veriler olarak nasıl uyarlayabiliriz.

    Cevapla

  4. Hocam merhabalar benim verilerim biraz fazla excel bilgimde fazla değil 25000 küsür değer içinden 5li 6lı aynı olan değerler var bu aynı olan değerleri renklendirsin istiyorum ama senin vermiş olduğun txt sadece 6-7 tane renklendirdikten sonra renklendirmiyor. Yardımcı olabilir misin ?

    Cevapla

  5. Hocam kolay gelsin arkadaşa paylaşmış olduğunuz kodun gelişmiş bir versiyonuna ihtiyacım var. Yardımcı olursanız sevinirim. Kısaca şöyle olmasını istiyorum.

    sütünla>>> KOD NUMARASI ÜRÜN ADI ÜRÜN MALZEMESİ VS
    5555 A B
    5555 B C
    5555 C B

    Şeklinde ki kod numarası(yani tek sütundaki yinelenen değerlere göre onların olduğu bütün satırları aynı renk yapabilir miyiz. 5555 değerine göre a b de aynı renk olsun.

    Cevapla

  7. Merhabalar,
    Tek bir hücre içinde “21-25-29” yazıyor,mantıksal olarak 3 sayı yazılmış. “-” işaretiyle ayrılan sayıları başka hücreye nasıl saydırabilirim? Yardımcı olursanız sevinirim.
    Teşekürler.

    Cevapla

Bir yanıt bırakın

E-posta hesabınız yayımlanmayacak.


*