Hücre notuna otomatik olarak tarih nasıl yazılır?

[talip]

Hücre değerini değiştirdiğimizde aynı hücrenin notuna günün tarihi nasıl otomatik olarak yazılır. Herkese şimdiden teşekkür ederim.

 

[hamitcan]

Aşağıdaki şekilde deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Target.Comment.Delete
    Target.AddComment.Text Text:=Format(Now, "ddmmmyyyy hh:mm:ss")
End Sub

 

[Necdet]

Merhaba,

Eklediğiniz o garip resmi beğenmediğimi belirterek, aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırınız.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Target.Comment.Delete
Target.AddComment
Target.Comment.Visible = False
Target.Comment.Text Text:="Değişim Tarihi : " & Now
End Sub

 

[Ayhan Ercan]

hücreyi (a1) olarak varsayarak bişeyler yapmaya calıştım. siz kendinize göre uyarlayabilirsiniz....

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
 Dim tarih As Date
    tarih = Format(Range("a1"), "dd.mm.yyyy")
    Range("a1").AddComment
    Range("A1").Comment.Text Text:="talip:" & Chr(10) & tarih
End Sub

çok pardon sorunuzu yalnış okumuşum.... ben hücreye yazılmış olan tarihin notta görünmesini istediğinizi sanmışım. çok özür dilerim.
değerli üstadlarımız çok güzel cevaplamışlar....

 

[talip]

Arkadaşlar hepinize çok teşekkür ediyorum, bu kodlar işimi gördü.

Bu arada resim bana sempatik gelmişti ama zevkler ve renkler tartışılmaz derler.