Excel bir hücreye kaydedilen tarih ekleme.

[By@dmin]

Excelde bir hücreye o dokümanın ne zaman kaydedildigi yada en son düzenlendiği tarihi ekleyebilirmiyim.

 

[By@dmin]

Yukarı....

 

[S.Yiğit]

Merhaba,

Aşağıdaki linkte 5. mesajda bulunan Korhan beyin çalışmasını inceleyiniz..

Hücre içiriğindeki değişikliklerin geçmişinin görülmesi.

 

[mancubus]

1) ThisWorkbook kod modülüne aşağıdaki kodu kopyalayın.

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

    Dim Sdate As Date
    
    Sdate = ThisWorkbook.BuiltinDocumentProperties("Last Save Time")
    
    Sheet1.Range("A1").Value = Sdate 'nereye yazdırmak istiyorsanız ona göre düzeltin

End Sub

2) KTF kullanabilirsiniz

standart bir modüle kopyalayın.

Function DocProps(prop As String)

Application.Volatile

On Error GoTo err_value
DocProps = ActiveWorkbook.BuiltinDocumentProperties(prop)
Exit Function
err_value:

DocProps = CVErr(xlErrValue)
'formülün hücrede yazılışı =DocProps("Last Save Time")

End Function

not: kodlar alıntıdır. kaynak: internet

 

[By@dmin]

Aşağıdaki resimdeki gibi kaydetmeye çalıştım doğru yeremi yapıyorum bilemiyorum ama sanırım hata veriyor, Ktf de nasıl yapıyor bilemiyorum.

Excel sayfasında B1 (yada değiştirdiğimdeki) hücredede zaten herhangi birşey çıkmıyor.

 

[1mak1mak]

Aşağıdaki resimdeki gibi kaydetmeye çalıştım doğru yeremi yapıyorum bilemiyorum ama sanırım hata veriyor, Ktf de nasıl yapıyor bilemiyorum.

Excel sayfasında B1 (yada değiştirdiğimdeki) hücredede zaten herhangi birşey çıkmıyor.

Aşağıdaki Linki incelerseniz Size yardımcı olacaktır.

Hücreye Takvimden Tarih Ekleme

Başka bir Alternatif Uygulama Burdan