Hücreye değer girildiğinde otomatik açıklama

[Bagcivan]

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        .ClearComments
        .AddComment
        .Comment.Visible = False
        .Comment.Text Text:=Application.UserName & ":" & Chr(10) & "Kayıt Giriş Tarihi" & Chr(10) & Now
    End With
End Sub

Yukarıdaki kod paylaşımda olan bir dosyada var. hücreye değer girildiğinde, kimin ve ne zaman girdiğini açıklama olarak ekliyor fakat, hücreleri silerken hata veriyor. Bunu nasıl düzeltebilirim ya da aynı işlevi yapan başka bir kod yazabilir misiniz?

 

[hamitcan]

İlk satıra aşağıdaki satırı ekleyin.

On Error Resume Next

 

[Bagcivan]

Teşekkürler sayın hamitcan.

 

[baydeniro]

Çok teşekürler sayın hamitcan, çok yararlı bir kod

 

[mersilen]

Sayın Hamitcan

Bu kodtaki Comment.Text ifadesini yine kayıt yapacak ,
ancak (A1) bir hücrede değer varsa görünsün yoksa görünmesin diye ilişkilendirmek mümkün müdür? Sayfanın üzerinde mouse gezerken mesela görünmesini istemezsek hücreye değer girip gizleyebilir miyiz?

 

[hamitcan]

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        .ClearComments
        .AddComment
        If [a1] = "" Then .Comment.Visible = False Else .Comment.Visible = True
        .Comment.Text Text:=Application.UserName & ":" & Chr(10) & "Kayıt Giriş Tarihi" & Chr(10) & Now
    End With
End Sub

İkinci sorunuz için ise, kod yapısının bu duruma etkisi yok.