Veri Girilen Hücrenin Yanına Otomatik Tarih Yazma

[cahan2010]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Excel de hücreye veri girişinde yandaki hücreye otomatik tarih atmasını istiyorum.

 

[ExcelDepo]

[REACTS=1,2,10,9]

Bu kodu görmek için giriş yapmanız gerekmektedir (3 satır). Giriş Yap

[/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.

 

[hakki83]

Bu kodu görmek için giriş yapmanız gerekmektedir (2 satır). Giriş Yap

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

 

[cahan2010]

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

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

 

[ExcelDepo]

[REACTS=1,2,10,9]

Bu kodu görmek için giriş yapmanız gerekmektedir (3 satır). Giriş Yap

[/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.

 

[hakki83]

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

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

 

[cahan2010]

*** 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.

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

İ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.

 

[ExcelDepo]

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

 

[cahan2010]

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

Ü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.

 

[ExcelDepo]

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.

 

[ExcelDepo]

[REACTS=1,2,10,9]

Bu kodu görmek için giriş yapmanız gerekmektedir (5 satır). Giriş Yap

[/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

 

[Ömer BARAN]

@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.

Bu kodu görmek için giriş yapmanız gerekmektedir (6 satır). Giriş Yap

 

[cahan2010]

Ü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.