EXCEL KAPANIŞTA AÇIKLAMA EKLEME

[yusufatas]

Merhaba;

Excel dosyasını her kapanışta kapat tuşuna bastığımda excelin açıklama istemesini ve yazılan açıklamayı veri sayfasındaki satıra alt alta eklemesi gibi bir excel çalışması yapmak istiyorum.Yani her kapanışta excel dosyasında yapılan değişiklikler ile ilgili açıklama istenmesi ve bu açıklamanın log kaydı gibi kaydedilmesi işlemi.Yardımcı olursanız sevinirim.

Teşekkürler.

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyiniz. Kodlar BuÇalışmaKitabı'nın kod bölümünde olmalı.
A sütununa o anki tarih ve saati, B sütununa ise belirttiğiniz açıklamayı yazar.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Dim ShV As Worksheet, _
        i   As Long, _
        Ack As String
    
    Set ShV = Sheets("Veri")
    i = ShV.Cells(Rows.Count, "A").End(3).Row + 1
    Ack = Application.InputBox("Açıklamayı Yapınız", "Açıklama Girişi...", Type:=2)
    If Ack = "" Then Exit Sub
    
    ShV.Cells(i, "A") = Now
    ShV.Cells(i, "B") = Ack
    
End Sub

 

[yusufatas]

Kodu çalıştıramadım.Excel dosyasında gönderebilir misiniz.
Teşekkürler

 

[Necdet]

Kod dosyayı kapattığınızda otomatik olarak çalışacaktır.
Eğer kodları BuÇalışmaKitabı'nın kod bölümüne kopyaladıysanız.

 

[yusufatas]

Kod dosyayı kapattığınızda otomatik olarak çalışacaktır.
Eğer kodları BuÇalışmaKitabı'nın kod bölümüne kopyaladıysanız.

Teşekkürler.