[ÇÖZÜLDÜ] Hücreye değer girdiğimde otomatik olarak günün tarihi açıklama bölümüne yazılsın..

[enteresan]

[ÇÖZÜLDÜ] Hücreye değer girdiğimde otomatik olarak günün tarihi açıklama bölümüne yazılsın..

Bir çalışma sayfasına zaman zaman parasal miktarlar girmekteyim. Bir hücreye girdiğim değer için, otomatik olarak açıklama oluşturulup, açıklama benceresine işlem yapılan günün tarihi atılabilir mi ? Yardımcı olacaklara şimdiden teşekkür eder, saygılar sunarım....

 

[Korhan Ayhan]

Selamlar,

İşlemi yapacağınız sayfanızın kod bölümüne aşağıdaki kodu uygulayınız. A sütunundaki hücrelere sayısal veriler girdikçe hücreye otomatik olarak açıklama eklenecektir. Umarım faydası olur.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    If IsNumeric(Target) = False Or Target = "" Then
    Target.ClearComments
    Exit Sub
    End If
    With Target
        .ClearComments
        .AddComment
        .Comment.Visible = False
        .Comment.Text Text:=Application.UserName & ":" & Chr(10) & Now
    End With
End Sub

 

[enteresan]

Teşekkürler

Sayın Cost_Control makroyu denemedim ama anladığım kadarı ile sadece A sütunundaki yazdığım veriler için tarih atacak değil mi, beki değişik sütunlara veri girdiğimde bunu değiştirebilir miyim. Veya bunun için ayrı bir makro mu yapmak gerekecek. Saygılarımla....

 

[Merhum İdris SERDAR]

Ekteki dosyayı inceleyin.

Veri girdiğiniz yerin üstünü double-Click yapın.

 

[enteresan]

Sevgili Cost_Control macroyu denedim ve A:A olan bölümü A:Z olarak değiştirdiğimde istediğim sonuca ulaştım. Çok teşekkür eder saygılar sunarım. Ayrıca cevap veren sayın yurttaş' a da saygı ve sevgilerimle.

 

[Seyit Tiken]

Kodu deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Intersect(ActiveCell, [A1:Z1000]) Is Nothing Then Exit Sub
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text Text:=Application.UserName & Chr(10) & Date
End Sub