Girilen bilgiye karşılık otomatik şimdiki saati yazdırma

[cengizdemir44]

Sayın üyeler bir veri tablosu hazırlamaktayım. Bunun için yardımınıza ihtiyacım var. Toplu taşıma araçlarına arızalı oldukları zaman arıza kayıt numarası veriyorum. Bir sutuna arıza kayıt numarası ikinci sütuna aracın plaka bilgisini giricem. Plaka bilgisini girdiğim anda 3. Sutunda tabiiki sadece ilgili satırda şimdiki saat bilgisinin 4.sutunda da içinde bulunduğumuz tarih bilgisinin otomatik olarak girilmesini istiyorum. Bunun için 3. Ve 4.sütuna nasıl bir formül uygulamam gerekiyor. Yardımcı olursanız sevinirim.

 

[YUSUF44]

Bu işlem formülle olmaz. Çünkü formüller sürekli kendini güncellediği için sayfada her değişiklik olduğunda girilen veri değişir.

Sayfa olaylarına bağlı makro ile yapabilirsiniz. Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırısanız, B sütununda değişiklik olduğunda C sütununa saati ve D sütununa tarihi yazar:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
If Target <> "" Then
    Target.Offset(0, 1) = Format(Now, "hh:mm:ss")
    Target.Offset(0, 2) = Date
End If
End Sub