Koşullu biçimlendirme

[neseterkutsesli]

Merhaba
J sütununda durumu ödendi,ödenmedi,yada bekliyor herhangi birini seçtiğim zaman hangi ayda isek
o aya göre koşullu biçimlendirmeden renk vermek istiyorum ve önemlisi bir sonraki aya geçtiğimde geçmiş ayın renkli olarak kalmasını istiyorum ki
geçmiş aylarda renk tipine göre ödeme durumunu anlayabilim teşekkürler

Not:Mevcut koşullu biçimlendirmede mevcut aya ait renklendirme yapıyorum ama yukarıda yazdığım soruya cevap arıyorum

 

[neseterkutsesli]

Selamun aleyküm
Arkadaşlar konu hakkında yardımlarınızı bekliyorum

 

[ÖmerBey]

Koşullu biçimlendirme ile yaptığınız zaman kalıcı olmaz değer her değiştiğinde o koşula bağlı tüm hücrelerin biçimi değişecektir. Makro ile yapabilirsiniz.
Aşağıdaki kodu ilgili sayfanın kod bölümüne kopyalarsanız J4:J9 aralığı hangi ay içerisinde değişmişse o aya ait sütunun rengini değiştirir.
Koşullu biçimlendirmeyi sayfanızdan kaldırıp kodu deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Range("J4:J9"), Target) Is Nothing Then
    ay = Month(Date)
    With Target.Offset(0, ay + 1).Interior
        Select Case Target.Value
            Case Is = "BEKLİYOR"
                .ThemeColor = xlThemeColorAccent2
                .TintAndShade = 0.599963377788629
            Case Is = "ÖDENDİ"
                .Color = 49407
                .TintAndShade = 0
            Case Is = "ÖDENMEDİ"
                .ThemeColor = xlThemeColorAccent5
                .TintAndShade = 0.399945066682943
            Case Is = ""
                .ColorIndex = 0
        End Select
    End With
End If
End Sub