Otomatik tarih

Katılım
28 Ağustos 2010
Mesajlar
15
Excel Vers. ve Dili
2007 türkçe
Günaydın Arkadaşlar

A Sütununa herhangi bi değer girdiğimde E sütununa, F ye girersem I sütuna otomatik tarih atmasını istiyorum. ben bu şekilde yaptım ama I sütünuna yazdıramadım

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

Yardımlarınız için teşekkür ederim
 

Mahir64

Destek Ekibi
Destek Ekibi
Katılım
19 Nisan 2006
Mesajlar
6,682
Excel Vers. ve Dili
Excel 2013-Türkçe
Excel 2016-Türkçe
Merhaba,

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1:A65536]) Is Nothing Then Cells(Target.Row, "E") = Format(Now, "dd.mm.yyyy")
If Not Intersect(Target, [F1:F65536]) Is Nothing Then Cells(Target.Row, "I") = Format(Now, "dd.mm.yyyy")

End Sub
 
Üst