otomatik tarih atmak

[mcetinkaya65]

Bir excel sayfasının a stunu dışındaki ,herhangi bir hücreye bir şeyler yazınca, a sütünundaki hücrelere, günün tarihini atmak mümkünmü?Yani sayfanın yalnız bir sütunuyla sınırlı değil.A sütünun hücreleri dışındaki bütün sütunların her hangi bir hücresine yazılınca a sütünundaki hücreye otamatik tarih atmasını istiyorum.
saygılar

 

[N.Ziya Hiçdurmaz]

yanıt

Sayfa kod bölümüne uygulayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
Cells(Target.Row, 1) = Date
End Sub

 

[muhasebeciyiz]

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") = Now
son:
End Sub

bu kod sadece b sutuna giriş yaptığınızda a sutununa tarih atmaktadır.

Sayfa kod bölümüne yapıştırp kullanabilirsiniz
Uzmanımız N.Ziya Hiçdurmaz bey tabiki daha iyisini vermiş.

 

[mcetinkaya65]

teşekkür

İlgilerinizden dolayı çok teşekkür ederim.Elinize sağlık.