Saat ile ilgili

[Mech_Eng]

Merhaba Arkadaşlar,

Ben A1 hücresindeki değer değiştiğinde, B1 hücresinde A1 hücresinin değiştirilme saatini yazdırmak istiyorum. Eğer ve Şimdi() fonksiyonarını kullanarak yaptım ama hücredeki saat sürekli değişiyor. Bu saati sabit bırakmanın bir yolu yok mu acaba?

 

[Ömer]

Merhaba,

Çalışma sayfasının kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    If Target = "" Then
        Target.Offset(0, 1).ClearContents
    Else
        Target.Offset(0, 1) = Now
    End If
End Sub

.

 

[Mech_Eng]

Verdiğiniz cevap için teşekkür ederim. Dediğim şeyi birebir olarak yapıyor ama ben bunu bir kalıp olarak kullanıp diğer hücreler için de kullanmak istiyorum. Aslında amacım bir kayıt tutmak ve her kaydın girildiği saati hücrede görmek istiyorum.. Excel fonksiyonları ile yapabileceğim bir yoöntem var mı acaba?

 

[Mahir64]

Verdiğiniz cevap için teşekkür ederim. Dediğim şeyi birebir olarak yapıyor ama ben bunu bir kalıp olarak kullanıp diğer hücreler için de kullanmak istiyorum. Aslında amacım bir kayıt tutmak ve her kaydın girildiği saati hücrede görmek istiyorum.. Excel fonksiyonları ile yapabileceğim bir yoöntem var mı acaba?

Merhaba
Altarnatif olarak deneyebilirsiniz

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

Satır aralığına göre artırabilirsiniz