Cari tarih problemi

[Hokage]

Merhabalar;
Tablomdaki satırlara veri girdikçe veriyi girdiğim anın tarih ve zamanının otomatik olarak o satırım ikinci sütununda görünmesini istiyorum.
Yani; tablomun üçüncü sütununa veri girişi yaptığımda, ikinci sütunda veri girişinin gerçekleştiği zamanın (cari tarih ve saatin) görünmesini istiyorum. Bunun için de B2 hücresine şöyle bir formül yazdım:

=EĞER(EBOŞSA(C2);"";ŞİMDİ())

Tabi bu formülle sistem saati ilerledikçe hücremdeki saat de ilerliyor. Cari tarihin sabit kalmasını sağlayamadım bir türlü. Bunun bir yolu var mıdır?

Teşekkürler

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayınız. A sütununda yapılan bir değişiklikte B sütununa tarihi yazar.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Or Target.Row < 2 Then Exit Sub
Target.Offset(0, 1) = [B]Now[/B]
End Sub

Sadece tarih yazmasını isterseniz yukarıdaki kodda Now yerine Date kullanınız.

 

[Hokage]

Teşekkürler

Hocam ilginize çok teşekkür ederim. Tan da istediğim gibi oldu. Elinize sağlık.

 

[1Al2Ver]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayınız. A sütununda yapılan bir değişiklikte B sütununa tarihi yazar.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Or Target.Row < 2 Then Exit Sub
Target.Offset(0, 1) = [B]Now[/B]
End Sub

Sadece tarih yazmasını isterseniz yukarıdaki kodda Now yerine Date kullanınız.

Sayın Necdet Yeşertener, merhaba,

Çözümden ben de yararlandım, teşekkür ederim.

 

[Necdet]

Güle güle kullanınız.