Aşşagdaki koda ne eklemeliyim düzeltebilirim

[mustafa4238]

Merhabalar bir VBA kodu yazdım amacım veri girdimde girilen tarih ve saat kaydetmesi kod güzel bir şekilde calısıyor ama ben olduki yanlıs verii girdim sildim veri olmamasına ragmen hala duruyor orda düzeltemiyorum ne eklemeliyim yardımcı olabilir misiniz?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim RaBereich As Range, RaZelle As Range




' Hedef aralığı B1:B1000 olarak ayarla
Set RaBereich = Range("B1:B1000")

' Sonsuz döngüyü engellemek için olayları devre dışı bırak
Application.EnableEvents = False

' Belirtilen hedef aralığındaki her değişik hücre için döngü
For Each RaZelle In Target
' Değişiklik yapılan hücrenin belirtilen aralık içinde olup olmadığını kontrol et
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
' Eğer öyleyse, hücrenin bir önceki sütunundaki değeri güncelle, şu anki tarih ve saat ile
RaZelle.Offset(0, -1).Value = Date + Time
End If
Next RaZelle

' Olayları tekrar etkinleştir
Application.EnableEvents = True

' Nesneleri temizle ve serbest bırak
Set RaBereich = Nothing
End Sub

 

[alicimri]

İlgi sayfanın kod modülüne yapıştırıp deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B1:B1000")) Is Nothing Then Exit Sub
If Target.Value = "" Then
Target.Offset(0, 1).Value = ""
Else
Target.Offset(0, 1).Value = Now
End If
End Sub