Satıra Renk Vermek

[b_arisoy]

Merhaba Arkadaşlar,
Sorumun bir örneğini ekteki dosyada bulabilirsiniz. Sorum şöyle. Excelde ardışık satırları aynı renkle göstermek istiyorum. Ancak sütnlara filtre verdiğimde aynı renkteki satırlar üstüste geliyor ve görünüm bozuluyor. Her satıra otomatik olarak renk verme yolu var mı acaba? Teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Ekte makrolu çözüm ile hazırladığım örnek dosyayı incelermisiniz. Filtreleme işleminde herhangi bir olay tetiklenmediği için D1 hücresine formül uygulanmıştır. Bu sebeple kodlarıda sayfanın hesaplama olayına yazdım.

Kullanılan kod; (Sayfanın kod bölümüne uygulayınız.)

Option Explicit
 
Private Sub Worksheet_Calculate()
    Dim Hücre As Range, Kontrol As Boolean
    Application.ScreenUpdating = False
    Range("A:C").Interior.ColorIndex = xlNone
    For Each Hücre In Range("A2:A" & Range("A65536").End(3).Row)
    If Hücre.RowHeight <> 0 Then
    If Kontrol = False Then
    Range("A" & Hücre.Row, "C" & Hücre.Row).Interior.ColorIndex = 6
    Kontrol = True
    Else
    Range("A" & Hücre.Row, "C" & Hücre.Row).Interior.ColorIndex = 50
    Kontrol = False
    End If
    End If
    Next
    Application.ScreenUpdating = True
End Sub

 

[S.Yiğit]

Sn Korkan Ayhan,

Güzel bir çalışma, mutlaka benimde işime yarar. Teşekkürler.

 

[ferhat73]

başka bir çözüm yolu ektedir.

(conditional formatting)

iyi akşamlar

 

[b_arisoy]

Teşekkürler arkadaşlar.