Veri girişi karşısında tarihi sabit tutma

[meraklıkedi]

Sayın forum katılımcıları, değerli hocalarımız... hepinizi saygı ile selamlıyorum. Bir husus karşısında bilgi ve tecrübenize ihtiyacım var.

Sizlere ezbere iş olmasın, ne istediğim açıkça anlaşılsın diye projemi anlatacağım, çünkü örnek dosyam yok.
Benzeri hatta aynı konuda başlık var ise araştırmaya fazla zamanım olmadığı için doğrudan konu açtım.
Bu sebep ile değerli vaktinizi aldı isem özürlerimi sunarim.

Proje: İş yerinde güvenlik birimince teslim edilen ve geri alınan araç anahtarlarının elektronik ortamda kayıt altına alınması

Yöntem: Şöför pc ye bağlı reader e personel kartını okutacak, reader ın aldığı ID no. excel e düşecek, düştüğü an sağ sütuna kart sahibinin adı soyadı çıkacak. Buraya kadar tamam onu hallettim. Eğer fonksiyonu ile basit şekilde yaptım.

Hedef: Ancak; bir de bunun tarih ve saati lazım dimi))

Onu da "şimdi" fonk. ile hallediyoruz ama ikinci satıra geçince ve yine aynı işlemi yapınca hali ile tarih ve saat te o ana göre güncelleşiyor.

Amacım o tarih ve saatin "damga" olarak kalması, ikinci anahtar teslimatını yapınca o sayfadaki diğer tarihler değişmemeli.

A1 : readerden gelen ID no (ID no gelince reader otomatik enter yapıyor)
B1: Ad soyad (otomatik enter ile eğer fonks. çalışıyor, sorun yok)
C1: tarih ve saat (sabit kalması gerekiyor)

Sanırım bir makro ya ihtiyacım var. . Bu konuda bana yardımcı olduğunuz için şimdiden teşekkürlerimi sunarım.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu işlem yaptığınız sayfanızın kod bölümüne uygulayınız.

Normalde kod elle A sütunundaki hücrelerde değişiklik yapınca devreye girer. "Reader" dediğiniz cihazdan gelen bilgi umarım makroyu tetikler. Deneyip sonucu bildirirseniz sevinirim.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo 10
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Cells(Target.Row, "C") = "" Then Cells(Target.Row, "C") = Now
10  Application.EnableEvents = True
End Sub

 

[meraklıkedi]

Merhaba,

Aşağıdaki kodu işlem yaptığınız sayfanızın kod bölümüne uygulayınız.

Normalde kod elle A sütunundaki hücrelerde değişiklik yapınca devreye girer. "Reader" dediğiniz cihazdan gelen bilgi umarım makroyu tetikler. Deneyip sonucu bildirirseniz sevinirim.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo 10
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Cells(Target.Row, "C") = "" Then Cells(Target.Row, "C") = Now
10  Application.EnableEvents = True
End Sub

Teşekkür ederim, geri bildirimde bulunacağım. İş yeri malum biraz yoğunuz.