Verileri analiz etmek, grafik oluşturmak ve iletmek için araçlar içeren bir Microsoft elektronik tablo yazılımı ailesi.
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.