Otomatik tarih ve saat

[excelience]

Merhaba abilerim kardeşlerim emekleriniz için şimdiden çok teşekkür ederim
*b hücresine veri girilince otomatik olarak a hücresine günün tarihini veya tarih ve saatini atsın
*soru ekte de yer almaktadır

 

[çıtır]

A2 kopyala aşağı çek.Hücreyi biçimden Tarih olarak ,tarih ve saati gösterir şekilde ayarla.Kolay gelsin.

EĞER(B2="";"";ŞİMDİ())

 

[netzone]

Merhaba,

#Çıtır arkadaşımızın dediği formülü kullandığınızda. Girilen tarih saat bilgisi içeride veri olduğu sürece kendini güncelleyecektir.

Örneğiniz için şu kodu deneyiniz. Bu şekilde sadece hücre içinde değişiklik yapıldığında tarih bilgisi güncellenecektir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C1:C65536]) Is Nothing Then Cells(Target.Row, "B") = Format(Now, "dd.mm.yyyy hh:mm")
If Not Intersect(Target, [J1:J65536]) Is Nothing Then Cells(Target.Row, "I") = Format(Now, "dd.mm.yyyy hh:mm")
End Sub

İyi çalışmalar.

 

[excelience]

çıtır arkadasim kod için tesekkur ederim Netzone ustamizin yazdigi kodu aramıstım cok tesekkur ederim hocam emegine saglik

 

[excelience]

netzone hocam kodları yazdım fakat bi sonuc alamadım bi kontrol edebilirmisiniz

 

[çıtır]

Netzone ustanın yazdığı kod makro kodlarıdır. Geliştirici sekmesinde Visual Basic açıp,Sayfanın kod kısmına kopyalayınız.

 

[excelience]

netzone ustanın yazdığı kod makro kodlarıdır. Geliştirici sekmesinde visual basic açıp,sayfanın kod kısmına kopyalayınız.

öyle yaptım ama onun icinde sayfaya buton ekleyip oluşan makroyla birlestirmem gerekiyor sanırım yoksa ben mi yapamadim ? biraz daha acıklayıcı anlatma sansınız var mı veya dosyayı kendiniz duzenleyip tekrar gonderirseniz kodları o sekil incelersem daha cok anlayabilirim anlayıs ve ilginiz icin simdiden tesekkurler

*örneğin b2 hücresine adana yazıp enter a bastıgım zaman
a2 hücresine otomatik olarak tarih ve saat eklensin ama netzone hocamın da dedigi gibi bu eklenen tarih ve saat daha sonra değişmesin (ertesi gune gecince)

 

[excelience]

Problem çözülmüştür tekrar ilgi ve alaka için herkese çok teşekkür ediyorum
kodlarda problem Yok

 

[çıtır]

C Hücresinde bir değişiklik olduğunda B hücresine tarih atar
J Hücresi değiştiğinde I hücresine tarih atar.
1)Geliştirici sekmesinde Visual basic tıkla
2)Sayfa1(sayfa1) çift tıkla.Sizde değişebilir.
3) Kodu kopyala yapıştır.
C ve J sütunlarında bilgi girerek dene

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("c2:c65536, j2:j65536")) Is Nothing Then Exit Sub
If Target = "" Then
Target.Offset(0, -1) = ""
Else
Target.Offset(0, -1) = Format(Now, "dd.mm.yyyy hh:mm")
End If
End Sub

Cevabınızı görmedim.Sorun çözüldüğünü bilseydim yazmazdım.
netzone ustanın kodlarada bilgi silindiğinde tarih kalır.

 

[excelience]

C Hücresinde bir değişiklik olduğunda B hücresine tarih atar
J Hücresi değiştiğinde I hücresine tarih atar.
1)Geliştirici sekmesinde Visual basic tıkla
2)Sayfa1(sayfa1) çift tıkla.Sizde değişebilir.
3) Kodu kopyala yapıştır.
C ve J sütunlarında bilgi girerek dene

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("c2:c65536, j2:j65536")) Is Nothing Then Exit Sub
If Target = "" Then
Target.Offset(0, -1) = ""
Else
Target.Offset(0, -1) = Format(Now, "dd.mm.yyyy hh:mm")
End If
End Sub

Cevabınızı görmedim.Sorun çözüldüğünü bilseydim yazmazdım.
netzone ustanın kodlarada bilgi silindiğinde tarih kalır.

BİLGİ BİLGİDİR DETAYLAR İÇİN TEŞEKKÜRLER

:bravo::bravo::bravo:

 

[excelience]

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

**** HOCAM BU "B" DEĞİLDE SABİT BİR HÜCRE OLSA NASIL YAZMAMIZ GEREKİR BEN "B1" OLARAK KAYDETTİM OLMADI PARANTEZ YAPTIM OLMADI NAPTIYSAM OLMADI :/

 

[YUSUF44]

If Not Intersect(Target, [C1:C65536]) Is Nothing Then Cells(Target.Row, "B") = Format(Now, "dd.mm.yyyy hh:mm")

Koddaki Cells(Target.Row,"B") kısmı nereye uygulanacağını belirliyor.

Target.Row ifadesi değişen hücrenin satır numarasını belirtiyor. Hedefimiz/Değişen hücremiz C sütununda olduğundan örneğin C hücresi değişirse B5 hücresine bu kodla tarih atıyoruz.

Sadece bir hücre için ise doğrudan hücre adresini belirtebiliriz:

If Not Intersect(Target, [C1:C65536]) Is Nothing Then [B1] = Format(Now, "dd.mm.yyyy hh:mm")

Ya da

If Not Intersect(Target, [C1:C65536]) Is Nothing Then Cells(1, "B") = Format(Now, "dd.mm.yyyy hh:mm")

Ya da

If Not Intersect(Target, [C1:C65536]) Is Nothing Then Range("B1") = Format(Now, "dd.mm.yyyy hh:mm")

gibi.

 

[BedriA]

C Hücresinde bir değişiklik olduğunda B hücresine tarih atar
J Hücresi değiştiğinde I hücresine tarih atar.
1)Geliştirici sekmesinde Visual basic tıkla
2)Sayfa1(sayfa1) çift tıkla.Sizde değişebilir.
3) Kodu kopyala yapıştır.
C ve J sütunlarında bilgi girerek dene

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("c2:c65536, j2:j65536")) Is Nothing Then Exit Sub
If Target = "" Then
Target.Offset(0, -1) = ""
Else
Target.Offset(0, -1) = Format(Now, "dd.mm.yyyy hh:mm")
End If
End Sub

Cevabınızı görmedim.Sorun çözüldüğünü bilseydim yazmazdım.
netzone ustanın kodlarada bilgi silindiğinde tarih kalır.

Bu kod çok işime yaradı.
Çok teşekkürler.

 

[excelience]

If Not Intersect(Target, [C1:C65536]) Is Nothing Then Cells(Target.Row, "B") = Format(Now, "dd.mm.yyyy hh:mm")

Koddaki Cells(Target.Row,"B") kısmı nereye uygulanacağını belirliyor.

Target.Row ifadesi değişen hücrenin satır numarasını belirtiyor. Hedefimiz/Değişen hücremiz C sütununda olduğundan örneğin C hücresi değişirse B5 hücresine bu kodla tarih atıyoruz.

Sadece bir hücre için ise doğrudan hücre adresini belirtebiliriz:

If Not Intersect(Target, [C1:C65536]) Is Nothing Then [B1] = Format(Now, "dd.mm.yyyy hh:mm")

Ya da

If Not Intersect(Target, [C1:C65536]) Is Nothing Then Cells(1, "B") = Format(Now, "dd.mm.yyyy hh:mm")

Ya da

If Not Intersect(Target, [C1:C65536]) Is Nothing Then Range("B1") = Format(Now, "dd.mm.yyyy hh:mm")

gibi.

HOCAM EMEĞİNİZE SAĞLIK
:bravo::bravo::bravo::bravo::bravo::bravo::bravo::bravo:

 

[onurbeyaz]

Merhabalar Hocam Bu formülü

C Hücresinde bir değişiklik olduğunda B hücresine tarih atar
J Hücresi değiştiğinde I hücresine tarih atar.
1)Geliştirici sekmesinde Visual basic tıkla
2)Sayfa1(sayfa1) çift tıkla.Sizde değişebilir.
3) Kodu kopyala yapıştır.
C ve J sütunlarında bilgi girerek dene

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("c2:c65536, j2:j65536")) Is Nothing Then Exit Sub
If Target = "" Then
Target.Offset(0, -1) = ""
Else
Target.Offset(0, -1) = Format(Now, "dd.mm.yyyy hh:mm")
End If
End Sub

Cevabınızı görmedim.Sorun çözüldüğünü bilseydim yazmazdım.
netzone ustanın kodlarada bilgi silindiğinde tarih kalır.

Merhaba Hocam Öncelikle emeğinize sağlık, benim 4 ekip arkadaşımızın giriş faturalarını kontrol etmek için Excel dosyam var o dosyada ortak alan one drive olarak kullanıyoruz coklu giriş değiştirme yapılabiliyor aynı anda ama excel formatı .xlsx buna farklı bir formül varmıdır?