Not Defteri Renklendirme

[cimcoz]

Günaydın Arkadaşlar,

Ekte bulunan dosyamda, B2-J10 arasındaki Not Tablosundaki değerleri K sütunundaki değerlere göre renklendirmek (koyu renk, farklı renk v.s. olabilir.) istiyorum.

Conditional Format ile başaramadım. K sütunundaki değerlere göre öğrencinin notları tek bir renk olarak ta formatlanabilir.

Bu konuda yardımınızı rica ederim.

Şimdiden teşekkür ederim.

Saygılar,

 

[kulomer46]

Ekte bulunan dosya, B2-J10 arasındaki Not Tablosundaki değerleri K sütunundaki değerlere göre renklendirmektedir.

Selamlar...

 

[muygun]

Merhaba;
Alternatif olsun.
Eki İnceleyin.
İyi çalışmalar.

 

[cimcoz]

Sayın kulomer46,

Çok teşekkür edrim. Bu yapıyı 400-500 satırlık bir sayfaya uyarlamam gerekiyor.

Bu kodları 400 satıra nasıl uyarlayabilirim?

Private Sub Worksheet_Change(ByVal Target As Range)

Cells.Interior.Color = xlNone

For i = 2 To Cells(Rows.Count, 11).End(3).Row

If Cells(i, 11) = "A" Then Cells(i, 11).Interior.Color = RGB(255, 142, 204)
If Cells(i, 11) = "B" Then Cells(i, 11).Interior.Color = RGB(0, 239, 255)
If Cells(i, 11) = "C" Then Cells(i, 11).Interior.Color = RGB(255, 255, 1)
If Cells(i, 11) = "D" Then Cells(i, 11).Interior.Color = RGB(231, 30, 230)
If Cells(i, 11) = "E" Then Cells(i, 11).Interior.Color = RGB(189, 215, 45)
If Cells(i, 11) = "F" Then Cells(i, 11).Interior.Color = RGB(250, 1, 1)
If Cells(i, 11) = "G" Then Cells(i, 11).Interior.Color = RGB(91, 155, 213)
If Cells(i, 11) = "H" Then Cells(i, 11).Interior.Color = RGB(155, 255, 0)
If Cells(i, 11) = "I" Then Cells(i, 11).Interior.Color = RGB(255, 192, 0)

For j = 2 To 10

If Cells(i, j) = Cells(i, 11) Then Cells(i, j).Interior.Color = Cells(i, 11).Interior.Color: Cells(i, 1).Interior.Color = Cells(i, 11).Interior.Color


Next


Next


End Sub


Saygılar,

 

[kulomer46]

Sayın kulomer46,

Çok teşekkür edrim. Bu yapıyı 400-500 satırlık bir sayfaya uyarlamam gerekiyor.

Bu kodları 400 satıra nasıl uyarlayabilirim?

.......

Saygılar,

Kod zaten şu haliyle K sütunundaki en aşağıdaki dolu son hücreye kadar çalışmaktadır. 400 - 500 yada daha fazla satır için kod bu haliyle çalışır. Selamlar...

 

[cimcoz]

Kod zaten şu haliyle K sütunundaki en aşağıdaki dolu son hücreye kadar çalışmaktadır. 400 - 500 yada daha fazla satır için kod bu haliyle çalışır. Selamlar...

Tamamdır, tekrardan çok teşekkürler.

 

[kulomer46]

Tamamdır, tekrardan çok teşekkürler.

Selamlar...