Çalışma Kitabının Her Açılışında Hücreye Tarih Ya

[alpay1]

Merhaba,
Excel Çalışma kitabımın her açılışında Sayfa1 B1 Hücresine o anki "Tarih,Saat,Dakika ve saniyeyi yazsın.
Amaç kitap üzerinde çalışma yapılırken ne kadar süre çalışıldığını bilmek.
İyi çalışmalar.

 

[htsumer]

Hücreye Tarih Saat Dakika Yazdırmak

[vb:1:11727a4a24]Sub Autpen()
Sheets("Sayfa1").Range("B1").Value = "Girişi=" & Date & " " & Format(Date, "dddd") & " " & Format(Now, "hh:mm:ss")
End Sub

'Çıktığı zamanı öğrenmek için.
Sub Auto_Close()
Sheets("Sayfa2").Activate
Cells(1, 1).Select
Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Activate
Loop
ActiveCell.Value = "Çıkışı =" & Date & " " & Format(Date, "dddd") & " " & Format(Now, "hh:mm:ss")
End Sub[/vb:1:11727a4a24]

 

[alpay1]

Değerli htsumer,
İki sorumada siz cevap verdiniz.İkiside çok işime yaradı.Elinize sağlık diyorum.
Sağolun...