⚙️ Excel'de Yalın Ajanda Takibi ve Uyarı İşlevi

Kod tarihi geçmiş eylemi kırmızıya boyar. Eyleme, 14 gün ya da 14'den daha az gün kaldıysa yeşile boyar.

Kodu yapıştırdıktan sonra, VBA arayüzünde sayfa adını "Ajanda" olarak değiştirin.

https://claude.ai/ ile üretilen kod: Dim lr As Long Dim lc As Long Dim i As Long Const GunSayisi As Integer = 14 Dim StrIleti As String Sub Ajanda_Kontrol() lr = Ajanda.Cells(Rows.Count, 1).End(xlUp).Row lc = Ajanda.Cells(1, Columns.Count).End(xlToLeft).Column Ajanda.Range("A" & 2).Resize(1, lc).NumberFormat = "dd.mm.yyyy dddd hh:mm:ss" For i = 2 To lr If Ajanda.Range("A" & i).Value2 > Now() Then If (Ajanda.Range("A" & i).Value2 - Now()) <= GunSayisi Then Ajanda.Range("A" & i).Resize(1, lc).Interior.Color = RGB(205, 255, 155) 'Aktif eylem, cimen yesili StrIleti = StrIleti & _ ">>>" & _ Format(Ajanda.Range("A" & i), "dd mmmm yyyy dddd - hh:mm") & _ ": " & _ Ajanda.Range("B" & i) & vbNewLine End If Else Ajanda.Range("A" & i).Resize(1, lc).Interior.Color = RGB(255, 205, 205) 'Tarihi gecmis eylem, pembe End If Next i If StrIleti <> "" Then MsgBox StrIleti, vbInformation StrIleti = "" 'Else 'MsgBox GunSayisi & " gun icinde herhangi bir etkinlik yok.", vbInformation End If End Sub