Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row = 25 Then
Sheets("sayfaadı").Range("m25").Value = Date & " - " & Time
End If
End Sub
aşağıdaki kodu dener misiniz?