Tarih Renklendirme

[emiroglu07]

Üstadlar kolay gelsin excel sayfamda yer alan b stunundaki tarihlerin sadece
10-20-30-31 günlerini koşullu biçimlendirme ile nasıl renklendirebilirim

[Alibuyuk66]

Merhaba Vaba ile aşağıdaki şekilde yapabilirsiniz.

Kod: Tümünü seç

Sub TarihleriRenklendir()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim cell As Range
    Dim dayValue As Integer
    
    ' Renklendirmek istediğiniz sayfa adını aşağıdaki satıra yazın
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' Sayfanın B sütunundaki son satırı bulun
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    ' Tüm hücreleri dolaşarak istenen tarihleri renklendirin
    For i = 1 To lastRow
        Set cell = ws.Cells(i, "B")
        If IsDate(cell.Value) Then
            dayValue = Day(cell.Value)
            If dayValue = 10 Or dayValue = 20 Or dayValue = 30 Or dayValue = 31 Then
                cell.Interior.Color = RGB(0, 0, 255) ' Mavi renk (RGB(Blue, Green, Red))
            End If
        End If
    Next i
End Sub