Hücre içeriğinin değiştirilmesini öğrenmek

[seyfi38]

Selam Arkadaşlar
Benim isteğim
Herhangi hücre üzerine gelince o Hücre içeriğinin değiştirildiği tarih ve saati öğrenme
bu mümkün değilse o hücrenin yanına otomatik bugün tarihini attırmak

Kolay gelsin

 

[fedeal]

Merhaba, sayfanın kod bölümüne ekleyin iyi çalışmalar.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Offset(0, 0).Comment Is Nothing Then Target.Offset(0, 0).ClearComments
Application.EnableEvents = False
    Target.Offset(0, 0).AddComment
    Target.Offset(0, 0).Comment.Visible = False
    Target.Offset(0, 0).Comment.Text Text:="excel.web.tr" & Chr(10) & Now
Application.EnableEvents = True
End Sub

 

[seyfi38]

Merhaba, sayfanın kod bölümüne ekleyin iyi çalışmalar.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Offset(0, 0).Comment Is Nothing Then Target.Offset(0, 0).ClearComments
Application.EnableEvents = False
    Target.Offset(0, 0).AddComment
    Target.Offset(0, 0).Comment.Visible = False
    Target.Offset(0, 0).Comment.Text Text:="excel.web.tr" & Chr(10) & Now
Application.EnableEvents = True
End Sub

Teşekkürler Fedeal kardeş süper olmuş
Bu sayfa için geçerli bunu kitabın tüm sayfaları için nasıl yapabiliriz
Şimdiden teşekkürler

 

[fedeal]

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Target.Offset(0, 0).Comment Is Nothing Then Target.Offset(0, 0).ClearComments
Application.EnableEvents = False
    Target.Offset(0, 0).AddComment
    Target.Offset(0, 0).Comment.Visible = False
    Target.Offset(0, 0).Comment.Text Text:="excel.web.tr" & Chr(10) & Now
Application.EnableEvents = True
End Sub

ThisWorkbook bölümüne kopyalayın,

 

[seyfi38]

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Target.Offset(0, 0).Comment Is Nothing Then Target.Offset(0, 0).ClearComments
Application.EnableEvents = False
    Target.Offset(0, 0).AddComment
    Target.Offset(0, 0).Comment.Visible = False
    Target.Offset(0, 0).Comment.Text Text:="excel.web.tr" & Chr(10) & Now
Application.EnableEvents = True
End Sub

ThisWorkbook bölümüne kopyalayın,

Tesekkürler kardeş
Tam istediğim gibi oldu

 

[fedeal]

ricaederim, iyi çalışmalar.