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
Excel çalışma sayfamızı açalım. Ardından;
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.
Microsoft Visual Basic açıldığında ‘Insert’ menüsünden “Module” seçeneğini işaretleyin.
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.
Kodu yapıştırdıktan sonra;
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;
Renklendirmeyi uygulamak istediğiniz alanı seçin ve Alt + F8 tuşlarına basın.
Makro iletişim kutusu açıldığında oluşturduğunuz makroyu seçip “çalıştır” düğmesine tıklayın.
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.
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;
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.
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.
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.
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.
Merhaba kodu güncelledim aşağıdaki linkten indirebilirsiniz. Excel de çalışmanız bittikten sonra kodu ekleyip çalıştırın. Makaledeki koddan farklı olarak renk sayısı biraz kısıtlandı. Sizden ricam kodu denedikten sonra sonuç hakkında bilgi vermeniz. Eğer istediğiniz gibi olmadı ise dosyayı paylaşırsanız çözüm bulabiliriz.
https://mega.nz/file/tU4EmD6J#QZseTeJTcLi7dHBypsmrPQx7xMtC3qjdAFV8yu8mh4o
Yinelenen sayısal verilerin dışında boş alanları da renklendiriyor olsun problem değil. Onun dışında kod gayet güzel çalışıyor. İşimi görüyor çok teşekkür ederim.
Merhaba,
bilgi vermeyi atlamışım. Boş alanlarda renkleniyor o sorunu biraz daha uğraştım ama maalesef çözemedik. Ara sıra sorguyu test ediyorum çözersem link paylaşırım.
Boş hücretleri reklendirmez ise çok süper birşey, emeğine sağlık.
Merhaba boş hücreler için yorumda atmış olduğum linkteki exceli kullanabilirsiniz.
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 ?
Merhaba, bu linkteki kodu denermisiniz. https://mega.nz/file/tU4EmD6J#QZseTeJTcLi7dHBypsmrPQx7xMtC3qjdAFV8yu8mh4o
bu çalışmadı Hocam, renk kartelasını 9+ yapabilir misiniz?
Merhaba,
çalışmayan nedir? Yapılmak isteneni anlatabilirmisiniz.
*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* yani renk sayısını arttırmak anlamında söyledim Hocam, mesala 12 farklı renk kullanılabilir mi?
Merhaba,
kod dosyasında ufak bir değişiklik yaptım deneyebilirmisiniz.
https://mega.nz/file/cJZGlJhC#wrwgK5VoKHAWb12S4a6p2tXSRw2W2_cvh9myY0SFsBw
Teşekkürler işe yaradı. (6 ve fazlası için renklendirme)
rica ederim
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.
Merhaba,
gerekli düzenlemeyi yapıp paylaşacağım
Merhaba,
yapmak istediğinizi doğru anladıysam kod ile işiniz yok. Yapmanız gereken koşullu biçimlendirme özelliğini Eğer komutu ile kullanmak. Koşullu biçimlendirmede Eğer komutunu hangi kod yazıldı ise karşılığında oluşması istediğiniz rengi belirtirseniz o kodu yazdığınızda belirttiğiniz rengi otomatik verebilirsiniz.
Hayır hocam.
Örnek olarak aşağıya bir link bırakmak istiyorum.
https://www.hizliresim.com/l90nj9k
Sizin verdiğiniz kod ile belge numarası aynı olanları aynı renk yapıyorum. Burası çok güzel, teşekkür ederim. Ayrıca bu durum belge numarasını içeren tüm satırlara da uygulansın istiyorum.
Merhaba,
attığınız link boş gözüküyor, kontrol edebilirmisiniz.
Tekrar paylaşıyorum
https://www.hizliresim.com/rhc7vqy
Merhaba,
bu linkteki kodu denermisin https://mega.nz/file/tU4EmD6J#QZseTeJTcLi7dHBypsmrPQx7xMtC3qjdAFV8yu8mh4o
yok hocam olmadı
Merhaba
dosyayı bana gönderebilirmisiniz. Sizin için sorun olmayacaksa.
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.
Merhaba, dosyayı görmem lazım veya bir örnek dosya görmem lazım konuyu daha iyi anlayabilmek için.