Arkadaşlar merhaba; Netten bulduğum ;
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [F8:F30]) Is Nothing Then Cells(Target.Row, "E") = Format(Now, "dd.mm.yyyy hh:mm")
End Sub
F sütununa veri girince E sütununa tarih atan bir kodda değişiklik yaparak, girilen veri silinince yanındaki tarihin de silinmesi için nasıl bir kod yazılmalı, Saygılar.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [F8:F30]) Is Nothing Then Cells(Target.Row, "E") = Format(Now, "dd.mm.yyyy hh:mm")
End Sub
F sütununa veri girince E sütununa tarih atan bir kodda değişiklik yaparak, girilen veri silinince yanındaki tarihin de silinmesi için nasıl bir kod yazılmalı, Saygılar.
