Mevcut hücre içeriğinde herhangi bir değişiklik yapıldığında otomatik tarih yazdırma

[yinoncu]

MErhaba,
Elimde farklı kullanıcıların sistem günlüklerini tutan bir excel kaydı var.
A1,a2,a3... devam ediyor. Bu hücrelerin içeriğinde olay kayıtları hakkında durum bilgisi var.Bazı hücreler boş ya da veri yazılı da olabilir.içerik sayı ya da metin de olabilir.
A1 hücresine sadece yeni veri girişi yapıldığı zaman B1 hücresine günün tarihi gelmeli.a1e yeni giriş yapılmadıysa b1 aynen kalmalı.

Bunu aşağıdaki formülle çözmeye çalıştım.
=eğer(a1<>"";bugun();"") a1 dolu ise (veri girişi yapıldı ise )tarih yaz ,değilse boş bırak.

Ancak formülü çalıştırınca,A sutununda zaten bazı hücrelerde veri olduğundan tüm dolu hücrelere günün tarihini attı,eski tarihleri de sildi tabii.

Nasıl çözebilirim,yardımcı olabilir misiniz?

 

[TanerSaydam]

Bunu 2 türlü halledebilirsin. Öncelikle tarih yazdığın sütunu değer olarak alırsın. Tarih yazdığın sütunun yanına şu kodu yazarsın

=eğer(b1<>"";b1;eğer(a1<>"";bugün();""))

Ve boş olan tarih hücrelerini, yani b5 boş diyelim. Onu da c5,ile eşitlersin ve b hücresini gizlersin.

Ya da bir makro yazabilirsin ki bu daha mantıklı olur.
Alt+F11 ile makro bölümüne ulaş ve Sayfa1'e aşağıdaki kodu direkt kopyala.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Cells(Target.Row, "b") = "" Then
Cells(Target.Row, "B") = Date
End If
End Sub

NOT:Muygun arkadaşımızın yazdığı koda ufak bir düzeltme yaptım. Bu şekilde de kullanabilirsin. B tarihin atanacağı sütun. Tarihi başka sütuna yazdıracak isen ona göre değiştir.

 

[muygun]

Merhaba;

Bunu formülle yapamazsınız.
Sayfanın kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Cells(Target.Row, "B") = Date
End If
End Sub

Kodlarını yerleştirip deneyin.
İyi çalışmalar.

 

[yinoncu]

tamamdır,teşekkür ederim.Bir deneyeceğim kodları.

 

[by_grgh]

Merhabalar,
Formül ile yada VBA kısmı ile yapılacak bir çalışmada D1 ile W1000 aralığında yapılacak herhangi bir değişiklikte zaman damgasını ilgili satırın B sütununa yazdırmak istesek eğer nasıl bir formül yada kod yazmalıyız?
Teşekkürler,