Hücreye güncelleme tarihini otomatik yazdırma

[tuncgorgulu]

arkadaşlar merhaba,
ekte gördüğünüz dosya da da açıkladım.
ben bir excel dosyamı kaydederken güncelleme tarihini her gün manuel olarak yazmak istemiyorum. kaydet butonuna bastıgımda kaydettiği tarihi referans verdiğim hücreye kendisi yazsın istiyorum.
bununla ilgili yardımcı olursanız sevinirim.
Teşekkürler

Tunc Görgülü
Kimya Müh (MSc)

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?
ThisWorkbook kısmına yazarak deneyiniz.
dosya her kaydedildiğinde ilgili alana gün ve saat yazar.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("sayfa1").Range("c5") = Now
End Sub

 

[tuncgorgulu]

yardımınız için teswekkurler. evet işimi gordu bu kod.

 

[benmutlu]

Merhabalar,
benim sorunum ise bunun biraz daha ileri bir versiyonu.
en son değişiklik yapılan satırın "güncelleme tarihi" isimli kolonuna son güncelleme tarihinin girilmesi lazım. bunu yapmak mümkün mü?
Yardımlarınız için teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu ilgili sayfanızın kod bölümüna uygulayıp denermisiniz. "K" sütununu "Güncelleme Tarihi" sütunu olarak baz aldım. Siz kendinize göre uyarlayınız.

Merhabalar,
benim sorunum ise bunun biraz daha ileri bir versiyonu.
en son değişiklik yapılan satırın "güncelleme tarihi" isimli kolonuna son güncelleme tarihinin girilmesi lazım. bunu yapmak mümkün mü?
Yardımlarınız için teşekkürler.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Cells(Target.Row, "[COLOR=red]K[/COLOR]") = Now
End Sub

 

[benmutlu]

Teşekkür ederim, işe yaradı.

 

[betoncu]

Arkadaşlar benim bir sorum olacak. Güncelleme tarihinin otomatik olarak aktarılmasına ilave olarak dosyayı ilk kaydettiğimiz tarihi gösteren bir komut veya formül varmıdır? Yardımcı olurmusunuz.

 

[betoncu]

diğer sayfalar için

merhaba

bu kod işinizi görür mü?
ThisWorkbook kısmına yazarak deneyiniz.
dosya her kaydedildiğinde ilgili alana gün ve saat yazar.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("sayfa1").Range("c5") = Now
End Sub

Yukarıdaki formülü diğer sayfalar için nasıl uyarlayabiliriz? Sayfa2, sayfa3 gibi?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde kullanabilirsiniz.

Option Explicit
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim Zaman As Date
    Zaman = Now
    Sheets("Sayfa1").Range("C5") = Zaman
    Sheets("Sayfa2").Range("C5") = Zaman
    Sheets("Sayfa3").Range("C5") = Zaman
End Sub

 

[betoncu]

Her Sayfada Kayıt Zamanı

Selamlar,

Aşağıdaki şekilde kullanabilirsiniz.

Option Explicit
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim Zaman As Date
    Zaman = Now
    Sheets("Sayfa1").Range("C5") = Zaman
    Sheets("Sayfa2").Range("C5") = Zaman
    Sheets("Sayfa3").Range("C5") = Zaman
End Sub

Kodu böyle yapınca her sayfada değiştiriyor fakat herbir sayfada ayrı zamanlarda kayıt yapılınca bu zamanları ayrı ayrı yazan makro varmıdır? Yani Sayfa 2 de değişiklik yapılınca Sayfa 1 de yapılan değişiklik zamanını değiştirmeyecek.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Bu kod dosyayı kaydettiğiniz anda hangi sayfada iseniz o sayfadaki C5 hücresine kayıt tarihini ve zamanını yazar.

Option Explicit
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Range("C5") = Now
End Sub

 

[betoncu]

Yardım eden bütün arkadaşlara teşekkür ederim..

 

[betoncu]

Bir sorum daha olacak; çalışma sayfasını kaydettikçe güncel tarih otomatik olarak geliyor orası tamam. Peki excel dosyasının her bir çalışma sayfasını ilk defa kaydedildiği ilk kayıt tarihini otomatik olarak getirebilirmiyiz?

 

[betoncu]

Birde tarihin otomatik getirildiği hücreyi koruyunca (kilitleyince) makro çalışmıyor. Kilitli hücrede makronun çalışmasını nasıl sağlarız?

 

[Korhan Ayhan]

Selamlar,

Sayfaların kayıt edildiği tarih diye birşey olmaz. Dosyanızı kayıt ettiğiniz an tüm sayfalardaki bilgiler kayıt edilir. Bu sebeple ulaşabileceğiniz bilgi dosyanın oluşturulduğu tarih olabilir.

Dosya-Özellikler menüsünden GENEL sekmesinde bu bilgileri görebilirsiniz. Dilerseniz bu bilgileri makroylada öğrenebilirsiniz.

Aşağıdaki linkte bununla ilgili makro bulunmaktadır.

Dosya Özelliklerini Listelemek

 

[betoncu]

Teşekkür ederim..

 

[DMR 7]

Selamlar,

Aşağıdaki kodu denermisiniz. Bu kod dosyayı kaydettiğiniz anda hangi sayfada iseniz o sayfadaki C5 hücresine kayıt tarihini ve zamanını yazar.

Option Explicit
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Range("C5") = Now
End Sub

korhan hocam, bu kodu neden çalıştıramamış olabilirim ? 2010 excel kullanıyorum. mesaj tarihiniz 2011.

 

[DMR 7]

Selamlar,

Sayfaların kayıt edildiği tarih diye birşey olmaz. Dosyanızı kayıt ettiğiniz an tüm sayfalardaki bilgiler kayıt edilir. Bu sebeple ulaşabileceğiniz bilgi dosyanın oluşturulduğu tarih olabilir.

Dosya-Özellikler menüsünden GENEL sekmesinde bu bilgileri görebilirsiniz. Dilerseniz bu bilgileri makroylada öğrenebilirsiniz.

Aşağıdaki linkte bununla ilgili makro bulunmaktadır.

Dosya Özelliklerini Listelemek

excelde birden fazla sayfam var. bu sayfaların bir tanesinde kaydetme tarihi tutmak istiyorum. lakin diğer sayfada çalışıp kaydedersem de o da kaydolmuş olacak. ilgili sayfada değişiklik varsa tarih yaz diyebilir miyiz?

 

[Korhan Ayhan]

Merhaba,

Aktif sayfa adına göre kayıt tarihi uygulaması yapılabilir. Belki bu şekilde işinize yarayabilir.

Option Explicit
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If ActiveSheet.Name="Sayfa1" Then Range("C5") = Now
End Sub