Vurkan
Yeni Üye
- Katılım
- 13 Tem 2023
- Mesajlar
- 158
- Çözümler
- 3
- Aldığı beğeni
- 44
- Excel V
- Office 2019 TR
Konu Sahibi
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.
