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

Katılım
8 Haziran 2007
Mesajlar
761
Excel Vers. ve Dili
excel- 2003 Türkçe
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
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Alternatif olarak ekteki örnek dosyayı incelermisiniz.
 

N.Ziya Hiçdurmaz

Özel Üye
Katılım
28 Nisan 2007
Mesajlar
2,218
Excel Vers. ve Dili
Office 2013 TR / 32 Bit
Yanıt

Bu şekil deneyiniz
Kod:
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
 
Katılım
8 Haziran 2007
Mesajlar
761
Excel Vers. ve Dili
excel- 2003 Türkçe
Arkadaşlar çok teşekkür ederim. kolay gelsin. Ellerinize sağlık
 
Üst