değeri bulup satırı renklendirme

[rekkezum]

Kolay gelsin arkadaşlar
ekteki dosya ile ilgili yardımcı olabilirmisiniz ?

 

[Korhan Ayhan]

Selamlar,

A:H sütunlarını seçin.
Biçim-Koşullu Biçimlendirme menüsünü açın.
Koşul1 kısmından Formül seçeneğini seçin.
Yandaki kutucuğa =SAĞDAN($A1;4)*1=$J$1 formülünü yazın.
Biçim bölümünden istediğiniz dolgu rengini seçip tamam deyin.

 

[rekkezum]

Selamlar,

A:H sütunlarını seçin.
Biçim-Koşullu Biçimlendirme menüsünü açın.
Koşul1 kısmından Formül seçeneğini seçin.
Yandaki kutucuğa =SAĞDAN($A1;4)*1=$J$1 formülünü yazın.
Biçim bölümünden istediğiniz dolgu rengini seçip tamam deyin.

hocam ılgın ıcın saol
dedıgın gıbı yaptım sahane oldu da renklenen bolum sureklı renklı kalsın ıstıyorum yanı baska bır numara yazdıgımda daha once renklenen tekrar beyaz oluyor. ayrıca actıv hucre entere bassam bıle sureklı J1 olabılrmı

 

[Korhan Ayhan]

Selamlar,

Bu durumda makro kullanmamız gerekir. Aşağıdaki kodu ilgili sayfanın kod bölümüne uygulayıp denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim BUL As Range
    If Intersect(Target, [J1:K3]) Is Nothing Then Exit Sub
    Set BUL = [A:A].Find(Target)
    If Not BUL Is Nothing Then
    Range("A" & BUL.Row & ":H" & BUL.Row).Interior.ColorIndex = 3
    End If
    Target.Activate
End Sub

 

[rekkezum]

sevgili dostum ellerine saglık sahane oldu allah sizleri basımızdan eksık etmesın
vallahı cok sey ogrendım bu sıteden ve sızlerden tabıkı.... SAOL ....