Hücredeki Veriye göre renk değişimi

[ferhatgurbuz]

Arkadaşlar G sutununda ay isimleri var. yani ocaktan başlayarak aralık ayına kadar aynı veriler mevcut. ben istiyorum ki ocaklar aynı renk şubatlar aynı renk yani 12 ay içinde farklı renklerin kullanılmasıni istiyorum. böyle birşey mümkün müdür. kolay gelsin

 

[Necdet]

Merhaba,

Koşullu Biçimlendirme en fazla 3 koşul ile sınırlı. Makro ile yapılabilir.
Forumda arama yaptırınız.

Ben bir tane buldum.


56 KOŞULA GÖRE BİÇİMLENDİRME

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak ekteki örnek dosyayı incelermisiniz.

 

[N.Ziya Hiçdurmaz]

Yanıt

Bu şekil deneyiniz

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For SUT = 1 To Cells(65536, "G").End(3).Row
If Cells(SUT, "G") = "OCAK" Then: Cells(SUT, "G").Interior.ColorIndex = 6
If Cells(SUT, "G") = "ŞUBAT" Then: Cells(SUT, "G").Interior.ColorIndex = 7
If Cells(SUT, "G") = "MART" Then: Cells(SUT, "G").Interior.ColorIndex = 8
If Cells(SUT, "G") = "NİSAN" Then: Cells(SUT, "G").Interior.ColorIndex = 2
If Cells(SUT, "G") = "MAYIS" Then: Cells(SUT, "G").Interior.ColorIndex = 20
If Cells(SUT, "G") = "HAZİRAN" Then: Cells(SUT, "G").Interior.ColorIndex = 11
If Cells(SUT, "G") = "TEMMUZ" Then: Cells(SUT, "G").Interior.ColorIndex = 12
If Cells(SUT, "G") = "AĞUSTOS" Then: Cells(SUT, "G").Interior.ColorIndex = 13
If Cells(SUT, "G") = "EYLÜL" Then: Cells(SUT, "G").Interior.ColorIndex = 14
If Cells(SUT, "G") = "EKİM" Then: Cells(SUT, "G").Interior.ColorIndex = 15
If Cells(SUT, "G") = "KASIM" Then: Cells(SUT, "G").Interior.ColorIndex = 16
If Cells(SUT, "G") = "ARALIK" Then: Cells(SUT, "G").Interior.ColorIndex = 17
Next
End Sub

 

[ferhatgurbuz]

Arkadaşlar çok teşekkür ederim. kolay gelsin. Ellerinize sağlık