Hücredeki bilgiye göre hücre rengi verme

[zetay]

M hücresinde yazan yazıya göre A hücresinden M hücresine kadar aynı rengi vermek istiyorum .
Toplam 7 rengim olacak.

teşekkürler.

 

[Erhan Üstünel]

Dosyanız ektedir..

 

[zetay]

sağol dostum. teşekkürler

 

[Erhan Üstünel]

Not: Renkleri değiştirmek yada başka veri eklemek istersen koşullu biçimlendirmeden kuralları değiştirebilirisin.

kolay gelsin..

 

[İhsan Tank]

M hücresinde yazan yazıya göre A hücresinden M hücresine kadar aynı rengi vermek istiyorum .
Toplam 7 rengim olacak.

teşekkürler.

merhaba
sayfanın kod bölümüne

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("M3:M65536")) Is Nothing Then Exit Sub
Dim a As Long
For a = 3 To Cells(65536, "M").End(xlUp).Row
If Cells(a, "M") = "BİTEN" Then
Range("A" & a & ":" & "M" & a).Interior.Color = vbRed
[COLOR="Red"]ElseIf Cells(a, "M") = "HAZIRLAYAN" Then
Range("A" & a & ":" & "M" & a).Interior.Color = vbYellow[/COLOR]
ElseIf Cells(a, "M") = "YAPILMIYOR" Then
Range("A" & a & ":" & "M" & a).Interior.Color = vbBlue
ElseIf Cells(a, "M") = "EVRAK" Then
Range("A" & a & ":" & "M" & a).Interior.Color = vbGreen
End If
Next
End Sub

eklediğiniz renklerin ingilizceleri bilmediğim için yapamadım
kırmızıya boyadığım yerdekinden ek yapabilirsiniz.
Not : 2003 versiyonunda 3'den fazla koşullu biçimlendirme bulunmamaktadır.