Şimdi Fonksiyonunu sabitleme

[orhan1071]

Merhaba arkadaşlar. Hücreye veri girildiğindeki tarih,saat,dakika bilgisini başka bir hücrede kayıt altına almak istiyorum. "Şimdi fonksiyonu" ile hücreye giriş yapıldığı anı tespit edebiliyorum. Fakat "şimdi fonksiyonu" kendini sürekli güncellediği için;hücreye veri giriş anı gerçekliğini kaybediyor. Nasıl bir çözüm önerebilirsiniz.

Teşekkürler.

 

[Mahir64]

Merhaba arkadaşlar. Hücreye veri girildiğindeki tarih,saat,dakika bilgisini başka bir hücrede kayıt altına almak istiyorum. "Şimdi fonksiyonu" ile hücreye giriş yapıldığı anı tespit edebiliyorum. Fakat "şimdi fonksiyonu" kendini sürekli güncellediği için;hücreye veri giriş anı gerçekliğini kaybediyor. Nasıl bir çözüm önerebilirsiniz.

Teşekkürler.

Merhaba

Makro yardımıyla isteğiniz gerçekleşebilir.

Küçük bir örnek ekleyin üzerine uygulayalım.

 

[İhsan Tank]

Merhaba arkadaşlar. Hücreye veri girildiğindeki tarih,saat,dakika bilgisini başka bir hücrede kayıt altına almak istiyorum. "Şimdi fonksiyonu" ile hücreye giriş yapıldığı anı tespit edebiliyorum. Fakat "şimdi fonksiyonu" kendini sürekli güncellediği için;hücreye veri giriş anı gerçekliğini kaybediyor. Nasıl bir çözüm önerebilirsiniz.

Teşekkürler.

merhaba
sayfanın kod bölümüne

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B1:B65536]) Is Nothing Then Cells(Target.Row, "A") = Format(Now, "dd.mm.yyyy hh:mm")
End Sub

bu kodu yazın.
B sütununa işlem yaptığınızda A sütununa tarih -saat yazar

 

[orhan1071]

merhaba
sayfanın kod bölümüne

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B1:B65536]) Is Nothing Then Cells(Target.Row, "A") = Format(Now, "dd.mm.yyyy hh:mm")
End Sub

bu kodu yazın.
B sütununa işlem yaptığınızda A sütununa tarih -saat yazar

Çok Teşekkür ederim.Çalışıyor.
Teşekkürler.
Kolay gelsin.

 

[İhsan Tank]

Çok Teşekkür ederim.Çalışıyor.
Teşekkürler.
Kolay gelsin.

rica ederim
:yazici:

 

[orhan1071]

Merhaba tarih formatı verdiğiniz kod ile örneğin 12.10.2002 13:30 olarak görünüyor. Bu kodda küçük bir değişiklik yaparak 12 Ekim 2002 perşmebe 13:30 olarak kodun çalışmasını nasıl sağlayabilirim.

Yani kayıt tarihinin ay ve gününün yazı ile görünebilmesini sağlayabilirmiyim.
Teşekkürler.

 

[serqet]

İhsan üstadımın formülündeki "dd.mm.yyyy hh:mm" kısmını "d mmm yyyy dddd h:mm" olarak değiştirin.

 

[orhan1071]

Hocam çok teşekkür ederim tamamdır.

 

[serqet]

Hocam çok teşekkür ederim tamamdır.

Rica ederiz.k::

 

[orhan1071]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B3:B65536]) Is Nothing Then Cells(Target.Row, "A") = Format(Now, "d mmm yyyy dddd h:mm")
If Not Intersect(Target, [E3:E65536]) Is Nothing Then Cells(Target.Row, "D") = Format(Now, "d mmm yyyy dddd h:mm")
End Sub

Arkadaşlar kod'u farklı iki sütun içinde yaptım.
Örneğin A'ya veri girildiğinde B'ye kayıt tarihi atıyordu.Ben "If Not Intersect(Target, [E3:E65536]) Is Nothing Then Cells(Target.Row, "D") = Format(Now, "d mmm yyyy dddd h:mm")" kod satırınıda ekleyerek E'ye veri girildiğinde D'ye kayıt tarihi at şeklinde kod satırına ekleme yaptım, buda çalıştı.

Fakat üçüncü bir satır daha ekleyince kod satırına hata verdi,
B'ye veri girildiğinde A'ya kayıt tarihi at.(bu ilk satır çalışıyor)
E'ye verigirildiğinde D'ye kayıt tarihi at.(bu ikinci satır çalışıyor)
G'ye verigirildiğinde H'ye kayıt tarihi at.(bu üçüncü satır çalışmıyor)

Çalışmayan(hata verip excel'i kapatan) kod satırı:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B3:B65536]) Is Nothing Then Cells(Target.Row, "A") = Format(Now, "d mmm yyyy dddd h:mm")
If Not Intersect(Target, [E3:E65536]) Is Nothing Then Cells(Target.Row, "D") = Format(Now, "d mmm yyyy dddd h:mm")
If Not Intersect(Target, [G3:E65536]) Is Nothing Then Cells(Target.Row, "H") = Format(Now, "d mmm yyyy dddd h:mm")
End Sub

 

[serqet]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B3:B65536]) Is Nothing Then Cells(Target.Row, "A") = Format(Now, "d mmm yyyy dddd h:mm")
If Not Intersect(Target, [E3:E65536]) Is Nothing Then Cells(Target.Row, "D") = Format(Now, "d mmm yyyy dddd h:mm")
End Sub

Arkadaşlar kod'u farklı iki sütun içinde yaptım.
Örneğin A'ya veri girildiğinde B'ye kayıt tarihi atıyordu.Ben "If Not Intersect(Target, [E3:E65536]) Is Nothing Then Cells(Target.Row, "D") = Format(Now, "d mmm yyyy dddd h:mm")" kod satırınıda ekleyerek E'ye veri girildiğinde D'ye kayıt tarihi at şeklinde kod satırına ekleme yaptım, buda çalıştı.

Fakat üçüncü bir satır daha ekleyince kod satırına hata verdi,
B'ye veri girildiğinde A'ya kayıt tarihi at.(bu ilk satır çalışıyor)
E'ye verigirildiğinde D'ye kayıt tarihi at.(bu ikinci satır çalışıyor)
G'ye verigirildiğinde H'ye kayıt tarihi at.(bu üçüncü satır çalışmıyor)

Çalışmayan(hata verip excel'i kapatan) kod satırı:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B3:B65536]) Is Nothing Then Cells(Target.Row, "A") = Format(Now, "d mmm yyyy dddd h:mm")
If Not Intersect(Target, [E3:E65536]) Is Nothing Then Cells(Target.Row, "D") = Format(Now, "d mmm yyyy dddd h:mm")
If Not Intersect(Target, [G3:E65536]) Is Nothing Then Cells(Target.Row, "H") = Format(Now, "d mmm yyyy dddd h:mm")
End Sub

Son kod satırında [G3:E65536]) yazmışsınız orayı [G3:G65536]) olarak düzeltiniz.

 

[serqet]

Kodu tamamen hatalı yapmışsınız. Bunu yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B3:B65536]) Is Nothing Then Cells(Target.Row, "A") = Format(Now, "d mmm yyyy dddd h:mm")
If Not Intersect(Target, [E3:E65536]) Is Nothing Then Cells(Target.Row, "D") = Format(Now, "d mmm yyyy dddd h:mm")
If Not Intersect(Target, [H3:H65536]) Is Nothing Then Cells(Target.Row, "G") = Format(Now, "d mmm yyyy dddd h:mm")
End Sub

 

[1Al2Ver]

Merhaba,

If Not Intersect(Target, [G3:E65536]) Is Nothing Then Cells(Target.Row, "H") = Format(Now, "d mmm yyyy dddd h:mm")

Kırmızı yazılı yeri G yapın.

 

[orhan1071]

Böyle bir hata ile, size soru sorarak değerli zamanınızı aldığım için özür dilerim.
Zaman ayırıp yanıtladığınız için gerçekten çok teşekkür ederim.Tamamdır.

 

[serqet]

Böyle bir hata ile, size soru sorarak değerli zamanınızı aldığım için özür dilerim.
Zaman ayırıp yanıtladığınız için gerçekten çok teşekkür ederim.Tamamdır.

Rica ederiz.

 

[orhan1071]

Arkadaşlar tekrar merhaba. Hücreye herhangi bir bilgi girildiğinde hücreye o anki zamanı yazıyor. Peki hücredeki veriyi sildiğimde, daha önce yazdığı tarihinde silinmesini nasıl sağlayabilirim?
Teşekkür ederim.

 

[u.L.a.s]

Merhabalar

Belirttiğiniz Kodu macrolardan visual basic düzenleyicisinde yazıyorum fakat hiç bir işlem olmuyor. ya yanlış yere yazıyorum yada biryerde hata yapıyorum. Verdiğiniz kodları nereye yazarak çalışmasını sağlayabilirim?

Yardımlarınızı rica ederim

 

[İhsan Tank]

Merhabalar

Belirttiğiniz Kodu macrolardan visual basic düzenleyicisinde yazıyorum fakat hiç bir işlem olmuyor. ya yanlış yere yazıyorum yada biryerde hata yapıyorum. Verdiğiniz kodları nereye yazarak çalışmasını sağlayabilirim?

Yardımlarınızı rica ederim

merhaba
sayfanın kod bölümüne yazdıktan sonra
kitabı kayıt yaparken makro içerebilen dosya şeklinde kayıt yapmalısınız

 

[ssdestek]

merhaba
sayfanın kod bölümüne

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B1:B65536]) Is Nothing Then Cells(Target.Row, "A") = Format(Now, "dd.mm.yyyy hh:mm")
End Sub

bu kodu yazın.
B sütununa işlem yaptığınızda A sütununa tarih -saat yazar

++++++++++++++++++++++++++++++++++++++++++++++++++++++++

SELAM,
Bunu makro olmadan formül ve fonksiyonlarla yapılamaz mı ?

teşekkür ederim.

 

[İhsan Tank]

++++++++++++++++++++++++++++++++++++++++++++++++++++++++

SELAM,
Bunu makro olmadan formül ve fonksiyonlarla yapılamaz mı ?

teşekkür ederim.

merhaba
yapılabilir ama sabit olmaz sayfada herhangi bir değişiklik formülü tetikler ve bir işe yaramaz