Eğer G1 Hücresinde işlem yapılırsa L1 Hücresine değiştirilme tarihi ve saatini yazsın

[hakan666]

Arkadaşlar merhaba

Aşağıda belirttiğim makronun daha basit bir yolu varmıdır.1500 satırda bunu yapmak istiyorum.

Saygılarımla



Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target = Cells(1, 7) Then Cells(1, 12) = Now
If Target = Cells(2, 7) Then Cells(2, 12) = Now
If Target = Cells(3, 7) Then Cells(3, 12) = Now
If Target = Cells(4, 7) Then Cells(4, 12) = Now
If Target = Cells(5, 7) Then Cells(5, 12) = Now
End Sub 'alternatif ŞİMDİ() or Bugün or Time

 

[Murat OSMA]

Deneyiniz...

if target.column <> 7 then exit sub
target.offset(0,5).value = now

 

[hakan666]

Murat Bey Çok teşekkür ederim. Tam olarak istedğim buydu.Emeğinize sağlık.

 

[Murat OSMA]

Rica ederim Hakan Bey, iyi günler...

 

[sensizsoldum]

Merhaba, Kodu kendime göre uyarladım ve bir sorun var oluyor. Bu kodla ayni işi yapan kod bende de vardı, aynı sorun bu kod da oluyor. Düzenlenmesi mümkün olabilir mi bilmiyorum. Eğer olursa bu kodu kullanmak isterim
B3 ve F10 arasına veriyi yapıştırdığım da, tarih sadece G sütunda görünmesi gerekirken. H ve K sütunlar arasında da tarih çıkıyor. Bunun olmaması istiyorum sade G sütunda tarih olmalı. B sütundan veri silindiğinde tarihte silinmeli...
Uyarladığım kod aşağıdadır.




Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column <> 2 Then Exit Sub
Target.Offset(0, 5).Value = Now
End Sub