Koşullu biçimlendirme

[tamer42]

Merhaba,
her seferinde çalıştırarak yaptığım aşağıdaki renklendirmeyi, ilgili hücre alanına koşullu biçimlendirme uygulamak istersek;
kodları nasıl düzenlememiz gerekecektir? Belirlenen alana koşullu biçimlendirmeyi kod ile bir seferde uygulayayım, sonra bu alanda bir değişiklik olduğunda otomatik renklensin.

ilginiz için şimdiden teşekkürler,

Sub cFormat()
Dim MyRange As Range
Set MyRange = Worksheets("Rapor2").Range("D2:P32")
  
  With MyRange.Interior
  
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0

  End With
  

  For Each Cell In MyRange
  
      If Cell.Value = 1 Then
            Cell.Interior.ThemeColor = xlThemeColorDark2
      ElseIf Cell.Value = 2 Then
            Cell.Interior.ThemeColor = xlThemeColorLight2
      ElseIf Cell.Value = 3 Then
            Cell.Interior.ThemeColor = xlThemeColorAccent5
      ElseIf Cell.Value = 4 Then
            Cell.Interior.ThemeColor = xlThemeColorAccent2
    
      End If
      
  Next

End Sub

iyi çalışmalar.

 

[Korhan Ayhan]

Merhaba,

Tamer bey diğer üyelerimize önerdiğimiz gibi bu tarz kodları elde etmek için siz de MAKRO KAYDET yöntemini deneyebilirsiniz.