Hücredeki renge göre koşullu biçimlendirme

[Mdemir63]

Selamlar,

Arkadaşlar, Ekteki dosyamda da bahsettiğim gibi örneğin A1 hücresi kırmızı ise C1, D1 ve E1 hücreleri de kırmızı olsun istiyorum. Nasıl yapabilirim.

Saygılar

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu ilgili sayfanın kod bölümüne uygulayıp denermisiniz. A sütununda hücreler üzerinde gezindikçe hücre rengi kırmızı ise "C:E" aralığıda kırmızı ile renklenecektir.

Not: Excelde renk değişiminde çalışacak kod olmadığı için "SelectionChange" olayını kullanmayı uygun gördüm.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Application.Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    Range("C" & Target.Row & ":" & "E" & Target.Row).Interior.ColorIndex = IIf(Target.Interior.ColorIndex = 3, 3, xlNone)
End Sub

 

[Mdemir63]

Hocam yine imdada yetiştiniz

Çok teşekkürler

Saygılar