Şöyle bir makro var;
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B1:B65536]) Is Nothing Then Cells(Target.Row, "A") = Format(Now, "dd.mm.yyyy hh:mm")
End Sub
B sütununa işlem yaptığında A sütununa tarih -saat yazıyormuş.
Linkide burda. Farklı bir makro daha var burada.
www.excel.web.tr