Hücreye veri girilince sağ tarafa

[REACTS=1,2,10,9] [/REACTS]

En basit hali...
Bir hücreye bir şeyler yazarsınız ve Enter tuşuna basarsınız, sonrasında aktif haldeki hücrenin 1 üst hücresinde değer varsa, 1 üst sağ hücresine tarih yazar.
Kriterler vs ile geliştirilebilir.

Alternatif
Bu satırları sayfanızdaki kodlara ekleyerek deneyin.

hakki83' Alıntı:

If Not Intersect(Target, Range("B:B")) Is Nothing Then Cells(Target.Row, "C") = Date If Not Intersect(Target, Range("D:D")) Is Nothing Then Cells(Target.Row, "E") = Date

Genişletmek için tıklayın ...

Bu formülü ilgili yere girdim. Ama istediğim olmadı.

[REACTS=1,2,10,9] [/REACTS]
Üstteki kodlar sayfanızdaki Worksheet_Change(ByVal Target As Excel.Range) prosedürünün ilk satırına yazın.
Sonraki kodlarınızın işlevini bilmediğim için dikkate almıyorum.

ahmetcahan' Alıntı:

Bu formülü ilgili yere girdim. Ama istediğim olmadı.

Genişletmek için tıklayın ...

1 nolu mesajınızdaki örneğe göre, oluyor.

Admin' Alıntı:

*** Hidden text: cannot be quoted. ***

Üstteki kodlar sayfanızdaki Worksheet_Change(ByVal Target As Excel.Range) prosedürünün ilk satırına yazın.
Sonraki kodlarınızın işlevini bilmediğim için dikkate almıyorum.

Genişletmek için tıklayın ...

hakki83' Alıntı:

1 nolu mesajınızdaki örneğe göre, oluyor.

Genişletmek için tıklayın ...

İlk mesajımdaki tek hücreye girişti, çalışıyordu. İstediğim 5 hücreye 1 veya X değeri girdiğim zaman tarihi yazması.
Bu kod çalışmasını sağlıyordu,
wird im definierten Bereich ein Wert geändert, wird in der nächsten Spalte das Datum eingetragen "
"Tanımlanan alanda bir değer değiştirilirse sonraki sütuna tarih girilir. demekte.
Bur da ki kodun karşılığını bulabilirsem sorunu çözerim.

Verdiğim son kod sorunsuz çalışıyor @cahan2010

Admin' Alıntı:

Verdiğim son kod sorunsuz çalışıyor @cahan2010

Genişletmek için tıklayın ...

Üstadım. 1. örnekte tek hücreye yazdığımda yan tarafa otomatik tarihi yazıyordu.
Benim isteğim; J-K-L-M-N hücrelerine veri girince kayıt tarihi başlıklı P2 hücresine tarihi atmasını istiyorum.

Ben sarı alanlara değer yazınca yanına tarih yazsın kısmını yapmışım, haklısınız hatalı okumuşum.
Bakacağım tekrar.

[REACTS=1,2,10,9] [/REACTS]Daha kısa da çözümü olabilir ama aklıma ilk gelen bu oldu.
Excel'de en kaçındığım şeylerdir bu tür işlemlerde

@cahan2010
İsteği yanlış anlamış da olabilirim.

Alternatif bir cevap vereyim dedim.

İşlem yapılan satırda (işlemden kastım yazma/silme) ;
-- J-N sütun aralığında, yazma/işlemleri sonucunda hiç veri kalmamışsa, ilgili satır P sütunu hücre içeriği silinir,
-- J-N sütun aralığında bir hücreye veri yazıldığında da tarih yazılır.

Bu arada diyelim J3'e bir şey yazdınız ve P sütununa tarih yazıldı,
yarın aynı satırda J-N hücrelerinden birinde işlem yapılırsa bu kez P sütunundaki tarih yarının tarihi olarak değiştirilecektir.

Sonradan eklediğim not: Bu değişiklik istenilmiyorsa koddaki Cells(Target.Row, 16) = Date satırını
If Cells(Target.Row, 16)="" Then Cells(Target.Row, 16) = Date olarak değiştirin.

Üstadım iyi akşamlar.
Bura tamam
-- J-N sütun aralığında, yazma/işlemleri sonucunda hiç veri kalmamışsa, ilgili satır P sütunu hücre içeriği silinir,
Burada sorun var
-- J-N sütun aralığında bir hücreye veri yazıldığında da tarih yazılır. J-N hücre aralığında bütün hücreler değer alması (1 veya X değeri) ve dolu olması gerekir.