saat ve tarih

[muslim55]

a1 hehangi birşey yazıldığında b1 de o andaki saat ve tarihi görmek istiyorum nasıl yapıabilir.

 

[S.Yiğit]

Bu konu defalarca işlendi. Lütfen konu açmadan önce arama yapınız..

O anki saat tarih

 

[Orion1]

İlgili sayfanın modülüne.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
On Error Resume Next
Target.Offset(0, 1).Value = Now
Target.Offset(0, 1).NumberFormat = "dd.mm.yyyy hh:mm:ss"
End Sub

 

[muslim55]

çok teşekkür ederim elinize sağlık

 

[muslim55]

Ikinci satırda a1 yerine a:a yaptım tüm sütuna uyarlandı ve üst satırları güncellemedi.

 

[İhsan Tank]

ARKADAŞIM KODU EKLERSEN ( ALT+F11 ) FONKSİYONU İLE ULAŞABİLİRSİN
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
On Error Resume Next
Target.Offset(0, 1).Value = Now
Target.Offset(0, 1).NumberFormat = "dd.mm.yyyy hh:mm:ss"
End Sub

KOD BÖLÜMÜNÜ KONTROL EDERSEN

EKLİ DOSYAYI GÖNDERİYORUM KONTROL EDERSEN