Girilen değeri birden fazla sütunda arama

[abcdefg]

Merhaba,
Ekteki dosya gibi çalışmada girilen değeri diğer sütunlarda arayarak renklendirmek istiyorum.yardım ederseniz sevinirim.

 

[halit3]

Merhaba,
Ekteki dosya gibi çalışmada girilen değeri diğer sütunlarda arayarak renklendirmek istiyorum.yardım ederseniz sevinirim.

Sayfanın kod bölümüne kopyalayıp yapıştır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("G1")) Is Nothing Then Exit Sub
Cells.Interior.ColorIndex = xlNone
a = Target.Row
b = Target.Column
If Cells(a, b).Value = "" Then
Exit Sub
End If
bul = Cells(1, "G").Value
Set d = Range("A1:C5000").Find(bul, LookAt:=xlWhole)
If Not d Is Nothing Then
firstAddress = d.Address
Do
d.Interior.ColorIndex = 8
Set d = Range("A1:C5000").FindNext(d)
Loop While Not d Is Nothing And d.Address <> firstAddress
End If
End Sub

 

[abcdefg]

fonksiyon ile yapılamaz mı?

 

[Vedat Özer]

Selamlar,

Halit3 hocamızın verdiği kodları kulanmanız daha iyidir ama
yenide ben kendimce bir şeyler yapamay çalıştım.

biçim/koşullu biçimlendirme ile

 

[abcdefg]

yanlış anlaşılmak istemem sadece makroya hakim değilim.formülleri anlayabiliyorum.Hocama da sizede çok teşekkürler.

 

[Vedat Özer]

Rica Ederiz

İyi Çalışmalar