güncelleme tarihi

[croniker]

Merhabalar

Arkadaşlar sorum şudur;

Bir dosyamız var ve bu dosyanın güncellenme zamanları var.Ben bir satırda bugünün tarihini TODAY komutuyla gösteriyorum.Bir alt satırında da en son güncelleme tarihi diyerek kendim manuel olarak en son güncellediğim tarihi giriyorum.Benim istediğim EN son güncellenme tarihi kutusunun otomatik olarak doldurulması.Yani En son save ettiğim tarihi otomatik olarak o hücreye yerleştirmesi. Böyle bir şeyi nası yaparız

İyigünler

 

[Necdet]

Merhaba,

Aşağıdaki kodları ThisWorkBook'un kod bölümüne kopyalayınız.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Sayfa1").[A1] = Date
End Sub

 

[croniker]

Necdet bey
Çok teşekkürler sorun çözüme ulaştırıldı.

 

[croniker]

Arkadaşlar bu konu hakkında başka bir ihtiyacım daha doğdu.

Biraz daha ayrıntı olması amacıyla en son save ettiğim zaman tarihle birlikte saat inde hücrede yazması mümkün olabilirmi ?

 

[uzmanamele]

merhaba

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Sayfa1").[A1] = Date
Sheets("Sayfa1").[A2] = Time
Sheets("Sayfa1").[A3] = Now
End Sub

 

[croniker]

Teşşekürler Arkadaşlar
Ne sorsam anında çözüme ulaşıyor gerçekten harika bir forum.