Tarihleri bul

[1903emre34@gmail.com]

Merhaba,

Yukarıdaki tarihler, sol taraftaki tarihler herhangi bir arasında yer almıyorsa sarı ile renklendirmek için için kod oluşturabilir miyiz

 

[Ömer]

Merhaba,

Deneyiniz.

Sub renk()
    
    Dim i As Long
    
    Range("A2:A" & Rows.Count).Interior.ColorIndex = 0
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        If WorksheetFunction.CountIf([F4:M7], Cells(i, "A")) = 0 Then
            Cells(i, "A").Interior.ColorIndex = 6
        End If
    Next i
    
End Sub