Soru Veri Girişi ile yan kolona tarih yazdırılması ancak tüm verileri silmede hata uyarısı. (Örnek Kod ve Dosya Mevcut)

[ptcsite]

İyi günler Örnek Dosyada A ve C sütunlarında veri girişi yapınca sağ tarafına otomatik tarih yazdırıyorum ancak veri girişi yaptığım hücreleri tek tek değilde komple seçimle silmeye kalkıştığımda tarihler silinmiyor ve uyarı çıkıyor... Bu uyarıyı nasıl giderebilirim. Örnek Kod aşağıdaki gibidir:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A2:A25], [C2:C25]) Is Nothing Then Cells(Target.Row, "B") = Format(Now, "dd.mm.yyyy") And Cells(Target.Row, "D") = Format(Now, "dd.mm.yyyy")

If Intersect(Target, [A2:A25]) Is Nothing Then GoTo 2:

If Target.Value = "" Then
    Target.Offset(0, 1).ClearContents
Else
    Target.Offset(0, 1) = Date
    
End If

2:
If Intersect(Target, [C2:C25]) Is Nothing Then Exit Sub

If Target.Value = "" Then
    Target.Offset(0, 1).ClearContents
Else
    Target.Offset(0, 1) = Date
    
End If

End Sub

 

[AdemCan]

Merhaba,
Kodların ilk satırına If Selection.Count > 1 Then Exit Sub satırını ekleyiniz.