imleçle seçilen hücreye göre dolgu renk oluşturmak

[mersilen]

merhaba
aşağıdaki kodda nerede yanlışlık yapıyorum
amacım imleç hücrenin üzerine gelince veya seçince hücre değerine göre aynı değerdeki hücreleri renklendirmesini sağlamak



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Range
Dim x As Value
If Intersect(Target, [c105:v135]) Is Nothing Then Exit Sub
Cells.Interior.Color = xlNone
Case Target.Text
Case "handan": For Each i In Range("c105:V135")
If i = "handan" Then i.Interior.Color = 65535
Next
Case "gürcan": For Each i In Range("c105:V135")
If i = "gürcan" Then i.Interior.Color = 65535
Next
Case "hilmi": For Each i In Range("c105:V135")
If i = "hilmi" Then i.Interior.Color = 65535
Next

Case "enis": For Each i In Range("c105:V135")
If i = "enis" Then i.Interior.Color = 65535
Next
'aşağıdaki x her bir hücre için renklendirmeyi sağlıyacaktı ama sadece boşları renklendiriyor
Case Target.Text = x
Case x: For Each i In Range("c105:V135")
If i = x Then i.Interior.Color = 65535
Next


End Select
End Sub

 

[Levent Menteşoğlu]

Dosyanızda koşullu biçimlendirme ile çalışan bir kod ekledim. Sanıyorum isteğinizi karşılayacaktır.

 

[mersilen]

levent bey gerçekten çok teşekkür ederim
dolambaçlı yollardan kontrol amaçlı bunu yapıyordum ve zamanımı alıyordu
sizin çözümünüz bence mükemmel olmuş

bunu biraz inceledikten sonra sizlerden bir ricam daha olabilir mi?
listeyi verilerle otomatik doldurmak gibi; daha önce bu konularda tablo yapmıştım
daha kolay ve anlaşılabilir tabloyu yakında ekleyebilirim


http://www.excel.web.tr/showthread.php?t=84264
http://www.4shared.com/document/c-zL...-97-20003.html
http://www.excel.web.tr/showthread.php?t=83693

 

[Levent Menteşoğlu]

Rica ederim. Siz daha basitleştirilmiş tablonuzu ekleyin. Ben veya başka bir üyemiz yardımcı olacaktır.