Son kaydedilme zamanı

[m.cay]

Selam,

Yaptığım bir sayfanın herhangi bir hücresine, dosyanın en son ne zaman kaydedildiğini tarih ve saat olarak yazmam gerekiyor. Ancak bunu VBA'yla değil de fonksiyonla ya da başka bir şekilde nasıl yapabilirim?

 

[Korhan Ayhan]

Selamlar,

Bildiğim kadarıyla bunu fonksiyonla yapmak mümkün değil.

Bunun yerine Dosya menüsünden Özelliklerden çalışmanız ile ilgili bilgilere ulaşabilirsiniz yada bu işlemi makro ile yapacaksınız. :arkadas:

 

[mehmett]

ThisWorkbook kod sayfasına aşağıdaki kısa kodu yazmanız yeterli;

A1 hücresine kayıt tarihi ve saati yazılacaktır.

[vb:1:feb2d6c24e]Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
[A1] = Now()
End Sub[/vb:1:feb2d6c24e]

 

[m.cay]

Sevgili mehmett,

İlgin için çok teşekkür ederim, tam istediğim gibi oldu.

 

[Zeki Gürsoy]

Alternatif olarak, Dosya özelliklerinden son değişiklik tarihini de [a1] hücresine yazdırabiliriz.

Sub Kaydetme_Zamanı()
Dim zaman
zaman = FileDateTime(ThisWorkbook.Name)
[a1] = zaman
End Sub