Otomatik tarih getirme

[cemshan]

Günaydın Arkadaşlar

B2 hücresine dosyayı her kaydet dediğimde o anki tarih ve saati getirmesini nasıl yapabilirim ?

 

[hamitcan]

ThisWorkBook kısmına ekleyin.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    [b2] = VBA.Format(Now, "dd.mm.yyyy hh:mm")
End Sub

 

[cemshan]

Yaptım kaydet diyorum yazmıyor

 

[hamitcan]

Doğru yere mi eklediniz ?

 

[cemshan]

ThisWorkBook kısmına ekleyin.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    [b2] = VBA.Format(Now, "dd.mm.yyyy hh:mm")
End Sub

Sanırım dediğiniz yere ekleyemedim
O kısım neresi oluyor ?

 

[hamitcan]

BuÇalışmaKitabı kısmını çift tıklayıp içine yapıştırın.

 

[cemshan]

Elinize sağlık teşekkürler