Kesişen isimler ve rakamın renk alması

[1Al2Ver]

Tabloda kesişen isimler ve kesiştiği hücredeki rakamın tabloda renk alması, uzun bir liste barındıran tabloda net görülmesi açısından önem arz etmekte,

Teşekkür ederim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayın. B19 hücresine formülü yazıp entere bastığınızda çalışacaktır. Ayrıca sorunuz koşullu biçimlendirme ilede çözülebilir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b19]) Is Nothing Then Exit Sub
[b1:l12].Interior.ColorIndex = xlNone
deg = Split(Replace(Target.Formula, "=", ""), " ")
sat = WorksheetFunction.Match(deg(0), [b:b], 0)
sut = WorksheetFunction.Match(deg(1), [2:2], 0)
Cells(sat, "b").Interior.ColorIndex = 6
Cells(2, sut).Interior.ColorIndex = 6
Cells(sat, sut).Interior.ColorIndex = 6
End Sub

 

[1Al2Ver]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayın. B19 hücresine formülü yazıp entere bastığınızda çalışacaktır. Ayrıca sorunuz koşullu biçimlendirme ilede çözülebilir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b19]) Is Nothing Then Exit Sub
[b1:l12].Interior.ColorIndex = xlNone
deg = Split(Replace(Target.Formula, "=", ""), " ")
sat = WorksheetFunction.Match(deg(0), [b:b], 0)
sut = WorksheetFunction.Match(deg(1), [2:2], 0)
Cells(sat, "b").Interior.ColorIndex = 6
Cells(2, sut).Interior.ColorIndex = 6
Cells(sat, sut).Interior.ColorIndex = 6
End Sub

Sayın leventm, teşekkür ederim, Koşullu Biçimlendirme olabileceğini tahmin ederk fonksiyonlar bölümünde sormuştum, ama macro güzel olmuş, şayet Koşullu Biçimlendirme ile yapılmak istense idi formül nasıl olurdu, en azından benzer problemleri çözmekte fayda sağlar diye düşünüyorum, tekrar teşekkür ederim, saygılarımla.

 

[İdris SERDAR]

Sayın leventm, teşekkür ederim, Koşullu Biçimlendirme olabileceğini tahmin ederk fonksiyonlar bölümünde sormuştum, ama macro güzel olmuş, şayet Koşullu Biçimlendirme ile yapılmak istense idi formül nasıl olurdu, en azından benzer problemleri çözmekte fayda sağlar diye düşünüyorum, tekrar teşekkür ederim, saygılarımla.

Bu da koşullu biçimlendirme ile...

Dosya ekte.

.

 

[1Al2Ver]

Bu da koşullu biçimlendirme ile...

Dosya ekte.

.

Sayın yurttas, ilginiz ve emeğiniz için teşekkür ederim, saygılarımla