Aktif hücreyle aynı değerdeki hücreler renkli

[orrhankaya]

Herbir öğretmene 3 nöbet yazıyorum.
Ali değerli hücreyi seçtiğimde diğer Ali değerli hücreler renkli olsun.
İsa değerli hücreyi seçtiğimde diğer İsa değerli hücreler renkli olsun...
Böylelikle kime kaç nöbet yazdığımı hemen farkedeyim.
A1:K50 erimindeki hücreler üzerinde çalışıyorum.

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
If Intersect(ActiveCell, [a1:k50]) Is Nothing Then Exit Sub
Dim hucre As Range
For Each hucre In Range("A1:K50")
If hucre = ActiveCell And ActiveCell <> "" Then hucre.Interior.ColorIndex = 6
Next
End Sub

 

[Recep İpek]

Benimkide yine alternatif olarak bulunsun.

leventm'nin hızına yetişmek mümkün değil''

 

[orrhankaya]

İki güzel çalışma için
Sayın Leventm ve Sayın Ripek'e yardım ve ilgileri için teşekkür ediyorum.
Sorularım bazen ihtiyaçtan bazen de ilgiden doğuyor.
Sitenin amacı da sanırım dersane ve dayanışma.
sayenizde kodları okumasını alternatif çözümler üretmesini öğrenmeye çalışıyorum.