Gelişmiş koşullu biçimlendirme

[Barons]

Merhaba

Hergün 80-100 satır verinin girildiği bir excel sayfasında 4 adet personel isimleri var.Bunları koşullu biçimlendirme ile değişik renkler verdim ancak yeni personeller sisteme ilave olunca (8 kişi ) koşullu biçimlendirme 3 adetten fazlasına izin vermedi.
Bu durumu kod ile aşmak mümkünmüdür.?

teşekkürler

 

[Levent Menteşoğlu]

Bunu ancak kod ile çözebilirsiniz zaten.

 

[Levent Menteşoğlu]

Ã?rnek olarak aşağıdaki gibi bir kodu kullanabilirsiniz.

[vb:1:08fdd24af6]Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "" Then Target.Interior.ColorIndex = 0
If Target = "ali" Then Target.Interior.ColorIndex = 8
If Target = "veli" Then Target.Interior.ColorIndex = 6
End Sub[/vb:1:08fdd24af6]

veya

[vb:1:08fdd24af6]Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target
Case "": Target.Interior.ColorIndex = 0
Case "ali": Target.Interior.ColorIndex = 8
Case "veli": Target.Interior.ColorIndex = 6
Case "selami": Target.Interior.ColorIndex = 4
.
.
.
End Select
End Sub[/vb:1:08fdd24af6]

 

[Barons]

LeventM bey'e çok teşekkürler.

İkinci verdiği kod ile sorun çözüldü.

İyi çalşımalar

 

[Barons]

Merhaba

yalnız bir şey farkettim. Sayfaya klavyeden diyelim "Ali" yazdığımda renkleniyor.Ancak başka bir sayfadan form açıp form üzerinden kaydet butonuna basıp veriyi gönderdiğimde renklenme olmuyor.garip ama gerçek...

Bu durumu çözme imkanı varmı?

İyi çalışmalar

 

[Levent Menteşoğlu]

Az önce bir deneme yaptım hiç bir sorun yok, kodu yanlış yere kopyalamış olabilirsiniz. Kod renklenme istediğiniz sayfanın kod sayfasına yazılmalıdır. Eğer netice alamazsınız dosyanızı gönderin bir bakalım.

Not:birde büyük küçük harf ayrımına dikkat edin.

 

[Tarkan VURAL]

Sayın leventm notuna katılıyorum, kodlarınızı doğru yere yazmalısınız, yazdıysanızve halen çalışmıyorsa sayın leventm'in dediği gibi küçük büyük harf uyumsuzluğundan çalışmayabilir. Benim size önerim bu konuda textbox değerinizi öncelikle büyükharfe çevirttirip case ile karşılaştırma yaptırmanız.
textbox1.value=ucase(textbox1.value) gibi.

Not: Türkçe karakterli isimlerden bence kaçının ve case kısımlarında da büyük harf arattırmayı unutmayınız.

 

[Barons]

Merhaba

Evet haklısınız...Dediğiniz gibi yaptım düzeldi...çok teşekkürler

İyi çalışmalar