Selam Hocalarım,
Ben bu aşağıdaki Kodu Burdan aldım benim işime yarayan bir kod ama Söyle bir sorum var Tarihi yazdıktan sonra sabit kalmasını istiyorum.
yani yanlışlıkla satıra yazı yazdığım zaman yada F2 bastığımda değişiyor değişmesin istiyorum .
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
Ben bu aşağıdaki Kodu Burdan aldım benim işime yarayan bir kod ama Söyle bir sorum var Tarihi yazdıktan sonra sabit kalmasını istiyorum.
yani yanlışlıkla satıra yazı yazdığım zaman yada F2 bastığımda değişiyor değişmesin istiyorum .
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