Degere gore satir renklendirmede sorun

[Allopa]

Arkadaslar, ekteki dosyada musterilerimi takip etmek istiyorum. Musteriler sayfasindaki durum kolonunda dogrulamayi data sayfasindan yapmakta. tek satirda durum kolonundaki degere gore renklendirmeyi yaptim ancak bunu tum satirlara uygulayamiyorum. Ne yaptiysam olmadi yardimci olursaniz cok sevinirim. Forumda aradim fakat sadece bu kadarini yapabildim.

Bu satirdaki uygulamayi tek tek satir satir yapmak zorundamiyim yoksa bunun daha kolay bir yolu varmi?

Saygilar...

 

[Ömer]

Merhaba,

Sorunuz net değil, durum kolonunda doğrulama yada biçimlendirme göremedim. Yapmak istediğinizi tam olarak açıklarmısınız.

 

[Allopa]

Dilim dondugunce soyle anlatayim;

Yeni dosya ektedir.

Musteriler sayfasindaki 'Durum' kolununda su degerler var.(Yani data sayfasindaki c kolonundakiler.)

Montaj Yapılacak
Montaj Yapıldı
Arıza (Rıfat Usta)
Arıza (Şafak)
Arıza (Hüseyin)
Tamamlandi
Keşif Yapılacak


Benim yapmak istedigim ise;

Musteriler sayfasinda ki satirlarin bu yukaridaki degerlere gore renk degistirmesi

Ornegin;
Montaj Yapılacak - Mavi
Montaj Yapıldı - acik yesil
Arıza (Rıfat Usta) - kirmizi
Arıza (Şafak) - Acik kirmizi
Arıza (Hüseyin) - acik kirmizi
Tamamlandi - Yesil
Keşif Yapılacak - Mor

gibi;

Bunu tek satirda kosullu renklendirmeden yapabildim ancak tum satirlara nasil yapacagimi bulamadim.

 

[Allopa]

Serif ali Sensazli arkadasin verdigi kodlar ile hallettim cok tesekkurler

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next
If Intersect(Target, [M:M]) Is Nothing Then Exit Sub
sat = "A" & Target.Row & ":M" & Target.Row
Select Case Target
Case "": Range(sat).Interior.ColorIndex = 0
Case Is = "Arıza(Rıfat Usta)": Range(sat).Interior.ColorIndex = 3
Case Is = "Montaj Yapılacak": Range(sat).Interior.ColorIndex = 33
Case Is = "Montaj Yapıldı": Range(sat).Interior.ColorIndex = 35
Case Is = "Arıza(Şafak)": Range(sat).Interior.ColorIndex = 22
Case Is = "Arıza(Hüseyin)": Range(sat).Interior.ColorIndex = 38
Case Is = "Tamamlandı": Range(sat).Interior.ColorIndex = 4
Case Is = "Keşif Yapılacak": Range(sat).Interior.ColorIndex = 26
End Select

End Sub



Şurası çok önemli. Bu kodlar içinde "Tırnak İçerisinde" yazılan tanımlarla programın içine yazılan tanımlar birebir aynı olmalıdır.
Örneğin;
Buraya "Arıza(Şafak)" yazıldıysa,programın içine "Arıza (Şafak)" yazılmamalı. (Arıza yazdıktan sonra boşluk verip parantez açılmamalı yani)

 

[İhsan Tank]

eki inceler misin kod'a hiç gerek yok
koşullu biçimlendirme ile yapıldı

 

[Allopa]

Hocam cok tesekkur ederim hakkaten cok makbule gecti Allah razi olsun cok iyi oldu bu

 

[İhsan Tank]

Hocam cok tesekkur ederim hakkaten cok makbule gecti Allah razi olsun cok iyi oldu bu

rica ederim
:yazici: