Soru Değiştirilme tarihi

[k0081]

Merhaba arkadaşlar,

Dosya açıldığında , anasayfa kitabına A7 hücresine dosyanın değiştirilme tarihini nasıl yazdırabilirim ?

yardımcı arkadaşa şimdiden teşekkürler.

 

[Greenblacksea53]

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Sheets("anasayfa").Range("A7") = Now

End Sub

İşinizi görecektir.

 

[Necdet]

Merhaba,
Aşğıdaki kodları BuÇalışmaKitabı içine kopyalayıp dener misiniz?

Private Sub Workbook_Open()

    Dim fs, f
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(ThisWorkbook.FullName)
    Sheets("anasayfa").Range("A7") = f.DateLastModified
    Set fs = Nothing
    Set f = Nothing

End Sub

 

[Muzaffer Ali]

Merhaba.
Alternatif.

Private Sub Workbook_Open()
    Worksheets("AnaSayfa").Range("A7") = ThisWorkbook.BuiltinDocumentProperties(12)
End Sub

 

[Necdet]

Sayın Muzaffer Ali bey,

builtindocumentproperties'i bir türlü hatırlayamadım, uzun yoldan yanıtlamıştım

 

[Muzaffer Ali]

Sayın Muzaffer Ali bey,

builtindocumentproperties'i bir türlü hatırlayamadım, uzun yoldan yanıtlamıştım

Sizin yönteminiz de farklı dosyalar için bilinmesi gereken bir yöntem.

 

[k0081]

@Greenblacksea53
@Necdet
@Muzaffer Ali

Çok Teşekkür ediyorum, Tamamdır. Elinize sağlık arkadaşlar...