Hücredeki Açıklama Bölümüne İlk Veri Girişi Yapıldığı Tarihin Otomatik Yazılması

[sbayyigit]

Merhaba arkadaşlar C4:N16 aralığındaki tabloya veri kaydediyorum. Her hücreye ilk kez giriş yaptığımda o hücredeki açıklama bölümüne, giriş yapılan günün tarihini otomatik yazmasını istiyorum. Değişiklik yapıldığı zaman açıklamadaki tarih otomatik değişmeyecek ama ben istersem manuel olarak değiştirebilmem gerekiyor.
Yardımlarınız için teşekkürler.

 

[alicimri]

ilgili sekmenin modülüne aşağıdaki kodu yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C4:N16")) Is Nothing Then
 Target.AddComment Format(Date, "dd.mm.yyyy")
  Target.Comment.Visible = False
 End If
End Sub

 

[Muzaffer Ali]

Merhaba.
Alternatif
Sayfanın kod kısmına aşağıdaki kodu kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C4:N16")) Is Nothing And Target.Comment Is Nothing Then
        Target.AddComment Text:="" & Now & ""
    End If
End Sub

 

[sbayyigit]

Her iki kod da çalıştı teşekkürler arkadaşlar