Sonra alt+F11'e basıp "Sayfa1" e çift tıklayıp aşağıdaki kodu ekleyin
"sayfa1" her aktif olduğunda alanları kontrol eder (önce sayfa2,3,4 vs vs sonra sayfa1)
dilerim işinize yarar
Kod:
Function Aralikta()
Dim Blg As Range
Dim Hucre As Range
Dim SonStr As Long
SonStr = Cells(Rows.Count, 1).End(xlUp).Row
Set Blg = Range("A2:A" & SonStr)
For Each Hucre In Blg
If IsDate(Hucre) And Hucre >= DateAdd("d", -5, Date) And Hucre <= DateAdd("d", 5, Date) Then
Range("E" & Hucre.Row).Value = "Geçerli" '
Else
Range("E" & Hucre.Row).Value = "Geçersiz"
End If
Next
End Function
Private Sub Worksheet_Activate()
Aralikta
End Sub