tablodaki verileri bulma

[mahmutozdemir]

slm bir hücrenin içindeki ismin üzerine tıkladığımda A1:L16 tablosunda bulunan verileri nasıl bulabilirim. öğreğim o2 hücresindeki ali yi tıladığımda A1:L16 sutunları arasındaki ali leri nası bulurum.

 

[Orion1]

dosyanız ektedir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim hucr As Range
If Intersect(Target, [O2:O5]) Is Nothing Then Exit Sub
Range("A1:L16").Font.ColorIndex = 0
For Each hucr In Range("A1:L16")
    If hucr.Value = Target.Value Then hucr.Font.ColorIndex = 3
Next
End Sub

 

[mahmutozdemir]

Elinize sağlık tam istediğim gibi olmuş... Bu kodda hücre yazı rengi kırmızı oluyor onun yerine hücre nasıl sarı olur.

 

[Mustafa MUTLU]

Font.ColorIndex = 3
Kodun sonundaki rakamı
Font.ColorIndex = 6
Olarak değiştiriniz..

 

[mahmutozdemir]

Hemşo ben sadece isim bulunduğu hücreler sarı olsun istiyorum yazıların regi aynı kalsın

 

[Mustafa MUTLU]

Font yerine
Interior
Yazın
Interior.ColorIndex = 6

 

[mahmutozdemir]

Çok teşekkür ederim Allah razı olsun...

 

[Mustafa MUTLU]

Çok teşekkür ederim Allah razı olsun...

Rica Ederim..
İyi Geceler...