b sütununa herhangir bir şey yazıldığında a sütununa tarih atmak

[enes2000eren]

selam.arkadaşlar excelde çalışma sayfasında b sütununda herhangi bir şey yazıldığında ilgili satırın a sütununa bugünün tarihini atsın istiyorum.yardımlarınız için teşekkürler.

 

[hamitcan]

Forumda çok örnek var. İşte bir tanesi !...
http://www.excel.web.tr/showthread.php?t=78203&highlight=tarih

 

[Erdem Akdemir]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
Cells(Target.Row, "A") = Date
son:
End Sub