Hücreye Tarih Saat Dakika Yazdırmak
[vb:1:11727a4a24]Sub Aut

pen()
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]