Hücrede günün tarihini sabitlemek

[commander35]

A hücresine İsim B hücresine açıklama giriyorum. C hücresine giriş tarihini yani o günün tarihini yazdırmak istiyorum. Bugün formülü bu işi yapıyor. Fakat ertesi gün tarih değişiyor maalesef. Bu tarihi sabitlemenin bir yolu var mı? Yani verilerimin giriş tarihini ileride kontrol edebilmeliyim. Şu satırı şu tarihte girmişim demek için.

 

[Ali]

Sayfa adı sekmenizi sağ tuş ile tıklayıp kod görüntüle dedikten sonra VBA penceresine aşağıdaki kodları ekleyin B hücresine açıklama girdiğinizde C sütununa tarih atacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Aralik As Range, ilk As Range
      Set Aralik = Range("B2:B65536")
    Application.EnableEvents = False
    For Each ilk In Range(Target.Address)
        If Not Intersect(ilk, Aralik) Is Nothing Then ilk.Offset(0, 1) = Date
    Next ilk
    Application.EnableEvents = True
    Set Aralik = Nothing
End Sub

 

[commander35]

Ali arkadaş sağolasın. Verdiğin kod kısmen işimi çözdü. Şöyleki A-B-C-D-E-F hücrelerini kullanıyorum tarihi G hücresine yazmasını istiyorum. Ayrıca hücreleri yukarı aşağı oku ile gezerken bile yani veri girmediğim halde tarih yazıyor otomatikman.

 

[Seyit Tiken]

Bende alternatif bir kod sunuyorum.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then Target.Offset(0, 1) = Date
End Sub

 

[Ali]

Ayrıca hücreleri yukarı aşağı oku ile gezerken bile yani veri girmediğim halde tarih yazıyor otomatikman.

Change olayına bağlı olduğu için ok ile gezinmeniz sırasında tarih atmaz.

 

[commander35]

Kopyalarken change olayını gözden kaçırmışım Ali kardeş kusura bakma. Seyit arkadaşım sanada ayrıca teşekkür ederim. Her ikinizin verdiği kod'lar işime yaradı. Elleriniz dert görmesin.

 

[xternet]

Arkadaşlar bu sorunu kodsuz çözme şansı varmı?
Yani sadece formül kullanarak.

 

[meslan]

Muhterem arkadaşlar, burada dikkat edilmesi gereken bir unsur var. Daha sonra burada yapılan küçük bir düzeltme bile tarihi o gününün tarihi ile değiştiriyor. Bu durumda tarihin değeri de yok oluyor. burada eğer değer yoksa mantığı tarihi korur. Saygılar

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2:B65536]) Is Nothing Then Exit Sub
If Cells(Target.Row, "C").Value = "" Then
Cells(Target.Row, "C").Value = Date
End If
End Sub

 

[Necdet]

Merhaba,

Ctrl+Shift+; günün tarihini
Ctrl+Shift+: o anki saati hücreye yazar

Formül yoktur makro yoktur, böyle birşey işinize yarar mı?

 

[ünal karadavut]

Necdet_Yesertener
yine bilginizi konuşturdunuz.

 

[xternet]

Sayın Necdet_Yesertener çözümünüz çok pratik gerçekten. Birde bu koşulu şarta bağlayabilsek. Örneğin A1>0 ise B1 de günün tarihini yazıcak ve o tarih sonraki günlerde değişmeyecek.

 

[Necdet]

Sayın xternet,
Benim önerim sadece tarihi kısa yoldan girmek içindi.

 

[xternet]

Teşekkürler Necdet Bey.
Herkese iyi çalışmalar. Hayırlı günler.

 

[My Jörk]

Necdet Hocaya Teşekkürler