Otomatik Tarih

[erdoğankaplan]

Excel'de C3'e herhangi bir veri girdiğimde A1'e o andaki tarihi otomatik yazsın istiyorum.
A1'e yazılan tarih; yalnızca C3'deki veri değiştirildiğinde güncellenecek.
Bunun dışında tarih sabit kalacak.

 

[Seyit Tiken]

Bu kodu bir deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [C3] > 0 Then [A1] = Date Else [A1] = ""
End Sub

 

[oerbas]

Sayın Seyit Tiken

Bu tüm kolon için geçerli olabilirmi? Örneğin F sütununda herhangibir değişiklik yapılınca hemen yanındaki hücreye tarih atsın değişiklik yapılmazssa tarih aynı kalsın. Yada değişiklik yoksa yandaki hücre boş kalsın

 

[cout(h)ane]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayın..

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [f:f]) Is Nothing Then Exit Sub
Cells(Target.Row, Target.Column + 1) = Date
End Sub

İstediğiniz şey üzerinde bir zamanlar ben de çok çalışmıştım, sonunda excel.web.tr sayesinde çözüme ulaşmıştım. Böylece bir kişi daha site sayesinde çözüme kavuşmuş olacak, bu çok sevindirici :arkadas:

 

[oerbas]

Sayın cout(h)ane, Senelik izinde olmam sebebiyle mesajınızı yeni aldım. Bu yüzden teşekkür mesajını yeni yazıyorum kusuruma bakmayın. Ayrıca çalıştığımız kurumda malesef internet kullanımı kısıtlanmıştır. İnternet kullanımı belirli saatlerde açılıyor. Bu yüzdende mesajlara zamanında cevap yazamıyorum. ilginize tekrar teşekkürler