Otomatik Zaman formülü

[vuralas]

merhaba,
yaptığım bir tablo var, yapılan işleri günlük olarak kaydediyorum. her işlem bir satıra kaydediliyor.
amacım, ilgili satırda veri girişim bittiğinde, o işi yaptığım tarih ve saatin otomatik olarak her satırın sonuna yazılması.
bunu aşağıdaki formül ile yapabiliyorum:

=EĞER(N2<>0;ŞİMDİ();"")

yani N2 hücresi doluysa ŞİMDİ formülü ile tarih ve saati alıyorum.

ama bu şekilde şöyle bir sorun yaşıyorum:
Mesela dün N2 hücresinin olduğu satıra kayıt girdim ve satırın sonundaki hücreye 24 Ocak 2017 16:00 yazdı kendisi

ancak bugün N3 hücresinin olduğu satıra kayıt girince N3 hücresine bugünü yazarken N2 deki tarihi de bugünkü tarih yapıyor. yani daha önceki tüm satırların sonucuna en son yapmış olduğum tarih ve saati gömüyor.

Bunu mümkünse formül ile çözebilir miyim?
sanırım makro ile VB kodları ile daha kolay yapılabilir ama ben pek fazla VB bilmiyorum.
Formül ile yardımcı olabilecek arkadaşların desteğini rica ederim.
kolay gelsin
Ali

 

[cems]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [N:N]) Is Nothing Then Exit Sub
If Target = "" Then
Target.Offset(0, -1) = ""
Target.Offset(0, -2) = ""
Else
Target.Offset(0, -1) = Date
Target.Offset(0, -2) = Time

End If
End Sub

Bu kodu sayfanın kod bölümüne yazın , önemli olan N sütunundan önceki 2 sütun boş olmalı ..
N sütunununda hangi hücre olursa olsun değişiklik olduğunda saat ve tarihi sola o hücreden çıkıldığında yazacaktır.
Hayır ben hücrenin sağına yazmak istiyorum derseniz , Target satırlarındaki eksileri kaldırın , çıkılan hücrenin sağına yazacaktır.
Bu durumda da N sütunundan sonraki iki sütun boş olmalı. Ya da sayıları artırarak daha uzak ve sağa ilerletebilirsiniz.

 

[vuralas]

teşekkür ederim, iyi çalışmalar