Açıklama Ekleme

[sirkülasyon]

Selamün Aleyküm.
Ustalarımdan ricam;
Excel sayfasında üstten ilk iki satır hariç her hücrede yapılan değişiklikleri açıklama ile gösteren makroya ihtiyacım var.

Yardımcı olabilir misiniz?

 

[Necdet]

Merhaba,

Aşağıdaki kodların hepsini ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

Public EskiDeger
Public Aciklama

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Row < 3 Then Exit Sub
    Aciklama = ""
    
    With Target
        If .Comment Is Nothing Then
            Target.AddComment
        Else
            Aciklama = .Comment.Text
        End If
    End With
    
    Target.Comment.Text Text:=Aciklama & Chr(10) & Now & " Eski Değer : " & EskiDeger
    
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Row < 3 Then Exit Sub
    EskiDeger = Target.Value
   
End Sub

 

[sirkülasyon]

Necdet abi teşekkür ederim

 

[Necdet]

Güle güle kullanın.