Otomatik tarih

[bayram09]

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]

Merhaba,

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

 

[bayram09]

Teşekkür ederim

 

[Mahir64]

Teşekkür ederim

İyi çalışmalar.