Merhaba.
Bu konu için vba kullanmak lazım.
kullanacağınız sayfanın sayfa sekmesine sağ tıklayın.Kodu görüntüleyi seçin
açılan vb editörüne aşağıdaki kodu yapıştırın.VB editörünü kapayın.
İşlem tammadır.
Not : vba kodlarının çalışması için bir kereye mahsus olmak üzere güvenlik seviyesini düşürmeniz gerekir.
Vba Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:A20]) Is Nothing Then Exit Sub
On Error Resume Next
Target.Offset(0, 1).ClearContents
Target.Offset(0, 1).NumberFormat = "dd.mm.yyyy"
Target.Offset(0, 1).Value = Date
End Sub
Size yardımcı olabilmişsem mesaj içerisindeki "Yardımcı Olarak Oyla" üçgenine tıklayın.