Hücre Değiştiğinde yanında ki hücreye tarih yazsın

[sbayyigit]

Ustalar forumu aradım ama bulamadım.
Herhangi bir hüdreye veri girişi yapıldığında hmen yanındaki hücreye o anki tarih ve saat yazılması için nasıl bir olay yazmamız gerekecek.
örnek olarak A1 Hücresi içerisine veri girişi yapıldığında veya içeriği değiştiğinde B1 hücresine, giriş veya değişiklik yapıldığı andaki tarih ve saat yazılsın. Burada sütunların yeri sabit olmayacak. yani D6 ya veri girildiğinde tarih ve saat E 6 ya yazılacak.
tüm ustalara ve emek verenlere sonsuz saygı ve selamlar.

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
Target.Offset(0, 1) = Now
End Sub

 

[sbayyigit]

ustam herkesin yardımına koştuüun gigi benim sorunlarıma hemen çare buluyorsun. allah ne muradın varsa versin.
usta dediklerini yaptım fakat 2 noktada takıntım oldu.
1. değer sadece a sütunu için işlenmiş (benim yapmak istediğim hangi hücrede değişiklik yapıldı ise bir sağındaki hücreye tarih atması)
2. si ise hücre boş geçilirse değişiklik yapılmasın?
sonsuz saygılarımla...

 

[Levent Menteşoğlu]

Bu durumda kodu aşağıdaki ile değiştirin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = 0 Then Exit Sub
Application.EnableEvents = False
Target.Offset(0, 1) = Now
Application.EnableEvents = True
End Sub

 

[sbayyigit]

ustam eline sağlık tam dediğim gibi olmuş. fakat gözden kaçan bir şey var.
bir hücreye girildikten sonra işlem iptal edilirse yani hücre boş geçilirse veya 0(sıfır) diye adlandırılırsa fonksiyon sona eriyor ve bir daha işlem yapmıyor. geçici durmak yerine o oturumda kalıcı olarak devre dışı kalıyor.
selamlar

 

[Levent Menteşoğlu]

If Target = 0 Then Exit Sub

yukarıdaki satırı ilk satır olarak yerleştirin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = 0 Then Exit Sub
Application.EnableEvents = False
Target.Offset(0, 1) = Now
Application.EnableEvents = True
End Sub

 

[sbayyigit]

değiştirdim fakat yine aynı

 

[Levent Menteşoğlu]

Bu durumda aşağıdaki kodu bir butona bağlayın ve çalıştırın. Daha sonra bu kodu silebilirsiniz. Yukarıdaki kodlar çalışacaktır.

sub ac()
Application.EnableEvents = true
end if

 

[sbayyigit]

Usta verdiğin bilgiler için tüm güzellikler senin olsun. Tekrar ediyorum Allah ne muradın varsa versin. Allah senden razı olsun.

 

[Levent Menteşoğlu]

Rica ederim. Allah hepimizden razı olsun.

 

[TRABLUS]

Başlık " Hücre değiştiğinde yanında ki hücreye tarih yazsın " şeklinde değiştirilmiştir.

 

[sbayyigit]

Ustam siz nasıl uygun görürseniz. Biz bazan tam olarak karar veremiyoruz.
selamlar. saygılar

 

[kerem aslan]

yaptım ama..

arkadaşlar banada böyle bir şey laazımdı burda yazılanların hepsini yuaptım ama bende bir sorun oldu bişiyi atlıyorum sanırım bana bu kodu içeren bir doys örneği yollayabilirseniz çok sevinirim
şimdiden teşekkürler

 

[Metin Karaağaç]

Kodu modüle değil de çalışma sayfasına yapıştırmamışsınızdır belki

 

[kerem aslan]

Kodu modüle değil de çalışma sayfasına yapıştırmamışsınızdır belki

modüle yapıştırdım ama evde kullandığım pcdki oficde bir problemim var sanırım ondan kaynaklanıyor o nedenle örnek bir dosya istemiştim

 

[Korhan Ayhan]

Selamlar,

Sn. kerem aslan

Kodu uygulamak istediğiniz sayfa isminin üzerinde sağ klik dedikten sonra açılan menüden kod görüntüle deyip çıkan pencereye yapışıtırırsanız çalışacaktır.

 

[makkinist]

a sütünu değiştiğinde c sütununa
b sütünu değiştiğinde c sütununa
e sütünu değiştiğinde f sütununa yazacak şekilde nasıl değiştirmemiz gerekir. Şimdiden teşekkürler

 

[makkinist]

kimse ilgilenmeyecek mi?

 

[hsayar]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayın.

[vb:1:8f6085aa7b]Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
Target.Offset(0, 1) = Now
End Sub
[/vb:1:8f6085aa7b]

hocam sadece tek bir hücre değişince makro tetiklemek nasıl olmalı
b5 hücresi değiştiğinde a makrosunu çalıştır gibi.

 

[Ali]

hocam sadece tek bir hücre değişince makro tetiklemek nasıl olmalı
b5 hücresi değiştiğinde a makrosunu çalıştır gibi.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B5]) Is Nothing Then Exit Sub
Call a
End Sub

a makronuzu adıdır.